源码 商城源码购物车程序

来源：百度知道 编辑：UC知道 时间：2024/05/23 16:23:35
我下载的网站源码学习下,可是发现购物车程序不能用哦.
具体是这样:我找了一下,购物车程序是有,但是如何选中一个商品点击购买的话,跳出来的页面是没有购物车的.ADDTO源码如下:

源码如下:
　　<title>我的购物车</title>
　　<%
　　if request.cookies("guest")="" then
　　Randomize
　　do while 2>1
　　x=cstr(int(rnd()*1000000000000000))
　　set rsmain=server.CreateObject("adodb.recordset")
　　rsmain.open "select * from orders where username='"&x&"'",conn,1,1
　　if rsmain.eof then
　　exit do
　　end if
　　loop
　　response.cookies("guest")=x
　　end if
　　dim id,action
　　action=request.QueryString("action")
　　if request.cookies("Huibo")("username")<>"" and request.cookies("Huibo")("username")<>"游客" then
　　username=trim(request.cookies("Huibo")("username"))
　　else
　　username=trim(request.cookies("guest"))
　　end if
　　id=request.QueryString("id")

　　set rsvip=server.CreateObj