问题描述
请教一下各位大虾：我买一本机械出版社赛奎春主编的ASP信息系统开发实例精选，可书中的融E自选网进入购物车后，明明买了东西，但点收银台付款却提示你还没有购物。因为我急需用书中融E自选网，所以希望有高手可以指点指点，不甚感激。由于源程序大于1M，上传不了我把融E自选网的源代码和光盘说明上传了，万分乞求论坛高手帮助一下我这个可怜的菜鸟。
解决方案
解决方案二：
不好意思，刚才贴发错了，源程序我上传了，标题为购物车有问题的融E自选网，tag为购物车
解决方案三：
我把购物车的源程序贴一下，大伙帮看看：<METAhttp-equiv=Content-Typecontent="text/html;charset=gb2312"><%'获取存放商品名称的数组信息arys_1=session("array")'获取存放对应商品价格的数组信息ary2=session("array2")'获取对应商品的购买数量的数组信息ary=session("array3")'判断用户是否已经购买商品ifisarray(arys_1)thenfori=0toubound(arys_1)-1str=str+arys_1(i)+","str2=str2+cstr(ary(i))+","str3=str3+cstr(ary2(i))+","next'提取订单中的参数yonghu=session("name")jine=request.form("jine")names=request.form("name")addre=request.Form("address")email=request.Form("email")phone=request.Form("phone")meg=request.Form("memo")dingdan=request.Form("hidennumber")fangshi=request.Form("select")yunshu=request.Form("typ")agio=request.Form("agio")%><!--#includefile="../Conn/conn.asp"--><%'将订单中的参数存放到数据库中sql="insertintotb_OrderFormvalues('"&dingdan&"','"&str&"','"&str2&"','"&str3&"','"&agio&"',"&jine&",'"&yunshu&"','"&names&"','"&phone&"','"&email&"','"&addre&"','"&meg&"','"&fangshi&"','新订单','无','"&date()&"')"rs.opensql,connsetrs=nothingconn.closesetconn=nothing%><!--#includefile="../Conn/conn.asp"--><%sql="updatetb_AccountsetAmount=Amount+"&jine&",Degree=Degree+1whereName='"&yonghu&"'"rs.opensql,connsetrs=nothingconn.closesetconn=nothing%><!--#includefile="../Conn/conn.asp"--><%sql="select*fromtb_AccountwhereName='"&yonghu&"'"rs.opensql,connifnotrs.eofthen'获取用户的消费总额amount=rs("Amount")endif'变量存储用户积分计算参数variable=int(session("Integral"))'计算用户的积分公式为"消费总额/积分计算参数"integral=int(amount/variable)session("jifen")=integral'计算会员的等级ifintegral<5thenstep="普通会员"agio=100elseifintegral<10thenstep="三级会员"agio=95elseifintegral<30thenstep="二级会员"agio=90elseifintegral<50thenstep="一级会员"agio=80elseifintegral<100thenstep="VIP会员"agio=65elsestep="终身会员"agio=50endifendifendifendifendif%><!--#includefile="../Conn/conn.asp"--><%sql="updatetb_AccountsetIntegral="&integral&",Agio="&agio&",Step='"&step&"'whereName='"&yonghu&"'"rs.opensql,connsetrs=nothingconn.closesetconn=nothing%><!--#includefile="../Conn/conn.asp"--><%fori=0toubound(arys_1)-1sql="updatetb_GoodssetSell=Sell+"&ary(i)&"whereName='"&arys_1(i)&"'"rs.opensql,connnextsetrs=nothingconn.closesetconn=nothingsession("array")=""session("array2")=""session("array3")=""%><scriptlanguage="javascript">alert("订单已经接收!");</script><objecttype="application/x-oleobject"id=closesclassid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"><paramname="command"value="close"></object><scriptlanguage="javascript">closes.Click();window.open("../index.asp");</script><%else%><scriptlanguage="javascript">alert("您还没有购物呢！");</script><objecttype="application/x-oleobject"id=closesclassid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"><paramname="command"value="close"></object><scriptlanguage="javascript">closes.Click();window.open("../index.asp");</script><%endif%>
解决方案四：
购物车源程序在OrderForm文件夹中，好像不是OrderForm.asp就是data.asp