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

zjx1302 2010-05-14 09:54:24



<%
'获取购物车的产品数量
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页面


请搞手们帮忙看看是什么原因,为什么本地可以,上传至服务器页面就打不开,也不提示错误只是空白的一片。
...全文
126 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
xiaojielanbaihe 2010-05-15
  • 打赏
  • 举报
回复
没看出来有什么问题
qfyqfy 2010-05-15
  • 打赏
  • 举报
回复
(1).不显示错误可以用response.write 调试输出变量看request.querystring("proid")结果怎么样..
(2).总感觉把request.querystring("proid") 改成request("proid") 更加符合VBScript 些..
仅供参考...
toury 2010-05-15
  • 打赏
  • 举报
回复
有内容啊,选的货物显示出来了
不耐烦 2010-05-15
  • 打赏
  • 举报
回复
不执行....

request.querystring("proid") 看看有没有值 符合不符合要求...

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧