请ASP高手帮我查一下错误

jonsonzxw 2003-12-12 10:46:37
userID = Request("um")
servid = Request("servid")

if servid<>"" then
if Instr(1,servid,",",1)<>0 then
'有多个项目服务,转向第一个
tmp = Split(servid,",")
serv0 = tmp(1)
len = UBound(tmp)+1
servstr = ""

For i=1 To len-1
servstr = servstr + "&servid=" +tmp(i)
Next

select case serv0
case "1"
Response.Redirect "http://www.gdcic.net/receive.asp?um="+userID+servstr
Response.End
case "2"
Response.Redirect "http://photo.gdcic.net/Receive.aspx?um="+userID+servstr
Response.End
case "3"
Response.Redirect "http://www.gdcic.net/receive.aspx?um="+userID+servstr
Response.End
case else
end select
end if
end if
...全文
10 点赞 收藏 6
写回复
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
qwater 2003-12-12
servstr = servstr + "&servid=" +tmp(i)
+ 换成 & 试试
回复
a_zhe_20 2003-12-12
serv0 = tmp(1)

应该是serv0 = tmp(0)
回复
bananasmiling 2003-12-12
tmp = Split(servid,",")
serv0 = tmp(1)
len = UBound(tmp)+1'这句错
回复
jonsonzxw 2003-12-12
好象是len = UBound(tmp)+1就会出错,我一行一行调试到这里就出错了,后面的还不知
回复
tigerwen01 2003-12-12
把case "1"、case "2"和case "3"改为case 1、case 2和case 3
回复
a_zhe_20 2003-12-12
For i=0 To ubound(tmp)
servstr = servstr + "&servid=" +tmp(i)
Next

哪里有错误?
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告