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

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

Jsp/Servlet

开发平台：

Java

vorder.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <%
  4. %><!--#include file="manage/inc/config.asp"--> 
  5. <!--#include file="inc/conn.asp"--> 
  6. <!--#include file="inc/chk.asp"--> 
  8. <%
  9. Dim rsvip,strvip
  10. set rsvip=server.CreateObject("adodb.recordset")
  11. rsvip.open "select vip from [user] where username='"&request.cookies(cookieName)("username")&"' ",conn,1,1
  12. strvip = rsvip("vip")
  13. rsvip.close
  14. set rsvip=nothing
  16.  
  17. dim shijian,goods
  18. dim userid,id,rs2,rs3,score
  19. id=request("id")
  20. userid=request("userid")
  21. shijian=now()
  22. goods=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
  23. set rs2=server.CreateObject("adodb.recordset")
  24. rs2.open "select id,name,price1,price2,vipprice,discount,score from product where id in ("&id&") order by id ",conn,1,1
  25. goods=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
  27. do while not rs2.eof
  29. set rs=server.CreateObject("adodb.recordset")
  30. rs.open "select * from orders",conn,1,3
  31. rs.addnew
  32. score=score+rs2("score")
  33. rs("username")=trim(request.cookies(cookieName)("username"))
  34. rs("id")=rs2("id")
  35. rs("actiondate")=shijian
  36. rs("productnum")=CInt(Request("shop"&rs2("id")))
  37. rs("state")=1
  38. rs("goods")=goods
  39. rs("postcode")=int(request("postcode"))
  40. rs("recepit")=trim(request("recepit"))
  41. rs("address")=trim(request("address"))
  42. rs("paymethord")=int(request("paymethord"))
  43. rs("deliverymethord")=int(request("deliverymethord"))
  44. rs("sex")=int(request("sex"))
  45. rs("comments")=HTMLEncode2(trim(request("comments")))
  47. if  strvip = true then 
  48. rs("paid")=rs2("vipprice")*CInt(Request("shop"&rs2("id")))
  49. else
  50. rs("paid")=rs2("price2")*CInt(Request("shop"&rs2("id")))
  51. end if
  54. rs("realname")=trim(request("realname"))
  55. rs("useremail")=trim(request("useremail"))
  56. rs("usertel")=trim(request("usertel"))
  57. rs("userid")=userid
  58. rs.update
  59. rs.close
  60. conn.execute "delete from orders where username='"&request.cookies(cookieName)("username")&"' and id in ("&id&") and state=6"
  61. rs2.movenext
  62. loop
  64. rs2.close
  66. rs2.open "select score from [user] where userid="&userid,conn,1,3
  67. rs2("score")=rs2("score")+int(score)
  68. rs2.Update
  69. rs2.close
  70. set rs2=nothing
  72. set rs=server.CreateObject("adodb.recordset")
  73. rs.open "select product.id,product.name,product.price1,vipprice,product.price2,orders.sex,orders.realname,orders.recepit,orders.goods,orders.postcode,orders.comments,orders.paymethord,orders.deliverymethord,orders.paid,orders.productnum from product inner join orders on product.id=orders.id where orders.username='"&request.cookies(cookieName)("username")&"' and state=1 and goods='"&goods&"' ",conn,1,1
  75. %>
  76. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  77. <html>
  78. <head>
  79. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  80. <title>406网络书店</title>
  81. <link href="style.css" rel="stylesheet" type="text/css">
  84. </head>
  86. <body>
  87. <!--#include file="head.htm"-->
  90. <table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  91.   <tr>
  92.     <td width="219" align="left" valign="top"><!--#include file="uleft.asp"-->      <br></td><td width="561" align="left" valign="top">
  93.       <br>      <table border="0" cellpadding="0" cellspacing="0">
  94.         <tr>
  95.           <td><img src="images/w.gif" width="18" height="18"></td>
  96.           <td style="color:#415373">订单完成</td>
  97.         </tr>
  98.       </table>      <br>      <table width="100%" border="0" align="center" cellpadding="3" cellspacing="3">
  99.         <tr>
  100.           <td height="25" align="center"><FONT SIZE="3"><B>恭喜
  101.                   <% =request.cookies(cookieName)("username") %>
  102.           ，您已成功的提交了此订单！详细信息如下</B></FONT></td>
  103.         </tr>
  104.         <tr>
  105.           <td height="18">订单号：<font color=#FF6600><%=rs("goods")%></font></td>
  106.         </tr>
  107.         <tr>
  108.           <td height="18">商品列表：</td>
  109.         </tr>
  110.         <tr>
  111.           <td>
  112.             <table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" >
  113.               <tr align="center">
  114.                 <td>商品名称</td>
  115.                 <td>市场价</td>
  116.                 <td>会员价</td>
  117.                 <td>VIP会员价</td>
  118.                 <td>数量</td>
  119.                 <td> 小计</td>
  120.               </tr>
  121.               <%dim iiii 
  122.  do while not rs.eof
  123. %>
  124.               <tr BGCOLOR=#FFFFFF>
  125.                 <td><%response.Write "<a href=vpro.asp?id="&rs("id")&" target=_blank>"&rs("name")&"</a>"%></td>
  126.                 <td align="center"><%=rs("price1")%>元</td>
  127.                 <td align="center"><%=rs("price2")%>元</td>
  128.                 <td align="center"><%=rs("vipprice")%>元</td>
  129.                 <td align="center"><%=rs("productnum")%></td>
  130.                 <% 
  131. set rsvip=server.CreateObject("adodb.recordset")
  132. rsvip.open "select vip from [user] where username='"&request.cookies(cookieName)("username")&"' ",conn,1,1
  133. if  rsvip("vip") = true then  %>
  134.                 <td align="center"><%=rs("vipprice")*rs("productnum")%>元</td>
  135.               </tr>
  136.               <%
  137.  iiii=rs("vipprice")*rs("productnum")+iiii
  138. else %>
  139.         <td align="center"><%=rs("price2")*rs("productnum")%>元</td>
  140.         </tr>
  141.         <%
  142. iiii=rs("price2")*rs("productnum")+iiii
  143. end if
  144. rs.movenext
  145.     loop
  146.     rs.movefirst
  147. rsvip.close
  148.  set rsvip=nothing
  149.     %>
  150.         <tr align="center">
  151.           <td colspan="6"><br>            <%response.write "<font color=#FF6600>您选择的送货方式是："
  153.   set rs3=server.CreateObject("adodb.recordset")
  154.   rs3.open "select * from delivery where deliveryid="&int(rs("deliverymethord")),conn,1,1
  155.   if rs3.eof and rs3.bof then
  156.   response.write "送货方式已经被删除"
  157.   response.write "&nbsp;附加费用：0元&nbsp;&nbsp;&nbsp;共计："
  158.   response.write iiii&"元"
  159.   else
  160.   response.Write trim(rs3("subject"))
  161.   response.write "&nbsp;附加费用："&rs3("fee")&"元&nbsp;&nbsp;&nbsp;共计："
  162.   response.write iiii+rs3("fee")&"元"
  163.   end if
  164.   rs3.close
  165.   set rs3=nothing
  166. %></td>
  167.         </tr>
  168.           </table>
  169.           <br></td>
  170.         </tr>
  171.         <tr>
  172.           <td height="18" style='PADDING-LEFT: 100px'>订货人姓名：<font color=#FF6600><%=trim(rs("realname"))%></font></td>
  173.         </tr>
  174.         <tr>
  175.           <td height="18" style='PADDING-LEFT: 100px'>收货人姓名：<font color=#FF6600>
  176.             <%response.Write trim(request("recepit"))
  177.     if request("sex")=0 then
  178.     response.Write "&nbsp;(先生)"
  179.     else
  180.     response.Write "&nbsp;(女士)"
  181.     end if%>
  182.           </font></td>
  183.         </tr>
  184.         <tr>
  185.           <td height="18" style='PADDING-LEFT: 100px'>收货详细地址：<font color=#FF6600><%=trim(request("address"))%></font></td>
  186.         </tr>
  187.         <tr>
  188.           <td height="18" style='PADDING-LEFT: 100px'>邮编：<font color=#FF6600><%=trim(request("postcode"))%></font>&nbsp;&nbsp;&nbsp;&nbsp;电话：<font color=#FF6600><%=trim(request("usertel"))%></font>&nbsp;&nbsp;&nbsp;&nbsp;电子邮件：<font color=#FF6600><%=trim(request("useremail"))%></font></td>
  189.         </tr>
  190.         <tr>
  191.           <td height="18" style='PADDING-LEFT: 100px'>送货方式：<font color=#FF6600>
  192.             <%
  193.       set rs3=server.CreateObject("adodb.recordset")
  194.       rs3.open "select * from delivery where deliveryid="&request("deliverymethord"),conn,1,1
  195.   if rs3.eof and rs3.bof then
  196.   response.write "方式已经被删除"
  197.   else
  198.       response.Write trim(rs3("subject"))
  199.       end if
  200.   rs3.close
  201.       set rs3=nothing
  202.       %>
  203.             </font>&nbsp;&nbsp;&nbsp;&nbsp;支付方式：<font color=#FF6600>
  204.             <%
  205.       set rs3=server.CreateObject("adodb.recordset")
  206.       rs3.open "select * from delivery where deliveryid="&request("paymethord"),conn,1,1
  207.   if rs3.eof and rs3.bof then
  208.   response.write "方式已经被删除"
  209.   else
  210.       response.Write trim(rs3("subject"))
  211.       end if
  212.   rs3.close
  213.       set rs=nothing%>
  214.           </font></td>
  215.         </tr>
  216.         <%if trim(request("comments"))<>"" then%>
  217.         <tr>
  218.           <td height="18" style='PADDING-LEFT: 100px'>您的留言：<%=trim(request("comments"))%></td>
  219.         </tr>
  220.         <%end if%>
  221.         <tr>
  222.           <td height="18" ><br>
  223.           请您在一周内依照您选择的支付方式进行汇款，汇款时请注明您的<font color="#FF0000">订单号</font>！<FONT COLOR="#FF0000">为了更及时得为你服务，当你汇完款，一定要记得到您的<A HREF="myorder.asp" TARGET="_self"><B>帐号中修改你的定单<font color="#000000">状态</font></B></A></FONT></td>
  224.         </tr>
  225.         <tr>
  226.           <td height="18"  style='PADDING-LEFT: 100px'>
  227.             <div align="right"><a href="#" onClick=javascript:window.close()> </a><font color="#999999"><FONT COLOR="#000000">订单完成 创建时间：<%=shijian%></FONT>&nbsp;</font></div></td>
  228.         </tr>
  229.         <tr>
  230.           <td height="18" align="center"  ><input type="button" name="Submit" value="关闭" onClick=javascript:window.close()></td>
  231.         </tr>
  232.       </table>      <br>      <br>
  233.       
  234.     </td>
  235.   </tr>
  236. </table>
  238. <!--#include file="foot.htm"-->
  239. </body>
  240. </html>