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

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

Jsp/Servlet

开发平台：

Java

vorder.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <!--#include file="inc/config.asp"-->
  3. <!--#include file="inc/conn.asp"--> 
  4. <!--#include file="inc/chk.asp"--> 
  5. <%
  6. if session("rank")>1 then
  7. call Msgbox("对不起，您的权限不够！","Back","None")
  8. response.End
  9. end if
  10. %>
  12. <%
  13. dim action,goods,username
  14. goods=request.QueryString("dan")
  15. username=request.QueryString("username")
  16. set rs=server.CreateObject("adodb.recordset")
  17. rs.open "select product.id,product.name,product.price1,product.price2,product.vipprice,orders.actiondate,orders.sex,orders.realname,orders.recepit,orders.goods,orders.postcode,orders.comments,orders.paymethord,orders.deliverymethord,orders.state,orders.paid,orders.useremail,orders.usertel,orders.address,orders.productnum from product inner join orders on product.id=orders.id where orders.username='"&username&"' and goods='"&goods&"' ",conn,1,1
  18. if rs.eof and rs.bof then
  19. call MsgBox("此订单中有商品已被管理员删除，无法进行正确计算。","Close","None")
  20. response.End
  21. end if
  24. action=request.QueryString("action")
  26. select case action
  27. case "save"
  28. if request("state")<>"" then
  29. conn.execute "update orders set state="&request("state")&" where goods='"&goods&"' "
  30. end if
  31. call MsgBox("订单状态修改成功","GoUrl","porder.asp")
  32. response.Write goods
  33. case "del"
  34. conn.execute "delete from orders where goods='"&goods&"' "
  35. call MsgBox("订单删除成功！","GoUrl","porder.asp")
  36. end select
  39. %>
  40. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  41. <html>
  42. <head>
  43. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  44. <title>406网络书店</title>
  45. <link href="../style.css" rel="stylesheet" type="text/css">
  48. </head>
  50. <body>
  51. <!--#include file="head.htm"-->
  53. <table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  54.   <tr>
  55.     <td width="219" align="left" valign="top"><br>
  56.       <!--#include file="menu.htm"-->
  58.         <br></td><td width="561" align="left" valign="top">
  59.       <br>      <table border="0" cellpadding="0" cellspacing="0">
  60.         <tr>
  61.           <td><img src="../images/w.gif" width="18" height="18"></td>
  62.           <td style="color:#415373">查看</td>
  63.         </tr>
  64.       </table>      <br>      <table width="100%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
  65.         <tr>
  66.           <td colspan="2" align="center">
  67.             <table width="100%" border="0" cellspacing="0" cellpadding="0">
  68.               <tr>
  69.                 <td width="90%" align="center">订单号：<%=goods%> 详细资料：</td>
  70.                 <td width="10%" align="center">
  71.                   <input type="button" name="Submit4" value="打 印" onClick="javascript:window.print()">
  72.                 </td>
  73.               </tr>
  74.           </table></td>
  75.         </tr>
  76.         <tr>
  77.           <td colspan="2">订单状态：
  78.             <br>
  79.             <br>            <table width="100%" align="center" border="0" cellspacing="1" cellpadding="0" >
  80.               <form name="form1" method="post" action="vorder.asp?dan=<%=goods%>&action=save&username=<%=username%>">
  81.                 <tr >
  82.                   <td align="right"  >
  83.                     <%grade()%>
  84.                     <br>
  85.                     <br>
  86.                     <br>
  87.                     <input type="submit" name="Submit" value="修改订单状态"></td>
  88.                 </tr>
  89.               </form>
  90.           </table></td>
  91.         </tr>
  92.         <tr>
  93.           <td colspan="2" valign="top"><br>
  94.             商品列表：
  95.             <br>
  96.             <br>            <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
  97.               <tr align="center" height="20">
  98.                 <td WIDTH="40%">商品名称</td>
  99.                 <td WIDTH="12%">订购数量</td>
  100.                 <td WIDTH="12%">市场价</td>
  101.                 <td WIDTH="12%">会员价格</td>
  102.                 <td WIDTH="12%">VIP会员价</td>
  103.                 <td WIDTH="12%">金额小计</td>
  104.               </tr>
  105.               <%dim iii
  106. do while not rs.eof%>
  107.               <tr bgcolor="#FFFFFF" align="center" height="20">
  108.                 <td align="left">&nbsp;<a href=../vpro.asp?id=<%=rs("id")%> target=_blank><%=trim(rs("name"))%></a></td>
  109.                 <td><%=rs("productnum")%></td>
  110.                 <td><%=rs("price1")%>元</td>
  111.                 <td><%=rs("price2")%>元</td>
  112.                 <td><%=rs("vipprice")%>元</td>
  113.                 <td><%=rs("price2")*rs("productnum")%>元</td>
  114.               </tr>
  115.               <%iii=rs("paid")+iii
  116. rs.movenext
  117. loop
  118. rs.movefirst%>
  119.               <tr>
  120.                 <td colspan="6" bgcolor="#FFFFFF" align="right" height="20">用户选择的送货方式是：
  121.                     <%'
  122.           dim rs2
  123.           set rs2=server.CreateObject("adodb.recordset")
  124.           rs2.Open "select * from delivery where deliveryid="&int(rs("deliverymethord")),conn,1,1
  125.   if rs2.eof and rs2.bof then
  126.   response.write "方式以被删除"
  127.   response.write "&nbsp;附加费用：0元"
  128.   response.write "&nbsp;&nbsp;金额总计："& round(iii,1) &"元"
  129.   else
  130.   response.write trim(rs2("subject"))
  131.   response.write "&nbsp;附加费用："&rs2("fee")&"元"
  132.   response.write "&nbsp;&nbsp;金额总计："&round(iii+rs2("fee"),1)&"元"
  133.   end if
  134.   rs2.Close
  135.   set rs2=nothing
  136.   %>
  137. &nbsp;&nbsp;&nbsp;</td>
  138.               </tr>
  139.             </table></td>
  140.         </tr>
  141.         <tr>
  142.           <td height="10" colspan="2"></td>
  143.         </tr>
  144.         <tr>
  145.           <td width="13%" nowrap>订货人姓名：</td>
  146.           <td width="87%"><%=trim(rs("realname"))%></td>
  147.         </tr>
  148.         <tr>
  149.           <td>收货人姓名：</td>
  150.           <td><%=trim(rs("recepit"))%></td>
  151.         </tr>
  152.         <tr>
  153.           <td>收货地址：</td>
  154.           <td><%=trim(rs("address"))%></td>
  155.         </tr>
  156.         <tr>
  157.           <td>邮政编码：</td>
  158.           <td><%=trim(rs("postcode"))%></td>
  159.         </tr>
  160.         <tr>
  161.           <td>联系电话：</td>
  162.           <td><%=trim(rs("usertel"))%></td>
  163.         </tr>
  164.         <tr>
  165.           <td>电子邮件：</td>
  166.           <td><%=trim(rs("useremail"))%></td>
  167.         </tr>
  168.         <tr>
  169.           <td>送货方式：</td>
  170.           <td>
  171.             <%
  172.     '///送货方式
  173.     set rs2=server.CreateObject("adodb.recordset")
  174.     rs2.Open "select * from delivery where deliveryid="&int(rs("deliverymethord")),conn,1,1
  175.     if rs2.eof and rs2.bof then
  176. response.write "方式已被删除"
  177. else
  178. response.Write trim(rs2("subject"))
  179.     end if
  180. rs2.close
  181.     set rs2=nothing%>
  182.           </td>
  183.         </tr>
  184.         <tr>
  185.           <td>支付方式：</td>
  186.           <td>
  187.             <%
  188.           set rs2=server.CreateObject("adodb.recordset")
  189.           rs2.Open "select * from delivery where deliveryid="&int(rs("paymethord")),conn,1,1
  190.           if rs2.eof and rs2.bof then
  191.   response.write "方式已被删除"
  192.   else
  193.   response.Write trim(rs2("subject"))
  194.           end if
  195.   rs2.close
  196.           set rs2=nothing %>
  197.           </td>
  198.         </tr>
  199.         <tr>
  200.           <td>用户留言：</td>
  201.           <td><%=trim(rs("comments"))%></td>
  202.         </tr>
  203.         <tr>
  204.           <td>下单日期：</td>
  205.           <td><%=rs("actiondate")%></td>
  206.         </tr>
  207.         <tr>
  208.           <td height="32" colspan="2" align="center">
  209.             <input type="button" name="Submit3" value="删除订单" onClick="if(confirm('您确定要删除吗?')) location.href='vorder.asp?action=del&dan=<%=goods%>&username=<%=username%>';else return;">
  210. &nbsp;&nbsp;
  211.       <input type="button" name="Submit2" value="关闭窗口" onClick=javascript:window.close()>
  212.           </td>
  213.         </tr>
  214.       </table>      <%sub grade()
  215. select case rs("state")
  216. case "1"%>      <input name="checkbox" type="checkbox" DISABLED id="checkbox" value="checkbox" checked>
  217.       未作任何处理<span style='font-family:Wingdings;'>à</span>      <input name="state" type="checkbox" id="checkbox" value="checkbox" DISABLED>
  218.       用户已划出款<span style='font-family:Wingdings;'>à</span>      <input type="checkbox" name="checkbox" value="dddd" DISABLED>
  219.       服务商已收到款<span style='font-family:Wingdings;'>à</span>      <input type="checkbox" name="checkbox3" value="checkbox" DISABLED>
  220.       服务商已发货<span style='font-family:Wingdings;'>à</span>      <input type="checkbox" name="checkbox4" value="checkbox" DISABLED>
  221.       用户已收到货
  222.       <%case "2"%>      <input name="checkbox" type="checkbox" DISABLED id="checkbox" value="checkbox" checked>
  223.       未作任何处理<span style='font-family:Wingdings;'>à</span>      <input name="checkbox" type="checkbox" id="checkbox" value="adf" checked DISABLED>
  224.       用户已划出款<span style='font-family:Wingdings;'>à</span>      <input type="checkbox" name="state" value="3" >
  225.       服务商已收到款<span style='font-family:Wingdings;'>à</span>      <input type="checkbox" name="checkbox" value="checkbox" DISABLED>
  226.       服务商已发货<span style='font-family:Wingdings;'>à</span>      <input type="checkbox" name="checkbox4" value="checkbox" DISABLED>
  227.       用户已收到货
  228.       <%case "3"%>      <input name="checkbox" type="checkbox" DISABLED id="checkbox" value="checkbox" checked>
  229.       未作任何处理<span style='font-family:Wingdings;'>à</span>      <input name="checkbox" type="checkbox" id="checkbox" value="checkbox" checked DISABLED>
  230.       用户已划出款<span style='font-family:Wingdings;'>à</span>      <input type="checkbox" name="checkbox2" value="checkbox" checked DISABLED>
  231.       服务商已收到款<span style='font-family:Wingdings;'>à</span>      <input type="checkbox" name="state" value="4" >
  232.       服务商已发货<span style='font-family:Wingdings;'>à</span>      <input type="checkbox" name="checkbox4" value="checkbox" DISABLED>
  233.       用户已收到货
  234.       <%case "4"%>      <input name="checkbox" type="checkbox" DISABLED id="checkbox" value="checkbox" checked>
  235.       未作任何处理<span style='font-family:Wingdings;'>à</span>      <input name="checkbox" type="checkbox" id="checkbox" value="2" checked DISABLED>
  236.       用户已划出款<span style='font-family:Wingdings;'>à</span>      <input type="checkbox" name="checkbox2" value="checkbox" checked DISABLED>
  237.       服务商已收到款<span style='font-family:Wingdings;'>à</span>      <input type="checkbox" name="checkbox3" value="checkbox" checked DISABLED>
  238.       服务商已发货<span style='font-family:Wingdings;'>à</span>      <input type="checkbox" name="checkbox" value="checkbox" DISABLED>
  239.       用户已收到货
  240.       <%case "5"%>      <input name="checkbox" type="checkbox" DISABLED id="checkbox" value="checkbox" checked>
  241.       未作任何处理<span style='font-family:Wingdings;'>à</span>      <input name="checkbox" type="checkbox" id="checkbox" value="2" checked DISABLED>
  242.       用户已划出款<span style='font-family:Wingdings;'>à</span>      <input type="checkbox" name="checkbox2" value="checkbox" checked DISABLED>
  243.       服务商已收到款<span style='font-family:Wingdings;'>à</span>      <input type="checkbox" name="checkbox3" value="checkbox" checked DISABLED>
  244.       服务商已发货<span style='font-family:Wingdings;'>à</span>      <input type="checkbox" name="checkbox4" value="checkbox" checked DISABLED>
  245.       用户已收到货
  246.       <%end select
  247. end sub%>      <br>      <br>
  248.       </td>
  249.   </tr>
  250. </table>
  251. <!--#include file="foot.htm"-->
  252. </body>
  253. </html>