<%
'获取购物车的产品数量
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
%>
网站地址：butshopping.com
页面为右上角的checkout按钮进入shoppingcart.asp页面
请搞手们帮忙看看是什么原因，为什么本地可以，上传至服务器页面就打不开，也不提示错误只是空白的一片。
