开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Java编程 > Jsp/Servlet > 查看源码
myorder.asp
资源名称：blog.rar　[点击查看]
上传用户：syzzy1975
上传日期：2022-07-17
资源大小：670k
文件大小：6k
源码类别：

Jsp/Servlet

开发平台：

Java

myorder.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <%
  5. %><!--#include file="manage/inc/config.asp"--> 
  6. <!--#include file="inc/conn.asp"--> 
  7. <!--#include file="inc/chk.asp"--> 
  8. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  9. <html>
  10. <head>
  11. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  12. <title>406网络书店</title>
  13. <link href="style.css" rel="stylesheet" type="text/css">
  16. </head>
  18. <body>
  19. <!--#include file="head.htm"-->
  22. <table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  23.   <tr>
  24.     <td width="219" align="left" valign="top"><!--#include file="uleft.asp"-->      <br></td><td width="561" align="left" valign="top">
  25.       <br>      <table border="0" cellpadding="0" cellspacing="0">
  26.         <tr>
  27.           <td><img src="images/w.gif" width="18" height="18"></td>
  28.           <td style="color:#415373">我的订单</td>
  29.         </tr>
  30.       </table>      <br>      <table border="0" cellpadding="0" cellspacing="0" align="center"  height="0" width="100%">
  31.         <tr>
  32.           <td>
  33.             <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
  34.               <tr align="center">
  35.                 <td><font color="#FF6600"><b><font color="#000000">我 的 订 单</font></b></font></td>
  36.               </tr>
  37.               <tr>
  38.                 <td align="right">
  39.                   <div align="right"><font color="#FF6600"><b></b></font></div>                  <select name="state" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
  40.                     <option value="myorder.asp?state=0" selected>--请选择查询状态--</option>
  41.                     <option value="myorder.asp?state=0" >全部订单状态</option>
  42.                     <option value="myorder.asp?state=1" >未作任何处理</option>
  43.                     <option value="myorder.asp?state=2" >用户已经划出款</option>
  44.                     <option value="myorder.asp?state=3" >服务商已经收到款</option>
  45.                     <option value="myorder.asp?state=4" >服务商已经发货</option>
  46.                     <option value="myorder.asp?state=5" >用户已经收到货</option>
  47.                   </select></td>
  48.               </tr>
  49.             </table>
  50.             <table width="100%" border="0" align="center" cellpadding="2" cellspacing="2" >
  51.               <tr align="center">
  52.                 <td >订单号</td>
  53.                 <td >合计金额</td>
  54.                 <td >收货人</td>
  55.                 <td colspan="2" >订货人</td>
  56.                 <td >日期</td>
  57.                 <td >状态</td>
  58.               </tr>
  59.               <%set rs=server.CreateObject("adodb.recordset")
  60.   dim state
  61.   state=request.QueryString("state")
  62.   if state=0 or state="" then
  63.   select case state
  64.   case "0"
  65.   rs.open "select distinct(goods),realname,actiondate,recepit,deliverymethord,paymethord,state from orders where username='"&request.cookies(cookieName)("username")&"' and state<6 order by actiondate desc",conn,1,1
  66.   case ""
  67.   rs.open "select distinct(goods),realname,actiondate,recepit,deliverymethord,paymethord,state from orders where username='"&request.cookies(cookieName)("username")&"' and state<5 order by actiondate desc",conn,1,1
  68.   end select
  69.   else
  70.   rs.open "select distinct(goods),realname,actiondate,recepit,deliverymethord,paymethord,state from orders where username='"&request.cookies(cookieName)("username")&"' and state="&state&" order by actiondate",conn,1,1
  71.   end if
  73.   do while not rs.eof
  74.    %>
  75.               <tr bgcolor=#ffffff align="center">
  76.                 <td ><a href="chkorder.asp?dan=<%=trim(rs("goods"))%>"><%=trim(rs("goods"))%></a></td>
  77.                 <td>
  78.                   <%
  79.   dim shop,rs2
  80. set rs2=server.CreateObject("adodb.recordset")
  81. rs2.open "select * from delivery where deliveryid="&rs("deliverymethord"),conn,1,1
  82. set shop=server.CreateObject("adodb.recordset")
  83. shop.open "select sum(paid) as paid from orders where goods='"&trim(rs("goods"))&"' ",conn,1,1
  84. response.write "<font color=#FF6600>"&round(shop("paid")+rs2("fee"),1)&"元</font>"
  85. shop.close
  86. set shop=nothing
  87. rs2.close
  88. set rs2=nothing%></td>
  89.                 <td><%=trim(rs("recepit"))%></td>
  90.                 <td colspan="2"><%=trim(rs("realname"))%></td>
  91.                 <td align="center"><%=trim(rs("actiondate"))%></td>
  92.                 <td><%select case rs("state")
  93. case "1"
  94. response.write "未作任何处理"
  95. case "2"
  96. response.write "用户已经划出款"
  97. case "3"
  98. response.write "服务商已经收到款"
  99. case "4"
  100. response.write "服务商已经发货"
  101. case "5"
  102. response.write "用户已经收到货"
  103. end select%></td>
  104.               </tr>
  105.               <tr bgcolor=#ffffff align="left">
  106.                 <td colspan="7" >付款方式：
  107.                 <%set rs2=server.CreateObject("adodb.recordset")
  108.         rs2.open "select * from delivery where deliveryid="&rs("paymethord"),conn,1,1
  109.         response.Write trim(rs2("subject"))
  110.         rs2.close
  111.         set rs2=nothing%> 
  112.                 　　　　收货方式：
  113.                 <%set rs2=server.CreateObject("adodb.recordset")
  114.         rs2.open "select * from delivery where deliveryid="&rs("deliverymethord"),conn,1,1
  115.         response.Write trim(rs2("subject"))
  116.         rs2.close
  117.         set rs2=nothing
  118.         %></td>
  119.               </tr>
  120.               <tr bgcolor=#ffffff align="center">
  121.                 <td colspan="7" align="right" >&nbsp;</td>
  122.               </tr>
  123.               <%
  124.    rs.movenext
  125.   loop
  126.   rs.close
  127.   set rs=nothing%>
  128.             </table>
  129.       </table>      <br>
  130.       </td>
  131.   </tr>
  132. </table>
  134. <!--#include file="foot.htm"-->
  135. </body>
  136. </html>