📄 admin_shop_list.asp
字号:
<!--#include file="mdb.asp"-->
<%Admin="shop"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/FORMAT.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="inc/admin.css" type="text/css">
<title>管理中心——商品订单管理</title>
</head>
<body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<SCRIPT LANGUAGE=javascript>
function SelectAll() {
for (var i=0;i<document.selform.sel_ID.length;i++) {
var e=document.selform.sel_ID[i];
e.checked=!e.checked;
}
}
</script>
<%
'****************************************************
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
response.end
end if
dim sel_ID
if not isempty(request("sel_ID")) then
sel_ID=request("sel_ID")
if request("action")="删除选中" then
set rss=server.CreateObject("adodb.recordset")
sqlstrs="select * from shop_orders where id in ("&sel_ID&")"
rss.open sqlstrs,conn,1,3
do while not rss.eof
set rssc=server.CreateObject("adodb.recordset")
sqlstrsc="select * from shop_basket where order_number='"&rss("order_number")&"'"
rssc.open sqlstrsc,conn,1,3
do while not rssc.eof
rssc.delete
rssc.movenext
loop
rssc.close
rss.delete
rss.movenext
loop
rss.close
end if
response.Write"<script language=javascript>alert(' 恭喜您 ！ 删除操作成功！');this.location.href='admin_shop_list.asp';</script>"
end if
user_id=request("user_id")
order_number=request("order_number")
hxcms=request("hxcms")
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr class=Hxcmsss>
<td colspan="3">订单管理(您可以在这里进行用户订单相关操作)</td>
</tr>
</table>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr class=Hxcmsds align="center">
<td>
<a href="?"><%if hxcms="" then response.write"<font color=red>" end if%>全部订单</font></a> |
<a href="?hxcms=hg"><%if hxcms="hg" then response.write"<font color=red>" end if%>有换购商品定单</font></a> |
<a href="?hxcms=wcl"><%if hxcms="wcl" then response.write"<font color=red>" end if%>未处理定单</font></a> |
<a href="?hxcms=zf"><%if hxcms="zf" then response.write"<font color=red>" end if%>已支付定单</font></a> |
<a href="?hxcms=sk"><%if hxcms="sk" then response.write"<font color=red>" end if%>支付已确认定单</font></a> |
<a href="?hxcms=zt"><%if hxcms="zt" then response.write"<font color=red>" end if%>已发货定单</font></a> |
<a href="?hxcms=sh"><%if hxcms="sh" then response.write"<font color=red>" end if%>已收货定单</font></a> |
<a href="?hxcms=cw"><%if hxcms="cw" then response.write"<font color=red>" end if%>无效的定单</font></a>
</td>
</tr>
</table>
<form name="selform" method="post" action="">
<table border="0" cellspacing="1" cellpadding="2" bgcolor="#FFFFFF" width="98%" align="center">
<tr align="center" class=Hxcmsqs>
<td width="3%" height="26">ID</td>
<td width="*">订单号</td>
<td width="13%">下单会员</td>
<td width="12%">支付金额</td>
<td width="12%">支付方式</td>
<td width="18%">下单时间</td>
<td width="4%">支付</td>
<td width="4%">确认</td>
<td width="4%">发货</td>
<td width="4%">收货</td>
<td width="4%">无效</td>
<td width="5%">操作</td>
</tr>
<%
sql="select * from shop_orders where user_id<>'' "
if hxcms="" then sql=sql + ""
if hxcms="hg" then sql=sql + " and hg=true"
if hxcms="wcl" then sql=sql + " and order_sk=0 and order_zt=False and order_sh=0 and order_cw=false"
if hxcms="zf" then sql=sql + " and order_zf=true"
if hxcms="sk" then sql=sql + " and order_sk=1"
if hxcms="zt" then sql=sql + " and order_zt=true"
if hxcms="sh" then sql=sql + " and order_sh=1"
if hxcms="cw" then sql=sql + " and order_cw=true"
if user_id<>"" then sql=sql + " and user_id='"&user_id&"'"
if order_number<>"" then sql=sql + " and order_number like '%"&order_number&"%'"
sql=sql + " order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 3, 3
if rs.eof then
%>
<tr align="center" class=Hxcmsds>
<td colspan="12" height="50">没有任何订单信息！</td>
</tr>
<%else%>
<%
if not isempty(request("page"))then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=25
rs.AbsolutePage=pagecount
%>
<% do while not rs.eof %>
<tr align="center" class=Hxcmsds>
<td height="26"><input type="checkbox" name="sel_ID" id="sel_ID" value="<%=rs("id")%>"></td>
<td><a href="admin_shop_viwes.asp?id=<%=rs("id")%>"><%=rs("order_number")%></a></td>
<td><%=rs("user_id")%></td>
<td><%=rs("summoney")%><%if rs("hg")=true then response.write"<font color=red>(换)</font>" end if%></td>
<td><%=rs("paymenttype")%></td>
<td><%=rs("order_time")%></td>
<td>
<%if rs("order_zf")=true then response.write"<strong><font color=red>√</font></strong>" else response.write"×" end if%>
</td>
<td>
<%if rs("order_sk")="1" then response.write"<strong><font color=red>√</font></strong>" else response.write"×" end if%>
</td>
<td>
<%if rs("order_zt")=true then response.write"<strong><font color=red>√</font></strong>" else response.write"×" end if%>
</td>
<td>
<%if rs("order_sh")="1" then response.write"<strong><font color=red>√</font></strong>" else response.write"×" end if%>
</td>
<td>
<%if rs("order_cw")=true then response.write"<strong><font color=red>√</font></strong>" else response.write"×" end if%>
</td>
<td> <a href="admin_shop_viwes.asp?id=<%=rs("id")%>"><b>处理</b></a></td>
</tr>
<%
rs.movenext
i=i+1
if i >= rs.pagesize then exit do
loop
%>
<tr class=Hxcmsds>
<td colspan="12" height="30">批量管理操作：本页全选
<input type="checkbox" name="checkbox" value="checkbox" onClick="javascript:SelectAll()">
<input onClick="{if(confirm('确定删除选定的定单吗?')){this.document.selform.submit();return true;}return false;}" type=submit value=删除选中 name=action class="button"></td></form>
</tr>
<tr class=Hxcmsqs>
<form action="admin_shop_list.asp" method="post">
<td height="35" colspan="12">
<div align="center"> 共 <b><%=rs.recordcount%></b> 张订单, 页次: <b><font color=red><%=pagecount%></font>/<%=rs.pagecount%></b>,
当前从第
<%
if pagecount <= 1 then
response.write "<font color=red>1</font>"
else
response.write "<font color=red>" & pagecount*rs.pagesize-rs.pagesize+1 & "</font>"
end if
%>
张开始。
<% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
<a href="admin_shop_list.asp?user_id=<%=user_id%>&hxcms=<%=hxcms%>&page=<%=cstr(pagecount+1)%>">下一页</a>
<% end if %>
<% if rs.pagecount>1 and rs.pagecount=pagecount then %>
<a href="admin_shop_list.asp?user_id=<%=user_id%>&hxcms=<%=hxcms%>&page=<%=cstr(pagecount-1)%>">上一页</a>
<%end if%>
<% if pagecount<>1 and rs.pagecount<>pagecount then%>
<a href="admin_shop_list.asp?user_id=<%=user_id%>&hxcms=<%=hxcms%>&page=<%=cstr(pagecount-1)%>">上一页</a>
<a href="admin_shop_list.asp?user_id=<%=user_id%>&hxcms=<%=hxcms%>&page=<%=cstr(pagecount+1)%>">下一页</a>
<% end if%>
直接到第
<select name="page">
<%for i=1 to rs.pagecount%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
页
<input type="submit" name="go" value="跳转" class="button">
<input type="hidden" name="user_id" value=<%=user_id%>>
<input type="hidden" name="hxcms" value=<%=hxcms%>>
</div>
</td>
</form>
</tr>
</table>
<%
end if
rs.close
set rs=nothing
'****************************************************
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -