在本地测试可以，上传至服务器不行，ASP购物车代码

<%

'获取购物车的产品数量

dim Product_Num,Producttemp

Session.Timeout = 30

Product_Num=0

if session("Product_Num")="" then

	session("Product_Num")=0

else

	Product_Num=session("Product_Num")

end if





'*****************程序执行到下面这条块时没有执行下去，页面没有提示任何的错误，在本地测试可以，上传至服务器不行，不知道为什么？************

'添加产品至购物车中

if request.querystring("proid")<>"" then

	'判断该产品是否已经添加至购物车中

	for i=0 to Product_Num

		if session("ProductID_"&i)=clng(request.querystring("Proid")) then

			Producttemp=1 

			exit for

		end if

	next

	if producttemp<>1 then '如果是新的产品则添加至购物车中

		session("Product_Num")=clng(Product_Num+1)

		session("ProductID_"&session("Product_Num"))=clng(request.querystring("Proid"))

		session("Quantity_"&session("Product_Num"))=1

		session("size_"&session("Product_Num"))=""

	end if 

end if





'删除购物车中指定的产品

if request.querystring("action")="del" then

	for i=0 to Product_Num

		if session("ProductID_"&i)=clng(request.querystring("Proid")) then

			session("ProductID_"&i)=""

			session("Quantity_"&i)=""

			session("size_"&i)=""	

		end if

	next

end if



'删除购物车中所有的产品

if request.querystring("action")="DelAll" then

	for i=0 to Product_Num

		session("ProductID_"&i)=""

		session("Quantity_"&i)=""

		session("size_"&i)=""	

	next

	Session.Abandon() '清除所有的会话信息

end if





%>