请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
...全文
46 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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

哪里有错误?

28,409

社区成员

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

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