?? my_order.asp
字號:
<!--#include file="Comm/conn.asp" -->
<HTML>
<HEAD>
<TITLE>個人賬號-<%=sitename%>-<%=siteurl%></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="shop.css" type="text/css">
</HEAD>
<body 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 + -