📄 my_order.asp
字号:
<!--#include file="include/dbopenbd.asp" -->
<%
call checklogin()
if request("del")<>"" then call delorder()
if request("cancel")<>"" then call cancelorder()
sql = "select A.OrderNum,A.OrderTime,A.RecName,A.OrderSum,A.RecName,A.Status,B.StatusDefine"&_
" from s_orderList A,type B "&_
" where A.del<>1 and A.UserId='"&request.cookies("buyok")("userid")&"' and A.Status = B.Status order by A.OrderTime desc"
set rs=Server.Createobject("ADODB.RecordSet")
rs.Open sql,conn,1,1
%>
<HTML>
<HEAD>
<TITLE>查看订单-<%=sitename%>-<%=siteurl%></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="<%=sitedescription%>">
<meta name="keywords" content="<%=sitekeywords%>">
<link rel="stylesheet" href="include/css.css" type="text/css">
</HEAD>
<CENTER>
<!--#include file="a_top.asp"-->
<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor="#FFFFFF" class="grayline" >
<tr>
<td align="center" valign="top" width="185">
<!--#include file="user_center_menu.asp"-->
</td>
<td bgcolor="#CCCCCC" width="1"></td>
<td valign="top" bgcolor="#FfFfFf" width="570">
<TABLE border=0 width="100%" cellspacing="2" cellpadding="2" align=center>
<tr><td height=30>目前位置：<a href=main.asp>首页</a> > <a href=user_center.asp>用户中心</a> > 查看订单</td></tr>
<tr><td width="570" align="center" height="1" background="images/small/bgline.gif"></td></tr></table>
<br>
<table width="90%" border="1" cellpadding="4" cellspacing="0" bordercolor="#C0C0C0" align=center bordercolordark="#FFFFFF">
<tr align=center bgcolor="#CCCCCC"><td>订单号</td><td>提交时间</td><td>总金额</td><td>订单状态</td><td>订单操作</td></tr>
<%
if rs.eof and rs.bof then
response.write "<tr><td colspan=5 height=50 align=center>没有订单</td></tr>"
else
do while not rs.eof
%>
<tr><td><a href="order_view.asp?OrderNum=<%=rs("OrderNum")%>"><%=rs("OrderNum")%></a></td><td ><%=rs("OrderTime")%></td><td><%=formatnumber(rs("OrderSum"),2)%></td><td align="center">
<%=rs("StatusDefine")%></td><td align=center><a href="my_order.asp?cancel=<%=rs("OrderNum")%>">
<%if rs("Status")="11" then response.write "恢复" else response.write "取消"%>
</a> <span style="cursor:hand" onclick="{if(confirm('该操作不可恢复！\n\n确实删除所选订单吗？ ')){location.href='my_order.asp?Del=<%=rs("OrderNum")%>';}}">删除</span></td></tr>
<%
rs.movenext
loop
end if
%>
</table>
<%
rs.close
set rs=nothing
%>
</TD></TR></TABLE>
<!--#include file="a_bottom.asp"-->
</BODY></center>
</HTML>
<%
sub cancelorder()
sql="select * from s_orderList where OrderNum='"&aspsql(request("cancel"))&"'"
set rs=Server.Createobject("ADODB.RecordSet")
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
tishi="出错了，没有此订单！"
elseif rs("userid")<>request.cookies("buyok")("userid") then
tishi="出错了，您不能操作此订单！"
else
if rs("Status")="11" then
rs("Status")="0"
rs.update
tishi="操作成功，所选订单已被恢复！"
elseif rs("Status")="0" then
rs("Status")="11"
tishi="操作成功，所选订单已被取消！"
rs.update
else
tishi="操作失败，此订单不能自行取消！"
end if
end if
rs.close
set rs=nothing
response.write "<script language='javascript'>"
response.write "alert('"&tishi&"');"
response.write "location.href='my_order.asp';"
response.write "</script>"
end sub
sub delorder()
sql="select * from s_orderList where OrderNum='"&request("Del")&"'"
set rs=Server.Createobject("ADODB.RecordSet")
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
tishi="出错了，没有此订单！"
elseif rs("userid")<>request.cookies("buyok")("userid") then
tishi="出错了，您不能操作此订单！"
else
conn.execute("update s_orderList set del='1' where OrderNum='"&aspsql(request("Del"))&"'")
tishi="操作成功，所选订单已被删除！"
end if
response.write "<script language='javascript'>"
response.write "alert('"&tishi&"');"
response.write "location.href='my_order.asp';"
response.write "</script>"
rs.close
set rs=nothing
end sub
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -