类型不匹配: 'UBound'

来源：百度知道 编辑：UC知道 时间：2024/05/14 04:38:33
Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'UBound'

/joke/Foosun/Admin/Collect/Collecting.asp，行 478

代码太多复制不了。

应该是UBound的参数不正确，UBound的作用对象应该是一个数组，用法如下：
该示例使用 UBound 函数，确定数组的指定维的最大可用下标。

Dim Upper
Dim MyArray(1 To 10, 5 To 15, 10 To 20) '声明数组变量。
Dim AnyArray(10)
Upper = UBound(MyArray, 1) '返回 10
Upper = UBound(MyArray, 3) '返回 20
Upper = UBound(AnyArray) '返回 10

最好查阅相关资料