<%IF Session("mem_username") = "" Then Call Alert("您沒有登入系統,請登入會員","/login",0) End IF%> 雲網站商品管理 | <%=Session("SERVER_NAME")%> <% IF Request("state") = "upRank" Then Set rsFirst = connCon.Execute("SELECT * FROM product_data Where p_rank = "&Request("p_rank")-1&" and company_num = '"&Session("mem_num")&"'") IF rsFirst.Eof And rsFirst.Bof Then Call Alert("此選項已經是最上層",0,0) End IF connCon.execute("UPDATE product_data SET p_rank = "&Request("p_rank")+10000&" WHERE p_rank = "&Request("p_rank")&" and company_num = '"&Session("mem_num")&"'") Arank = Request("p_rank")+10000 connCon.execute("UPDATE product_data SET p_rank = "&Request("p_rank")-1+10000&" WHERE p_rank = "&Request("p_rank")-1&" and company_num = '"&Session("mem_num")&"'") Brank = Request("p_rank")-1+10000 connCon.execute("UPDATE product_data SET p_rank = "&Arank-10001&" WHERE p_rank = "&Arank&" and company_num = '"&Session("mem_num")&"'") connCon.execute("UPDATE product_data SET p_rank = "&Brank-9999&" WHERE p_rank = "&Brank&" and company_num = '"&Session("mem_num")&"'") Response.Redirect "/member_company_shop" Response.end End IF %> <% IF Request("state") = "downRank" Then Set rsLast = connCon.Execute("SELECT * FROM product_data Where p_rank = "&Request("p_rank")+1&" and company_num = '"&Session("mem_num")&"'") IF rsLast.Eof And rsLast.Bof Then Call Alert("此選項已經是最下層",0,0) End IF connCon.execute("UPDATE product_data SET p_rank = "&Request("p_rank")+10000&" WHERE p_rank = "&Request("p_rank")&" and company_num = '"&Session("mem_num")&"'") Arank = Request("p_rank")+10000 connCon.execute("UPDATE product_data SET p_rank = "&Request("p_rank")+1+10000&" WHERE p_rank = "&Request("p_rank")+1&" and company_num = '"&Session("mem_num")&"'") Brank = Request("p_rank")+1+10000 connCon.execute("UPDATE product_data SET p_rank = "&Arank-9999&" WHERE p_rank = "&Arank&" and company_num = '"&Session("mem_num")&"'") connCon.execute("UPDATE product_data SET p_rank = "&Brank-10001&" WHERE p_rank = "&Brank&" and company_num = '"&Session("mem_num")&"'") Response.Redirect "/member_company_shop" Response.end End IF %> <% IF Request("state") = "del" Then Set ars = Server.CreateObject("ADODB.Recordset") ars.open "delete from product_data where mem_auto="&Request("mem_auto")&"", connCon, 1, 3 set ars = nothing '調整排序 set rs = Server.CreateObject("ADODB.Recordset") rs.open "Select * FROM product_data ORDER BY p_rank ASC",connCon,1,3 SS = 0 while not rs.eof SS = SS + 1 rs("p_rank") = SS rs.update rs.movenext wend rs.close set rs=nothing Call Alert("刪除資料成功","/member_company_shop",0) Response.end End IF %> <% IF Request("s1") <> "" Then s1 = Request("s1") Else s1 = "%" End IF IF Request("s2") <> "" Then s2 = Request("s2") Else s2 = "%" End IF IF Request("s3") <> "" Then s3 = Request("s3") Else s3 = "%" End IF IF Request("s4") <> "" Then s4 = Request("s4") Else s4 = "%" End IF IF Request("s5") <> "" Then s5 = Request("s5") Else s5 = "%" End IF %> <% Set R1 = Server.CreateObject("ADODB.Recordset") R1.open "SELECT * FROM product_data Where company_num = '"&Session("mem_num")&"' and p_num like '%"&s4&"%' and p_title like '%"&s5&"%' ORDER BY p_rank ASC", 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 %>
照片 是否上架 商品類別 編號 名稱 價格 移動排序 管理
" height="50"> <%=R1("p_check")%> <%=R1("p_kind")%> <%=R1("p_num")%> <%=R1("p_title")%> <%=R1("p_money")%> ">上移 / ">下移 ">編輯  ';">刪除
<%Call PageCSS_WEB(1,9,"active")%>
<% R1.Close() Set R1 = Nothing %>