📄 my_order.asp

📁 全功能网上商城免费版
💻 ASP
字号:
<!--#include file="Comm/conn.asp" -->
<HTML>
<HEAD>
<TITLE>个人账号-<%=sitename%>-<%=siteurl%></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Robots" content="index,follow">
<meta name="Abstract" content="CycooShop">
<meta name="DC.Publisher" content="Cycoo Net Studio">
<link rel="stylesheet" href="shop.css" type="text/css">
</HEAD>
<body bgcolor="#011D32" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="images/fig_background.gif">
<!--#include <!--#include file="menu/topbar.asp"-->
<%

if session("loginpass")<>"ok" then
	errstr="<TABLE width=760 border=0 cellpadding=5 cellspacing=3 align=center bgcolor='#FFFFFF'><TR><TD align=center height=80 valign=bottom>您没有登陆，或者登陆超时，请重新登陆一次！"
	response.write errstr & "</TD></TR></TABLE>"
	call re_login()
else 
	if request("Del")<>"" then
	'如果是顾客取消则设置状态为81
	conn.execute("update OrderList set Status='11' where OrderNum='"&request("Del")&"'")
	end if
	call ok_login()
end if

sub re_login()
%>
<table width="760" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="#FFFFFF"><TR>
<TD height=340 align=center valign=middle>
<!--#include file="loginbox.asp"-->
</TD>
</TR>
</TABLE>


<%
end sub

sub ok_login()
%>

<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF" height=340>
<TR><TD width=150 valign="top">
<!--#include file="my_accounts_menu.asp"-->
    </TD>
	<TD bgcolor="#CCCCCC" height="1" width=1></TD>
<%
sqlinfo = "select A.OrderNum,A.OrderTime,A.RecName,A.OrderSum,A.RecName,A.Status,B.StatusDefine"&_
          " from OrderList A,OrderStatustype B "&_
		  " where A.UserId='"&session("estore_userid")&"' and A.Status = B.Status order by A.OrderTime desc"
set rsorder=Server.Createobject("ADODB.RecordSet")
rsorder.Open sqlinfo,conn,1,1
%>
	<TD align=center valign="top">
	<TABLE border=0 width=100% cellspacing="2" cellpadding="2" align=center>
<tr><td  height=30>目前位置：个人空间 </td></tr>
<tr><td width="569"  align="center" height="1" background="images/bg_xg_01.gif"></td></tr></table>
<br>
      <table width="95%" border="1" cellpadding="1" cellspacing="1" bordercolor="#FFCC99">
      <tr> 
          <td colspan="6"><strong>这是您的订单资料区：</strong></td>
        </tr>
<tr><td width="80"><b>订单号</b></td><td width=100><B>下单时间</B></td><td><B>总金额</B></td><td ><B>收货人</B></td><td width="100"><B>订单状态</B></td></tr>
 
 <%if rsorder.eof and rsorder.bof  then
 response.write "<tr><td colspan=7 height=50 align=center><b>您暂时没有有效的订单!</b></td></tr>"
 else 
 do while not rsorder.eof 
 %>
<tr> <td><a href="my_order_detail.asp?OrderNum=<%=rsorder("OrderNum")%>"><%=rsorder("OrderNum")%></a></td><td ><%=rsorder("OrderTime")%></td><td><%=rsorder("OrderSum")%></td><td ><%=rsorder("RecName")%></td>
<td><%
if rsorder("Status")=0 then 
%>
<%=rsorder("StatusDefine")%> <a href="my_order.asp?Del=<%=rsorder("OrderNum")%>"><b>[取消订单]</b></a>
<%  
else
%>
<%=rsorder("StatusDefine")%>  
<%  
end if

rsorder.movenext
loop
%>
</td></tr>
 </table>

<%
set rsorder=nothing
end if
%>	  
 <br>
  </TD>
</TR>
</TABLE>
<%
end sub
%>
</table>
<!--#include file="menu/bottom.asp"-->
</BODY>
</HTML>
⌨️ 快捷键说明

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