Question

Microsoft VBScript 运行时错误 错误 '800a0009' 下标越界: '[number: 1]' /inc/useragent.asp,行 3

Microsoft VBScript 运行时错误 错误 '800a0009'
下标越界: '[number: 1]'
/inc/useragent.asp，行 3

以上是错误信息

<%
strsplit=split(Request.Servervariables("HTTP_USER_AGENT"),";")
strsplit(1)=replace(strsplit(1),"MSIE","Internet Explorer")
strsplit(2)=replace(strsplit(2),")","")
strsplit(2)=replace(strsplit(2),"NT 5.1","XP")
strsplit(2)=replace(strsplit(2),"NT 5.0","2000")
strsplit(1)=Trim(strsplit(1))
strsplit(2)=Trim(strsplit(2))
%>

以上是文件源码，请问我该如何改写？

Answer 1

strsplit=split(Request.Servervariables("HTTP_USER_AGENT"),";")
strsplit1=replace(strsplit,"MSIE","Internet Explorer")
strsplit2=replace(strsplit,")","")
strsplit2=replace(strsplit2,"NT 5.1","XP")
strsplit2=replace(strsplit2,"NT 5.0","2000")
strsplit1=Trim(strsplit1)
strsplit2=Trim(strsplit2)