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

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

Jsp/Servlet

开发平台：

Java

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