<%IF Session("mem_username") = "" Then Call Alert("您沒有登入系統,請登入會員","/login",0) End IF%> 人力通告報名管理 | <%=Session("SERVER_NAME")%> <% IF Request("state") = "add" Then Set rs = Server.CreateObject("ADODB.Recordset") SQL="SELECT * FROM product_cast_order Where mem_auto = "&Request("mem_auto")&"" rs.Open SQL,connCon,1,3 rs("order_check") = Request("order_check") rs.update rs.close Set rs = nothing Call Alert("修改資料成功","/cast_order",0) Response.end End IF %> <% IF Request("state") = "del" Then Set ars = Server.CreateObject("ADODB.Recordset") ars.open "delete from product_cast_order where mem_auto = "&Request("mem_auto")&"", connCon, 1, 3 set ars = nothing Call Alert("刪除資料成功","/cast_order",0) Response.end End IF %> <% Set R1 = Server.CreateObject("ADODB.Recordset") R1.open "SELECT * FROM product_cast_order Where company_num = '"&Session("mem_num")&"' ORDER BY mem_auto DESC", connCon, 1, 1 %>

人力通告報名管理

人力通告報名管理

<% Call PageView(R1.RecordCount,20,R1) SS = 0 Do While Not R1.EOF AND SS < 20 SS = SS + 1 %> <% R1.MoveNext Loop %>
姓名 身高 體重 生日 手機 備註 編號 標題 規格 通告費 狀態 編輯
<%=R1("mem_name")%> <%=R1("mem_h")%> <%=R1("mem_w")%> <%=R1("mem_bd")%> <%=R1("mem_mobile")%> <%=R1("mem_note")%> <%=R1("p_num")%> <%=R1("p_title")%> <%=R1("p_size")%> <%=R1("p_money")%> <%=R1("order_check")%> ">編輯  ';">刪除
<%Call PageCSS_WEB(1,9,"active")%>
<% R1.Close() Set R1 = Nothing %>