⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 list_order.asp

📁 线上售货网管理模组
💻 ASP
字号:
🔍 
<%
'*****简体中文版 by 资源搜罗站 [http://www.99ss.net]*****
Select case request.form("D1")
  case "可多选删除"
    man=Split(request("choice"), ", " )
    ID=request("choice")
    page=request("page")
    Set conn=Server.CreateObject("ADODB.Connection")
    param = "driver={Microsoft Access Driver (*.mdb)}"
    conn.Open param & ";dbq=" & Server.MapPath("../cd.mdb")
    For i=0 To UBound(man)
      Set rs=Server.CreateObject("ADODB.Recordset")
      sqlstr="select * from ordermem where OrderID=" &man(i)
      rs.open sqlstr,conn,3,2
      If rs.recordcount<>0 Then
        rs("use")=1
        rs.update
      End If
      rs.close
    Next
    conn.close
    response.redirect "list_order.asp?page="&page
End select

select case request.form("O1")
  case "已删除订单"
    ID=request("choice")
    page=request("page")
    response.redirect "arun_order.asp?page="&page
end select
Myself=Request.ServerVariables("PATH_INFO")
If Request("Page")=Empty Then
  Page=1
Else
  Page=cint(Request("Page"))
End If
%>
<HTML>
<HEAD>
<TITLE>Chome购物车订单列表</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link REL="stylesheet" HREF="../style.css" TYPE="text/css">
</head>
<body bgcolor=cfe3f2 marginheight=3 marginwidth=0 leftmargin=0 topmargin=3 bgproperties=fixed>
<CENTER>
<img src=../img/order.gif width=298 height=88><br><br>
<FORM METHOD=POST ACTION=<%=Myself%>>
<%
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("../CD.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from ordermem where use=0"
rs.open sqlstr,conn,3,2
RS.PageSize = 20
If Not rs.eof Then
  RS.AbsolutePage = PAGE
End If
pagecount=rs.pagecount
I=1
do until rs.EOF or I > RS.PageSize
  Response.write "<table border=2 cellspacing=1 cellpadding=2 WIDTH='96%'>"
  Response.write "<tr bgcolor=ddddff><th width='5%'><input type=radio name=t value=p checked></th>"
  Response.write "<th width='15%'>订购者</th>"
  Response.write "<th width='15%'>联系电话</th>"
  Response.write "<th width='40%'>通讯地址</th>"
  Response.write "<th width='25%'>电子信箱</th></tr>"
  Response.write "<tr bgcolor=ffffdd><th><input type=checkbox name=choice value="&rs("OrderID")&"></th>"
  Response.write "<td>"&rs("cname")&"</td>"
  Response.write "<td>"&rs("tel")&"</td>"
  Response.write "<td>"&rs("address1")&"</td>"
  Response.write "<td>"&rs("email")&"</td></tr>"
  Response.write "<tr><td colspan=5>"&rs("ordercontent")&"</td></tr>"
  Response.write "</table><br>"
  rs.movenext
  I=I+1
loop
rs.close
conn.close
%>
<input type="hidden" name="page" value="<%=page%>">
<input type="submit" name="D1" value="可多选删除">
<input type="submit" name="O1" value="已删除订单">
</FORM>
<%
If page>1 Then
  Response.write "<a href=list_order.asp?page="&page-1&">上一页</a>　"
End If
  Response.write "页 <font face=Arial><b>"&pagecount&" / "
  Response.write page &"</b></font>　"
For j=1 to pagecount
  IF J <> page THEN
    response.write "<a href=list_order.asp?page="&j&">"&j&"</a>　"
  End If
Next
If page<pagecount Then
  Response.write "<a href=list_order.asp?page="&page+1&">下一页</a>　"
End If
%>
<br><br>
</center>
</body>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -