雲網站訂單管理 | <%=Session("SERVER_NAME")%>

<%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_order_data Where order_num = '"&Request("order_num")&"'" rs.Open SQL,connCon,1,3 while not rs.eof rs("order_check") = Request("order_check") rs("order_express2") = Request("order_express2") rs("order_express3") = Request("order_express3") rs("order_express4") = Request("order_express4") rs("order_invoice4") = Request("order_invoice4") rs.update rs.movenext wend rs.close Set rs = nothing Call Alert("修改資料成功","/member_company_order",0) Response.end End IF %> <% IF Request("state") = "del" Then Set ars = Server.CreateObject("ADODB.Recordset") ars.open "delete from product_order_data where order_num = '"&Request("order_num")&"'", connCon, 1, 3 set ars = nothing Call Alert("刪除資料成功","/member_company_order",0) Response.end End IF %> <% Set R1 = Server.CreateObject("ADODB.Recordset") R1.open "SELECT DISTINCT mem_mail,order_date,order_num,order_moneyALL,order_pay,order_pay2,order_check,order_express3,order_discount,order_express,order_express2,order_express3,order_invoice4,order_express4 FROM product_order_data Where company_num = '"&Session("mem_num")&"' and order_check <> '訂購中' ORDER BY order_date DESC", connCon, 1, 1 %>

雲網站訂單管理

">Home
/ 雲網站訂單管理

雲網站訂單管理

<% Call PageView(R1.RecordCount,20,R1) SS = 0 Do While Not R1.EOF AND SS < 20 SS = SS + 1 %> <% R1.MoveNext Loop %>

日期	編號	總金額	運費	付款總價	付款方式	分期	訂單狀態	編輯
<%=R1("order_date")%>	<%=R1("order_num")%>	<%=R1("order_moneyALL")%>	<%=R1("order_express")%>	<%=R1("order_moneyALL")+R1("order_express")%>	<%=R1("order_pay")%>	<%=R1("order_pay2")%>	<%=R1("order_check")%>	">訂單明細　 ">編輯訂單　 ';">刪除

<%Call PageCSS_WEB(1,9,"active")%>

<% R1.Close() Set R1 = Nothing %>