asp的添加购物车代码。。执行不了。。高手指点下。。

来源:百度知道 编辑:UC知道 时间:2024/09/22 11:39:12
这是由产品页添加购物车链接导向的添加购物车代码
用的是session。。。但是不能正常添加到购物车。。
只是执行到验证登录结束,后面的代码始终没有执行。
请高手们指点下。。多谢啦。。
代码如下:
<%if session("MM_username")="" then
response.write "<script>alert('很抱歉,您还没有登录,您需要先登陆后才能进入您的购物车!');window.location.href='go_login.asp';</script>"
end if%>
'就执行到这,我登录后进入该页就没有反应了,下面的代码始终没有执行
<%
if not IsObject(session("cart")) then
set Session("cart")=CreateObject("Scripting.Dictionary")
end if
Set cart=Session("cart")
productID=Cstr(Request("Product_ID"))
dim detail(1)
detail(0)=1
if Request("Product_ID")<>"" then
if cart.Exists(productID) then
Response.Write("<script>alert('对不起,您已经购买了该产品!');location='product.asp';<script>")
Response.End
end if
cart.add productID,detail
end if

按照你的说法,它应该没转跳到go_login.asp页面吧.
验证登陆那也没写上response.end()

'***************************
<%if session("MM_username")="" then
response.write "<script>alert('很抱歉,您还没有登录,您需要先登陆后才能进入您的购物车!');window.location.href='go_login.asp';</script>"
response.end()
end if%>
'就执行到这,我登录后进入该页就没有反应了,下面的代码始终没有执行
<%
if session("cart")="" or (not IsObject(session("cart"))) then
set Session("cart")=server.CreateObject("Scripting.Dictionary")
end if
Set cart=Session("cart")
productID=Cstr(Request("Product_ID"))
dim detail(1)
detail(0)=1
if Request("Product_ID")<>"" then
if cart.Exists(productID) then
Response.Write("<script>alert('对不起,您已经购买了该产品!');location='product.asp';<script>")
Response.End