请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
...全文
29 6 打赏 收藏 举报
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
帖子事件
创建了帖子
2003-12-12 10:46
社区公告
暂无公告