Question

Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配: 'ubound' /online/onlineuser.asp，行109

onlineuser.asp出错内容行
106 dim onlineuser
107 application.lock
108 onlineuser=application("onlineuser")
109 number=ubound(onlineuser)
110 for i=0 to number
111 if onlineuser(i)<>"" then
112 dimstr=split(onlineuser(i),"$")
113 if 1 then

如何解决

Answer 1

如果你无法确定从Application中取回的数据是否是数组,最好先检查一下.
可以在不是数组时进行初始化, 或者跳过后续代码. 例
dim onlineuser
application.lock
onlineuser = application("onlineuser")
If IsArray(onlineuser) Then
number = ubound(onlineuser)
Else
number = -1
End If
for i=0 to number
if onlineuser(i)<>"" then
dimstr=split(onlineuser(i),"$")
......