📄 order.asp
字号:
<!--#include file="menkan.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="page.asp"-->
<%
action=request.QueryString("action")
uid=request.QueryString("uid")
fa=request.QueryString("fa")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="Image/Main.css" rel="stylesheet" type="text/css" />
<title>订单管理</title>
</head>
<body>
<!--#include file="top.asp"-->
<%if action="list" then%>
<table width="760" border="1"align="center" cellpadding="3" cellspacing="1" bordercolor="#CCCCCC" style="border-collapse: collapse">
<tr>
<td colspan="6">
【<a href="?action=list&fa=false">未发货订单</a>】
【<a href="?action=list&fa=true">已发货订单</a>】</td>
</tr>
<tr>
<td colspan="6" align="center" bgcolor="#eeeeee">订单列表</td>
</tr>
<tr>
<td width="5%" align="center">ID</td>
<td width="25%" align="center">订单编号</td>
<td width="20%" align="center">总件数</td>
<td width="15%" align="center">总金额</td>
<td width="15%" align="center">会员账号</td>
<td width="20%" align="center">管理操作</td>
</tr>
<%
Set mypage=new xdownpage
mypage.getconn=conn
if uid=""then
if fa="false" then
mypage.getsql="select * from orders where fahuo=0 order by orderID desc"
elseif fa="true" then
mypage.getsql="select * from orders where fahuo=-1 order by orderID desc"
end if
else
if fa="false" then
mypage.getsql="select * from orders where userid="&uid&" and fahuo=0 order by orderID desc"
elseif fa="true" then
mypage.getsql="select * from orders where userid="&uid&" and fahuo=-1 order by orderID desc"
end if
end if
mypage.pagesize=16
set rspage=mypage.getrs()
Response.Write("<br/>")
for i=1 to mypage.pagesize
if not rspage.eof then
%>
<tr>
<td align="center"><%=i%></td>
<td align="left"><%=rspage("orders")%></td>
<td align="center"><%=rspage("TotalNum")%></td>
<td align="center"><%=rspage("TotalMoney")%></td>
<td align="center">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from users where uid="&rspage("userid")
rs.open sql,conn,1,1
response.write rs("uname")
rs.close
set rs=nothing
%></td>
<td align="center">
<%if fa="false" then%>
【<a href="#" onClick="if(confirm('确定发货吗?'))location.href='?action=fahuo&orderid=<%=rspage("orderid")%>';else return;">发货</a>】<%end if%></td>
</tr>
<%
rspage.movenext
else
exit for
end if
next
%>
<tr>
<td colspan="6" align="right"><%mypage.showpage()%></td>
</tr>
</table>
<%
Set mypage=nothing
end if
%>
<!--#include file="foot.asp"-->
</body>
</html>
<%
if action="fahuo"then
orderid=request.QueryString("orderid")
conn.execute("update orders set fahuo=true where orderid="&orderid)
response.Redirect "?action=list&fa=false"
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -