📄 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">
<link rel="stylesheet" href="cycoo15.css" type="text/css">
</HEAD>
<body bgcolor="#011D32" background="images/bggreen.gif" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#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" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" align="center">
  <tr> 
    <td height="1" bgcolor="#FFFFFF"></td>
  </tr>
  <tr> 
    <td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="760" height="197">
        <param name="movie" value="menu3.swf">
        <param name="quality" value="high">
        <embed src="menu3.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="760" height="197"></embed></object></td>
  </tr>
  <tr> 
    <td bgcolor="A5B2C6" height="18" class="new">
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td> 
            <!--#include file="menu/searchbar.asp"-->
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<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
%>
  </TD>
</TR>
</TABLE>
<!--#include file="menu/bottom.asp"-->
</BODY>
</HTML>
⌨️ 快捷键说明

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