Question

Microsoft VBScript 运行时错误 '800a0009' 下标越界: '[number: 1]'

Microsoft VBScript 运行时错误 '800a0009'
下标越界: '[number: 1]'
\inc\Cls_Brower.asp, line 9

第9行的代码是：

If InStr(Agent(1),"MSIE")>0 Then
Browser="Microsoft Internet Explorer "
version=Trim(Left(Replace(Agent(1),"MSIE",""),6))
ElseIf InStr(Agent(4),"Netscape")>0 Then
Browser="Netscape "
tmpstr=Split(Agent(4),"/")
version=tmpstr(UBound(tmpstr))
ElseIf InStr(Agent(4),"rv:")>0 Then
Browser="Mozilla "
tmpstr=Split(Agent(4),":")
version=tmpstr(UBound(tmpstr))
If InStr(version,")") > 0 Then
tmpstr=Split(version,")")
version=tmpstr(0)
End If
End If

Answer 1

原因是Agent的最大下标是0，所以Agent(1)就下标越界了。造成这种情况的原因肯定是Agent在分割的时候分割符没有搞对（按常理应该是一个分号再加一个空格）。所以实际出错的代码肯定是在第9行之前。

追问

那还需要什么呀？能把正确的代码写出来嘛

追答

意思是叫你把第9行前面的代码贴出来

追问

If InStr(Agent(1),"MSIE")>0 Then 这就是第九行的代码 哥哥

追答

非得让我再三解释：
“第9行前面”我不知道你是怎么理解的，我只能把自己所理解的告诉你，有不同意见可以说出来：
所谓的“第9行前面”意思就是：
第1行
第2行
第3行
第4行
第5行
第6行
第7行
第8行
你把这8行的代码贴出来。

补充说明一下：一般情况下说某一行出错，那么问题肯定是出在这行或这行前面的代码的，你贴出这行后面的代码是起不到帮助解决问题的作用的

追问

不是很多 很高兴你教我 我这就贴出来

0 Then

追答

估计你是用谷歌的Chrome来测试的吧？Chrome浏览器的Agent字串是比较特殊的，中间不是用;号分割的，所以用Agent=Split(Agent,";")是无法正确分割字符串的。
下面分别是IE、Chrome、Firefox的Agent字串，你可以对比一下：
IE7：
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022)
Chrome：
Mozilla/5.0 (Windows NT 5.1) AppleWebKit/535.7 (KHTML, like Gecko) Chrome/16.0.912.63 Safari/535.7
Firefox：
Mozilla/5.0 (Windows NT 5.1; rv:16.0) Gecko/20100101 Firefox/16.0

你所用的这段检测浏览器类型和版本号的代码是比较古老的，只能检测IE、Netscape这两种浏览器，无法检测新型的浏览器如Chrome、Firefox、Safari等，而Netscape现在几乎看不到了。

Answer 2

原因是Agent的最大下标是0，所以Agent(1)就下标越界了。造成这种情况的原因肯定是Agent在分割的时候分割符没有搞对（按常理应该是一个分号再加一个空格）。所以实际出错的代码肯定是在第9行之前。意思是叫你把第9行前面的代码贴出来

Answer 3

下标越界: '[number: 0]' 的错误，需要检查下：

playurlArray=split(playurl,span1) 这句代码是不是正确分割开字符串并返回数组。

playurlLen=ubound(playurlArray) 检查playurlLen的值是不是得到预想中的正确结果。

Answer 4

Microsoft VBScript 运行时错误 '800a0009'

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

\fun\funlogic.asp, line 321

代码多，HI里发Microsoft VBScript 运行时错误 '800a0009'

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

\fun\funlogic.asp, line 318
318行错，

一下是代码。

end function

function filenametime(str)
arr=split(str,"-")
filenametime=arr(0)&arr(1)&arr(2) 318行处
end function

function timemd(str)
arr=split(str,"-")
if len(arr(2))=1 then
arr(2)="0"&arr(2)
end if
if len(arr(1))=1 then
arr(1)="0"&arr(1)
end if
timemd=arr(1)&"-"&arr(2)
end function

Answer 5

下标从0开始，到number-1