ihg预定电话:Microsoft VBScript 运行时错误 错误 '800a0009'

来源：百度文库 编辑：查人人中国名人网 时间：2024/05/04 11:49:01
Microsoft VBScript 运行时错误 错误 '800a0009'
下标越界: 'i'

/asp/onlineuser.asp，行86

----------------------------------------
代码具体如下
----------------------------------------
78 <%
79 dim onlineuser
80 application.lock
81 onlineuser=application("onlineuser")
82 number=ubound(onlineuser)
83 for i=0 to number
84 if onlineuser(i)<>"" then
85 dimstr=split(onlineuser(i),"$")
86 if dimstr(0)<>dimstr(i) or i=1 then
87 %>

dimstr=split(onlineuser(i),"$") 是分割字符串的结果，得到的数组元素的个数未知，可以小于i，所以
dimstr(i)在i比数组元素的个数大的时候就越界了

for i=1 to number

Microsoft VBScript Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 microsoft vbscript 编译器错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 (0x800A000D)