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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
Dingdan.asp
资源名称：shop2.rar　[点击查看]
上传用户：btntkt
上传日期：2021-04-16
资源大小：5296k
文件大小：14k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

DOS

Dingdan.asp：源码内容
  1. <!--#include file="conn.asp"-->
  2. <!--#include file="config.asp"-->
  3. <html>
  4. <head>
  5. <title>网软天下购物系统，网络购物系统,asp购物系统,免费购物系统,网上商城购物系统。--订单查询</title>
  6. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  7. <link href="skin/skin<%=skinid%>/css.css" rel="stylesheet" type="text/css">
  8. </head>
  9. <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
  10. <!--#include file="include/head.asp"-->
  11. <table width="1000" border="0" align="center" cellpadding="0" cellspacing="0">
  12.   <tr>
  13.     <td width="41" valign="top"><table width="100%" height="184" border="0" cellpadding="0" cellspacing="0">
  14.       <tr>
  15.         <td height="30" align="right" valign="top"><img src="skin/skin<%=skinid%>/jiao.gif" width="15" height="17"></td>
  16.       </tr>
  17.       <tr>
  18.         <td height="90"><div align="right"><img src="images/ttts.gif" width="26" height="110" /></div></td>
  19.       </tr>
  20.       <tr>
  21.         <td height="30">&nbsp;</td>
  22.       </tr>
  23.     </table></td>
  24.     <td width="190" valign="top"style="BORDER-bottom:<%=skincolor%> 1px solid;BORDER-left:<%=skincolor%> 1px solid; BORDER-right:<%=skincolor%> 1px solid;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  25.   <tr>
  26.         <td><table width="190" height="190" border="0" cellpadding="0" cellspacing="0">
  27.           <tr>
  28.               <td align="center" valign="middle"  background="skin/skin<%=skinid%>/index_2.gif"><!--#include file="userinfo.asp"--></td>
  29.           </tr>
  30.         </table></td>
  31.       </tr>
  32.       <tr>
  33.         <td><img src="images/index_4.gif" width="190" height="12" alt="" /></td>
  34.       </tr>
  35.       <tr>
  36.         <td><!--#include file="shopcart.asp"--></td>
  37.       </tr>
  38.       <tr>
  39.         <td></td>
  40.       </tr>
  41.     </table></td>
  42.     <td valign="top" width=700><table width="100%" border="0" cellspacing="0" cellpadding="0">
  43.       <tr>
  44.           <td background="skin/skin<%=skinid%>/pdbg01.gif"" height=28>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
  45.             <a href=index.asp>网软天下购物系统，网络购物系统,asp购物系统,免费购物系统,网上商城购物系统。</a> >> 订单查询结果</td>
  46.       </tr>
  47.       <tr>
  48.         <td><%  if request("dan")="" then %><br><br><br><br>
  49.             <table width="90%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#cccccc">
  50.               <tr align="center"> 
  51.                 <td bgcolor="f1f1f1"><b>商品订单查询</b></td>
  52.               </tr>
  53.               <form name="form" method="post" action="dingdan.asp">
  54.                 <tr bgcolor="#FFFFFF"> 
  55.                   <td align="center" style='PADDING-LEFT: 5px'>请输入你的查询号： 
  56.                     <input type="text" class="wenbenkuang" name="dan">
  57.                     <input type="submit" name="Submit" value="订单查询">
  58.                   </td>
  59.                 </tr>
  60.                 <tr bgcolor="#FFFFFF">
  61.                   <td align="center" style='PADDING-LEFT: 5px'>&nbsp;</td>
  62.                 </tr>
  63.               </form>
  64.             </table><%end if %>
  65.             <br>
  66.             <%dim dingdan
  67. dingdan=request("dan")
  68. if dingdan<>"" then
  69. set rs=server.CreateObject("adodb.recordset")
  70. rs.open "select products.bookid,products.shjiaid,products.bookname,products.shichangjia,products.huiyuanjia,orders.actiondate,orders.shousex,orders.danjia,orders.feiyong,orders.fapiao,orders.userzhenshiname,orders.shouhuoname,orders.dingdan,orders.youbian,orders.liuyan,orders.zhifufangshi,orders.songhuofangshi,orders.zhuangtai,orders.zonger,orders.useremail,orders.usertel,orders.shouhuodizhi,orders.bookcount from products inner join orders on products.bookid=orders.bookid where dingdan='"&dingdan&"' ",conn,1,1
  71. if rs.eof and rs.bof then
  72. response.write "<script>alert('无此订单,请重新输入！');javascript:history.go(-1);</script>"
  73. response.end
  74. end if
  75. %>
  76.             <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
  77.             <tr>
  78.               <td height="10">
  79.                   <table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#cccccc">
  80.                     <tr align="center" bgcolor="f1f1f1"> 
  81.                       <td><strong>商品名称</strong></td>
  82.                       <td><strong>订购数量</strong></td>
  83.                       <td><strong>会员价格</strong></td>
  84.                       <td><strong>金额小计</strong></td>
  85.                   </tr>
  86.                   <%zongji=0
  87. do while not rs.eof%>
  88.                 <tr bgcolor="#FFFFFF">
  89.                   <td align="center" style='PADDING-LEFT: 5px'><a href=products.asp?id=<%=rs("bookid")%> ><%=trim(rs("bookname"))%></a></td>
  90.                     <td align="center"><%=rs("bookcount")%></td>
  91.                     <td align="center"><%=rs("danjia")&"元"%></td>
  92.                     <td align="center"><%=rs("zonger")&"元"%></td>
  93.                   </tr>
  94.                 <%zongji=rs("zonger")+zongji
  95. feiyong=rs("feiyong")
  96. rs.movenext
  97. loop
  98. rs.movefirst%>
  99.          <tr bgcolor="#FFFFFF">
  100.           <td colspan="4"align="right">订单总额：<%=zongji%>元＋费用(<%=feiyong%>元)　　共计：<font color="#ff0000">
  101.   <%=formatnumber(zongji+feiyong,2)%></font>元 
  102.                       &nbsp;&nbsp;&nbsp;&nbsp;</td>
  103.                   </tr>
  104.                 </table></td>
  105.             </tr>
  106.             <tr>
  107.               <td>
  108.                   <table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#cccccc" align="center">
  109.                     <tr bgcolor="f1f1f1"> 
  110.                       <td colspan="2">　<strong>您此次订单号为：[ <%=dingdan%> ]详细信息如下：</strong></td>
  111.                     </tr>
  112.                     <tr bgcolor="#FFFFFF"> 
  113.                       <td width="15%" align="right">订单状态：</td>
  114.                       <td> <table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
  115.                           <tr> 
  116.                             <td> 
  117.                               <%zhuang()%>
  118.                             </td>
  119.                           </tr>
  120.                         </table></td>
  121.                     </tr>
  122.                     <tr bgcolor="#FFFFFF"> 
  123.                       <td align="right">收货人姓名：</td>
  124.                       <td style="PADDING-LEFT: 12px"><%=trim(rs("userzhenshiname"))%></td>
  125.                     </tr>
  126.                     <tr bgcolor="#FFFFFF"> 
  127.                       <td align="right">收货地址：</td>
  128.                       <td style="PADDING-LEFT: 12px"><%=trim(rs("shouhuodizhi"))%></td>
  129.                     </tr>
  130.                     <tr bgcolor="#FFFFFF"> 
  131.                       <td align="right">支付方式：</td>
  132.                       <td style="PADDING-LEFT: 12px"> 
  133.                         <%set rs2=server.CreateObject("adodb.recordset")
  134.     rs2.Open "select * from deliver where songid="&rs("zhifufangshi"),conn,1,1
  135.     response.Write trim(rs2("subject"))
  136.     rs2.close
  137.     set rs2=nothing%>
  138.                       </td>
  139.                     </tr>
  140.                     <tr bgcolor="#FFFFFF"> 
  141.                       <td align="right">联系电话：</td>
  142.                       <td style="PADDING-LEFT: 12px"><%=trim(rs("usertel"))%></td>
  143.                     </tr>
  144.                     <tr bgcolor="#FFFFFF"> 
  145.                       <td align="right">电子邮件：</td>
  146.                       <td style="PADDING-LEFT: 12px"><%=trim(rs("useremail"))%></td>
  147.                     </tr>
  148.                     <tr bgcolor="#FFFFFF"> 
  149.                       <td align="right">送货方式：</td>
  150.                       <td style="PADDING-LEFT: 12px"> 
  151.                         <%set rs2=server.CreateObject("adodb.recordset")
  152.     rs2.Open "select * from deliver where songid="&rs("songhuofangshi"),conn,1,1
  153.     response.Write trim(rs2("subject"))
  154.     rs2.Close
  155.     set rs2=nothing%>
  156.                       </td>
  157.                     </tr>
  158.                     <tr bgcolor="#FFFFFF"> 
  159.                       <td align="right">邮编：</td>
  160.                       <td style="PADDING-LEFT: 12px"><%=trim(rs("youbian"))%></td>
  161.                     </tr>
  162.                     <tr bgcolor="#FFFFFF"> 
  163.                       <td align="right">是否要发票：</td>
  164.                       <td style="PADDING-LEFT: 12px"> 
  165.                         <%if rs("fapiao")=1 then %>
  166.                         <font color=red>需要发票</font> 
  167.                         <%else%>
  168.                         不需要发票 
  169.                         <%end if%>
  170.                       </td>
  171.                     </tr>
  172.                     <tr bgcolor="#FFFFFF"> 
  173.                       <td align="right">您的留言：</td>
  174.                       <td style="PADDING-LEFT: 12px"><%=trim(rs("liuyan"))%></td>
  175.                     </tr>
  176.                     <tr bgcolor="#FFFFFF"> 
  177.                       <td align="right">下单日期：</td>
  178.                       <td style="PADDING-LEFT: 12px"><%=rs("actiondate")%></td>
  179.                     </tr>
  180.                   </table>
  181.                 </td>
  182.               </tr>
  183.             </table>
  184.             <br>
  185.           <%end if
  186. sub zhuang()
  187. select case rs("zhuangtai")
  188. case "1"%>
  189.           <input name="checkbox" type="checkbox" DISABLED id="checkbox" value="checkbox" checked>
  190.           未作任何处理<span style='font-family:Wingdings;'>à</span>
  191.           <%if rs("zhifufangshi")<>4 then %>
  192.           <input name="zhuangtai" type="checkbox" id="zhuangtai" value="2" checked>
  193.           用户已经划出款<span style='font-family:Wingdings;'>à</span>
  194.           <input type="checkbox" name="checkbox2" value="checkbox" DISABLED>
  195.           服务商已经收到款<span style='font-family:Wingdings;'>à</span>
  196.           <input type="checkbox" name="checkbox3" value="checkbox" DISABLED>
  197.           服务商已经发货<span style='font-family:Wingdings;'>à</span>
  198.           <input type="checkbox" name="checkbox4" value="checkbox" DISABLED>
  199.           用户已经收到货
  200.           <%else%>
  201.           <input name="zhuangtai" type="checkbox" id="zhuangtai" value="3">
  202.           订单已确认<span style='font-family:Wingdings;'>à</span>
  203.           <input type="checkbox" name="checkbox4" value="checkbox" DISABLED>
  204.           订单已完成
  205.           <%end if%>
  206.           <%case "2"%>
  207.           <input name="checkbox" type="checkbox" DISABLED id="checkbox" value="checkbox" checked>
  208.           未作任何处理<span style='font-family:Wingdings;'>à</span>
  209.           <input name="checkbox" type="checkbox" id="zhuangtai" value="2" checked DISABLED>
  210.           用户已经划出款<span style='font-family:Wingdings;'>à</span>
  211.           <input type="checkbox" name="checkbox2" value="checkbox" DISABLED>
  212.           服务商已经收到款<span style='font-family:Wingdings;'>à</span>
  213.           <input type="checkbox" name="checkbox3" value="checkbox" DISABLED>
  214.           服务商已经发货<span style='font-family:Wingdings;'>à</span>
  215.           <input type="checkbox" name="checkbox4" value="checkbox" DISABLED>
  216.           用户已经收到货
  217.           <%case "3"%>
  218.           <input name="checkbox" type="checkbox" DISABLED id="checkbox" value="checkbox" checked>
  219.           未作任何处理<span style='font-family:Wingdings;'>à</span>
  220.           <%if rs("zhifufangshi")<>4 then %>
  221.           <input name="checkbox" type="checkbox" id="zhuangtai" value="2" checked DISABLED>
  222.           用户已经划出款<span style='font-family:Wingdings;'>à</span>
  223.           <input type="checkbox" name="checkbox2" value="checkbox" checked DISABLED>
  224.           服务商已经收到款<span style='font-family:Wingdings;'>à</span>
  225.           <input type="checkbox" name="checkbox3" value="checkbox" DISABLED>
  226.           服务商已经发货<span style='font-family:Wingdings;'>à</span>
  227.           <input type="checkbox" name="checkbox4" value="checkbox" DISABLED>
  228.           用户已经收到货
  229.           <%else%>
  230.           <input name="checkbox" type="checkbox" DISABLED id="checkbox" value="checkbox" checked>
  231.           订单已确认<span style='font-family:Wingdings;'>à</span>
  232.           <input type="checkbox" name="checkbox1" value="checkbox" >
  233.           订单已完成
  234.           <%end if%>
  235.           <%case "4"%>
  236.           <input name="checkbox" type="checkbox" DISABLED id="checkbox" value="checkbox" checked>
  237.           未作任何处理<span style='font-family:Wingdings;'>à</span>
  238.           <input name="checkbox" type="checkbox" id="zhuangtai" value="2" checked DISABLED>
  239.           用户已经划出款<span style='font-family:Wingdings;'>à</span>
  240.           <input type="checkbox" name="checkbox2" value="checkbox" checked DISABLED>
  241.           服务商已经收到款<span style='font-family:Wingdings;'>à</span>
  242.           <input type="checkbox" name="checkbox3" value="checkbox" checked DISABLED>
  243.           服务商已经发货<span style='font-family:Wingdings;'>à</span>
  244.           <input type="checkbox" name="zhuangtai" value="5" >
  245.           用户已经收到货
  246.           <%case "5"%>
  247.           <input name="checkbox" type="checkbox" DISABLED id="checkbox" value="checkbox" checked>
  248.           未作任何处理<span style='font-family:Wingdings;'>à</span>
  249.           <%if rs("zhifufangshi")<>4 then %>
  250.           <input name="checkbox" type="checkbox" id="zhuangtai" value="2" checked DISABLED>
  251.           用户已经划出款<span style='font-family:Wingdings;'>à</span>
  252.           <input type="checkbox" name="checkbox2" value="checkbox" checked DISABLED>
  253.           服务商已经收到款<span style='font-family:Wingdings;'>à</span>
  254.           <input type="checkbox" name="checkbox3" value="checkbox" checked DISABLED>
  255.           服务商已经发货<span style='font-family:Wingdings;'>à</span>
  256.           <input type="checkbox" name="checkbox4" value="checkbox" checked DISABLED>
  257.           用户已经收到货
  258.           <%else%>
  259.           <input name="checkbox3" type="checkbox" DISABLED value="checkbox" checked>
  260.           订单已确认<span style='font-family:Wingdings;'>à</span>
  261.           <input type="checkbox" name="checkbox4" value="checkbox" checked DISABLED>
  262.           订单已完成
  263.           <%end if%>
  264.           <%end select
  265. end sub%>
  266.           <br></td></tr>
  267.     </table></td>
  268.     <td width="68" valign="top"style="BORDER-left:<%=skincolor%> 1px solid;">&nbsp;</td>
  269.   </tr>
  270. </table>
  271. <!--#include file="include/foot.asp"-->
  272. </body>
  273. </html>