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

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

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

开发平台：

DOS

buy.asp：源码内容
  1. <!--#include file="html_shop.asp"-->
  2. <!--#include file="conn.asp"-->
  3. <!--#include file="config.asp"-->
  4. <%
  6. action=request.QueryString("action")
  7. if request.Cookies("cnhww")("username")<>"" then
  8. username=trim(request.Cookies("cnhww")("username"))
  9. else
  10. if request.Cookies("cnhww")("dingdanusername")="" then
  11. username=now()
  12. username=replace(trim(username),"-","")
  13. username=replace(username,":","")
  14. username=replace(username," ","")
  15. response.Cookies("cnhww")("dingdanusername")=username
  16. set rs=server.CreateObject("adodb.recordset")
  17. rs.open "select * from [user] ",conn,1,3
  18. rs.addnew
  19. rs("username")=username
  20. rs("niming")=1
  21. rs("UserLastIP")=Request.ServerVariables("REMOTE_ADDR")
  22. rs("adddate")=now()
  23. rs("lastlogin")=now()
  24. rs("logins")=1
  25. rs.update
  26. rs.close
  27. set rs=nothing
  29. else
  30. username=request.Cookies("cnhww")("dingdanusername")
  31. end if
  32. end if
  33. bookid=request.QueryString("id")
  41. if InStr(action,"'")>0 then
  42. response.write"<script>alert(""非法访问!"");window.close();</script>"
  43. response.end
  44. end if
  45. if bookid<>"" then
  46. if not isnumeric(bookid) then 
  47. response.write"<script>alert(""非法访问!"");window.close();</script>"
  48. response.end
  49. else
  50. if not isinteger(bookid) then
  51. response.write"<script>alert(""非法访问!"");window.close();</script>"
  52. end if
  53. end if
  54. end if
  55. select case action
  56. case "del"
  57. conn.execute "delete from orders where actionid="&request.QueryString("actionid")
  58. if request.QueryString("ll")=22 then
  59. response.redirect "myuser.asp?action=shoucang"
  60. else
  61. response.redirect "buy.asp?action=show"
  62. end if
  63. response.End
  64. case "add"
  65. set rs_s=server.CreateObject("adodb.recordset")
  66. rs_s.open "select * from products where bookid="&bookid,conn,1,1
  67. if request.Cookies("cnhww")("reglx")=2 then 
  68. danjia=rs_s("vipjia")
  69. else
  70. danjia=rs_s("huiyuanjia")
  71. end if
  72. kucun=rs_s("kucun")
  73. bookname=rs_s("bookname")
  74. shjiaid=rs_s("shjiaid")
  75. rs_s.close
  76. set rs_s=nothing
  77. if kucun<=0 then
  78. response.write "<script language=javascript>alert('你选购的商品“"&bookname&"”暂时缺货不能放到购物车里，请选购其它商品！');location.href='javascript:onclick=history.go(-1)'</script>"
  79. response.end
  80. end if
  81. set rs=server.CreateObject("adodb.recordset")
  82. rs.open "select bookid,username,bookcount,zonger from orders where username='"&username&"' and bookid="&bookid&" and zhuangtai=7",conn,1,3
  83. if rs.recordcount=1 then
  84. if kucun<(rs("bookcount")+1) then
  85. response.write "<script language=javascript>alert('你选购的商品“"&bookname&"”暂时缺货不能放到购物车里，请选购其它商品！');location.href='javascript:onclick=history.go(-1)'</script>"
  86. response.end
  87. end if
  88. rs("zonger")=(rs("bookcount")+1)*danjia
  89. rs("bookcount")=rs("bookcount")+1
  90. rs.update
  91. rs.close
  92. set rs=nothing
  93. response.Redirect "buy.asp?action=show"
  94. else
  95. rs.close
  97. set rs=server.CreateObject("adodb.recordset")
  98. rs.open "select bookid,username,shjiaid,zhuangtai,zonger,bookcount,niming,chima,yanse from orders",conn,1,3
  99. rs.addnew
  100. rs("bookid")=bookid
  101. rs("username")=username
  102. rs("zhuangtai")=7
  103. rs("bookcount")=1
  104. rs("shjiaid")=shjiaid
  105. rs("zonger")=danjia
  106. rs("chima")=request.form("chima")
  107. rs("yanse")=request.form("yanse")
  108. if request.cookies("Cnhww")("username")="" then
  109. rs("niming")=1
  110. end if
  111. rs.update
  112. rs.close
  113. set rs=nothing
  114. response.Redirect "buy.asp?action=show"
  115. end if
  116. case "show"
  117. %>
  119. <html>
  120. <head>
  121. <title>网软天下购物系统，网络购物系统,asp购物系统,免费购物系统,网上商城购物系统。--我的购物车</title>
  122. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  123. <meta name="description" content="<%=des%>">
  124. <meta name="keywords" content="<%=keya%>">
  125. <link href="skin/skin<%=skinid%>/css.css" rel="stylesheet" type="text/css">
  126. </head>
  127. <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
  128. <!--#include file="include/head.asp"-->
  129. <table width="1000" border="0" align="center"  cellspacing="0" cellpadding="0">
  130.   <tr>
  131.     <td width="41" valign="top"><table width="100%" height="184" border="0" cellpadding="0" cellspacing="0">
  132.       <tr>
  133.         <td height="30" align="right" valign="top"><img src="skin/skin<%=skinid%>/jiao.gif" width="15" height="17"></td>
  134.       </tr>
  135.       <tr>
  136.         <td height="90"><div align="right"><img src="images/ttts.gif" width="26" height="110" /></div></td>
  137.       </tr>
  138.       <tr>
  139.         <td height="30">&nbsp;</td>
  140.       </tr>
  141.     </table></td>
  142.   <td width="190" valign="top"style="BORDER-bottom:<%=skincolor%> 1px solid;BORDER-left:<%=skincolor%> 1px solid; BORDER-right:<%=skincolor%> 1px solid;">
  143.  
  144. <table width="100%" border="0" cellspacing="0" cellpadding="0">
  145.   <tr>
  146.         <td><table width="190" height="190" border="0" cellpadding="0" cellspacing="0">
  147.           <tr>
  148.               <td align="center" valign="middle" background="skin/skin<%=skinid%>/index_2.gif"><!--#include file="userinfo.asp"--></td>
  149.           </tr>
  150.         </table></td>
  151.       </tr>
  152.       <tr>
  153.         <td><img src="images/index_4.gif" width="190" height="12" alt="" /></td>
  154.       </tr>
  155.       <tr>
  156.         <td><!--#include file="shopcart.asp"--></td>
  157.       </tr>
  158.       <tr>
  159.         <td><!--#include file="include/selltop.asp"--></td>
  160.       </tr>
  161.       <tr>
  162.         <td>&nbsp;</td>
  163.       </tr>
  164.     </table></td>
  165.     <td valign="top"><TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
  166.       <TBODY>
  167.         <TR>
  168.           <TD class=b vAlign=top>
  169.             <%
  170. set rs=server.CreateObject("adodb.recordset")
  171. rs.open "select orders.actionid,orders.bookid,orders.bookcount,orders.zonger,orders.shjiaid,products.bookname,products.shichangjia,products.huiyuanjia,products.vipjia,orders.chima,orders.yanse from products inner join  orders on products.bookid=orders.bookid where orders.username='"&username&"' and orders.zhuangtai=7",conn,1,1 
  174. %>
  175.             <br>
  176.             <br>
  177.             <table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#f1f1f1" >
  178.                 <form name='form1' method='post' action=chcount.asp>
  179.                   <tr bgcolor=#f1f1f1 align=center> 
  180.                     <td width=25%  >商品名称</td>
  181.                     <td width=15% >单价 
  182.                       <%if request.Cookies("cnhww")("reglx")=2 then %>
  183.                       (VIP) 
  184.                       <%else%>
  185.                       (会员) 
  186.                       <%end if%>
  187.                     </td>
  188.                     <td width=7% >数量</td>
  189.                     <td>尺码</td>
  190.                     <td>颜色</td>
  191.                     <td width=15% >总价</td>
  192.                     <td width=10% >删除</td>
  193.                   </tr>
  194.                   <%shuliang=rs.recordcount
  195. jianshu=0
  196. zongji=0
  197. do while not rs.eof%>
  198.                   <tr bgcolor="#FFFFFF"> 
  199.                     <td width="25%" height="30" align="center" ><a href=products.asp?id=<%=rs("bookid")%> ><%=rs("bookname")%></a> 
  200.                       <input name=bookid type=hidden value="<%=rs("bookid")%>"> 
  201.                       <input name=actionid type=hidden value="<%=rs("actionid")%>"></td>
  202.                     <td width="15%" height="30" align="center" > 
  203.                       <%
  204. if request.Cookies("cnhww")("reglx")=2 then 
  205. response.write FormatNum(rs("vipjia"),2)
  206. else
  207. response.write FormatNum(rs("huiyuanjia"),2)
  208. end if%>
  209.                       元</td>
  210.                     <td width="7%" height="30" align="center" ><input class=wenbenkuang name=bookcount value="<%=rs("bookcount")%>" size=5> 
  211.                     </td>
  212.                     <td height="30" align="center" ><%=rs("chima")%>&nbsp;</td>
  213.                     <td height="30" align="center" ><%=rs("yanse")%></td>
  214.                     <td align="center" width="15%" height="30" ><font color=red><%=FormatNum(rs("zonger"),2)%></font> 
  215.                       元</td>
  216.                     <td align="center" width="10%" height="30" ><a href=buy.asp?action=del&actionid=<%=rs("actionid")%>><img src=images/trash.gif border=0></a> 
  217.                     </td>
  218.                   </tr>
  219.                   <%bookiid=rs("bookid")
  220. jianshu=jianshu+rs("bookcount")
  221. zongji=zongji+rs("zonger")
  222. rs.movenext
  223. loop
  224. rs.close
  225. set rs=nothing%>
  226.                   <tr bgcolor="#FFFFFF"> 
  227.                     <td height=30 colspan=7 align=center > 购物车里有商品：<font color=red><%=shuliang%></font> 
  228.                       种　总数：<font color=red><%=jianshu%></font> 件　共计：<font color=red><%=FormatNum(zongji,2)%></font> 
  229.                       元　您有预存款：<%=request.cookies("Cnhww")("yucun")%> 元 </td>
  230.                   </tr>
  231.                   <tr bgcolor="#FFFFFF"> 
  232.                     <td align="center" height=24 colspan=7><input class="go-wenbenkuang" type="button" name="imageField12" value="继续购物"  border="0" onFocus="this.blur()" onClick="this.form.action='index.asp';this.form.submit()"> 
  233.                       <input class="go-wenbenkuang" type="button" name="imageField2" value="修改数量"  border="0" onFocus="this.blur()" onClick="this.form.action='chcount.asp';this.form.submit()"> 
  234.                       <input name="imageField22" class="go-wenbenkuang" type="button" value="清空购物车" onFocus="this.blur()" onClick="this.form.action='clearcart.asp';this.form.submit()"> 
  235.                       <input name="imageField222" class="go-wenbenkuang" type="button" value="去收银台" onFocus="this.blur()" onClick="this.form.action='mycart.asp';this.form.submit()">
  236.                       <br>
  237.                       <br>
  238.                     </td>
  239.                   </tr>
  240.                   <tr bgcolor="#FFFFFF"> 
  241.                     <%set Godbook=server.CreateObject("adodb.recordset")
  242. Godbook.open "select * from ordersaward where username='"&request.Cookies("Cnhww")("username")&"' and zhuangtai=7",conn,1,1
  243. if Godbook.recordcount>0 then%>
  244.                     <td align="center" height=25 colspan=7><table width="95%" border="0" cellspacing="1" cellpadding="1" bgcolor="#cccccc" align="center">
  245.                         <tr bgcolor="#FFFFFF"> 
  246.                           <td colspan="3" height="30" align="center">您已选择的奖品清单</td>
  247.                         </tr>
  248.                         <tr bgcolor="#cccccc" align="center"> 
  249.                           <td height="30"><b><font color="#ffffff">奖品名称</font></b></td>
  250.                           <td height="30"><b><font color="#ffffff">使用积分</font></b></td>
  251.                           <td height="30"><b><font color="#ffffff">删除</font></b></td>
  252.                         </tr>
  253.                         <%
  254. while not Godbook.eof%>
  255.                         <tr bgcolor="#FFFFFF"> 
  256.                           <td height="22"> 
  257.                             <%
  258. set Godbook1=server.CreateObject("adodb.recordset")
  259. Godbook1.open "select * from jiangpin where bookid="&Godbook("bookid"),conn,1,1
  260. if Godbook1.recordcount=1 then
  261. response.write "<a href='listjp.asp?id="&Godbook("bookid")&"' >"&Godbook1("bookname")&"</a>"
  262. end if
  263. Godbook1.close
  264. set Godbook1=nothing%>
  265.                           </td>
  266.                           <td align="center" height="30"><%=Godbook("jifen")%></td>
  267.                           <td align="center" height="30"><a href="jifen.asp?actionid=<%=Godbook("actionid")%>&action=del&ll=22"><img src=images/trash.gif border=0></a></td>
  268.                         </tr>
  269.                         <%
  270. Godbook.movenext
  271. wend%>
  272.                       </table></td>
  273.                     <%end if
  274. Godbook.close
  275. set Godbook=nothing%>
  276.                   </tr>
  277.                   <tr bgcolor="#FFFFFF"> 
  278.                     <td height="29" colspan="7" STYLE="PADDING-LEFT: 20px">
  279. <table width="100%" border="0" cellspacing="0" cellpadding="0">
  280.                       <tr>
  281.                         <td><table width="550" height="25" border="0" cellpadding="0" cellspacing="0">
  282.  <%
  283.   if bookiid="" then
  284.   response.write "<br><tr><td><div align=center>对不起，暂无相关产品为您推荐！</div></td></tr>"
  285.   'response.End
  286.   else
  287.   %>
  288.                               <tr>
  289.                             <td>网软天下购物系统，网络购物系统,asp购物系统,免费购物系统,网上商城购物系统。为您推荐---购买此商品的顾客，还购买了如下商品：</td>
  290.                           </tr>
  291.                         </table>
  292.  
  293.           <%
  294.       sql="select top 6 * from products where anclassid = (select anclassid from products where bookid = "&bookiid&") order by chengjiaocount,adddate desc " 
  295.               set rs=server.createobject("adodb.recordset")
  296.       rs.open sql,conn,1,1
  297.           %>
  298. <table width="590" border="0" cellspacing="0" cellpadding="0" align="center">
  299.                               <tr>
  300.                 <%
  301. if not rs.eof then
  302. i=1
  303. do while not rs.eof%>
  304.                                 <td width="195" align="center" valign="top"><table width="187" border="0" align="left" cellpadding="0" cellspacing="0" class="main" >
  305.                                     <tr>
  306.                                       <td height="116" >
  307.                                         <%if rs("bookpic")="" then 
  308. response.write "<div align=center><a href=products.asp?id="&rs("bookid")&"><img src=images/emptybook.gif width=75 height=75 border=0></a></div>"
  309. else
  310. %>
  311.                                         <div align="center"><a href=products.asp?id=<%=rs("bookid")%> target="_blank"><img src="<%=trim(rs("bookpic"))%>"  width=85 border=0 height="85" alt="<%=trim(rs("bookname"))%>"></a> 
  312.                                           <%end if%>
  313.                                         </div></td>
  314.                                       <td width="59%"><a class=a4 href=products.asp?id=<%=rs("bookid")%> target="_blank">                                        </a> <a href=list.asp?id=<%=rs("bookid")%> target="_blank"> &nbsp;
  315.                                         <%if len(trim(rs("bookname")))>6 then
  316. response.write left(trim(rs("bookname")),5)&"."
  317. else
  318. response.write trim(rs("bookname"))
  319. end if
  320. %>
  321.                                         </a><br>
  322. &nbsp;市场价：<%=trim(rs("shichangjia"))%>元<br>
  323. &nbsp;会员价：<%=trim(rs("huiyuanjia"))%>元</td>
  324.                                     </tr>
  325.                                   </table>
  326.                                     <div align="left"></div></td>
  327.                                 <%if i mod 3 = 0 then%>
  328.                               </tr>
  329.                               <%end if
  330.     rs.movenext
  331.          i=i+1
  332.       loop
  333. rs.close
  334. end if
  335. end if 
  336. %>
  337.                           </table></td>
  338.                       </tr>
  339.                     </table> 
  341. </td>
  342.                   </tr>
  343.                   <tr bgcolor="#FFFFFF"> 
  344.                     <td height="29" colspan="7" STYLE="PADDING-LEFT: 20px"> · 
  345.                       如果您想继续购物，请点选继续购物<br>
  346.                       · 如果您想更新已在购物车内的产品，请先修改，然后点选修改数量<br>
  347.                       · 如果您想全部取消已订购在购物车中的产品，请点选清空购物车<br>
  348.                       · 如果您满意您所购买的产品，请点选去收银台(会员须先登陆，非会员须先免费注册成为会员)<br> </td>
  349.                   </tr>
  350.                 </form>
  351.               </table></TD>
  352.         </TR>
  353.       </TBODY>
  354.     </TABLE></td> 
  355.  <td width="68" valign="top"style="BORDER-left:<%=skincolor%> 1px solid;">
  356.    <img name="b" src="" width="68" height="0" alt="">
  357. </td>
  358.   </tr>
  359. </table>
  360. <!--#include file="include/foot.asp"-->
  361. </body>
  362. </html>
  363. <%end select%>