Question

Microsoft VBScript 运行时错误 错误 '800a0009' 下标越界: '[number: 1]' /Installer/setup.asp,行 138

</tr>
<tr bgcolor="#FAFAFA" height="25">
<td colspan="2">　客户端浏览器版本：<%
Dim Agent,Browser,version,tmpstr
Agent=Request.ServerVariables("HTTP_USER_AGENT")
Agent=Split(Agent,";")

If InStr(Agent(1),"MSIE")>0 Then

Browser="MS 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

数组下标不够位数，导致出错了！
就是说你的数组里的数据不够了，比如数组里只有3组数据，你要调第4组数据的时候他就报错了！

Answer 2

超出数据库的下标了

追问

能说的具体一点吗 ，能帮我改一下吗 。重谢！！

追答

哪一行是138行