下标越界怎么解决 急

  MicrosoftVBScript运行时错误错误'800a0009'下标越界:'[ ]'/bbs/Default。Asp,行169代码如下0ThenBrowser="InternetExplorer"version=Trim(Left(Replace(Agent(1),"MSIE",""),6))ElseIfInStr(Agent(4),"Netscape")＞0ThenBrowser="Netscape"tmpstr=Split(Agent(4),"/")version=tmpstr(UBound(tmpstr))ElseIfInStr(Agent(4),"rv:")＞0ThenBrowser="Mozilla"tmpstr=Split(Agent(4),":")version=tmpstr(UBound(tmpstr))IfInStr(version,")")＞0Thentmpstr=Split(version,")")version=tmpstr(0)EndIfEndIfIfInStr(Agent(2),"NT6。
  0")＞0Thenplatform="Windowsvista"ElseIfInStr(Agent(2),"NT5。2")＞0Thenplatform="Windows2003"ElseIfInStr(Agent(2),"WindowsCE")＞0Thenplatform="WindowsCE"ElseIfInStr(Agent(2),"NT5。
  1")＞0Thenplatform="WindowsXP"ElseIfInStr(Agent(2),"NT4。0")＞0Thenplatform="WindowsNT"ElseIfInStr(Agent(2),"NT5。0")＞0Thenplatform="Windows2000"ElseIfInStr(Agent(2),"NT")＞0Thenplatform="WindowsNT"ElseIfInStr(Agent(2),"9x")＞0Thenplatform="WindowsME"ElseIfInStr(Agent(2),"98")＞0Thenplatform="Windows98"ElseIfInStr(Agent(2),"95")＞0Thenplatform="Windows95"ElseIfInStr(Agent(2),"Win32")＞0Thenplatform="Win32"ElseIfInStr(Agent(2),"Linux")＞0Thenplatform="Linux"ElseIfInStr(Agent(2),"SunOS")＞0Thenplatform="SunOS"ElseIfInStr(Agent(2),"Mac")＞0Thenplatform="Mac"ElseIfUBound(Agent)＞2ThenIfInStr(Agent(3),"NT5。
  1")＞0Thenplatform="WindowsXP"EndIfIfInStr(Agent(3),"Linux")＞0Thenplatform="Linux"EndIfEndIfIfInStr(Agent(2),"Windows")＞0Andplatform="unknown"Thenplatform="Windows"EndIfElseIfLeft(Agent,5)="Opera"ThenAgent=Split(Agent,"/")Browser="Mozilla"tmpstr=Split(Agent(1),"")version=tmpstr(0)IfInStr(Agent(1),"NT6。
  0")＞0Thenplatform="Windowsvista"ElseIfInStr(Agent(1),"NT5。2")＞0Thenplatform="Windows2003"ElseIfInStr(Agent(1),"WindowsCE")＞0Thenplatform="WindowsCE"ElseIfInStr(Agent(1),"NT5。
  1")＞0Thenplatform="WindowsXP"ElseIfInStr(Agent(1),"NT4。0")＞0Thenplatform="WindowsNT"ElseIfInStr(Agent(1),"NT5。
  0")＞0Thenplatform="Windows2000"ElseIfInStr(Agent(1),"NT")＞0Thenplatform="WindowsNT"ElseIfInStr(Agent(1),"9x")＞0Thenplatform="WindowsME"ElseIfInStr(Agent(1),"98")＞0Thenplatform="Windows98"ElseIfInStr(Agent(1),"95")＞0Thenplatform="Windows95"ElseIfInStr(Agent(1),"Win32")＞0Thenplatform="Win32"ElseIfInStr(Agent(1),。