553993

[ol]

0 or InStr(sURL,"`")0 or InStr(sURL,"'")0 or InStr(sURL," ")0 or InStr(sURL,"　")0 or InStr(sURL,"'")0 or InStr(sURL,chr(34))0 or InStr(sURL,"")0 or InStr(sURL,",")0 or InStr(sURL,"0 or InStr(sURL,">")0 then

Response.Status= "404 no found"

Response.End

end if

first_name=split(sURL,".")

if ubound(first_name)>2 then

Response.Status= "404 no found"

Response.End

end if

user=first_name(0)

seldomain=first_name(1)&"."&first_name(2)

if user="reg" then Response.Redirect "http://xxx.cn/reg/index.asp"   

'这里的这个指向是你给这个程序设置的域名的路径

geturl=False

msg=Application("domain_info")

msg=split(msg,"|")

for i=lbound(msg) to ubound(msg)-1 step 5

if msg(i)=seldomain then

geturl=True

ad=msg(i+1)

height=msg(i+2)

width=msg(i+3)

adurl=msg(i+4)

exit for

end if[/ol]复制代码访问提示：
Microsoft VBScript 运行时错误 错误 '800a0009'

下标越界: '[number: 2]'

/index.asp，行 41


什么问题呢？球高手解答。。。

奔跑的油条

553993 发表于 2013-9-27 14:18

同样是空白

第30行后面插入下面两行，看一下输出结果：

Response.write sURL
Response.end

553993

没人知道吗

orvice

不会

奔跑的油条

本帖最后由 奔跑的油条 于 2013-9-27 12:53 编辑

41行的，first_name(2)数组越界


造成此错误的原因：
35行  first_name=split(sURL,".") 分割出来的数组下标没有2，也就是当前sURL中的"."号只有1个。

解决方法有两种：
1.41行前插入一行，输入如下代码：on error resume next
2.35行前插入一行，输入如下代码：sURL=sURL & "."


唉，回答一个问题，分都没有。

553993

奔跑的油条 发表于 2013-9-27 12:52

41行的，first_name(2)数组越界
加了on error resume next后访问显示空白。又是什么问题呢？

奔跑的油条

553993 发表于 2013-9-27 13:33

加了on error resume next后访问显示空白。又是什么问题呢？
如果不能忽略错误，请使用第二种方法

553993

奔跑的油条 发表于 2013-9-27 13:50

如果不能忽略错误，请使用第二种方法
同样是空白

553993

奔跑的油条 发表于 2013-9-27 14:21

第30行后面插入下面两行，看一下输出结果：

Response.write sURL
现在是显示域名在页面上。而不是跳转到指定页面。

553993

553993 发表于 2013-9-27 14:34

现在是显示域名在页面上。而不是跳转到指定页面。
你不能把输出内容贴出来的？
奔跑的油条 发表于 2013-9-27 14:41

你不能把输出内容贴出来的？
我整个程序传上去你看看。就是index.asp这个文件
地址http://pan.baidu.com/s/1FZ2T8