请教关于使用class关键字的问题

[liangxf0022]

请看下面的程序：
<% '用类作为对象测试
Class MyClass
private mCount
private mName(100)
private mValue(100)

private Sub Class_Initialize '初始化
ik = 0
for i = 0 to 99
' response.write i
ik = ik + i
mCount = i + 1
mName(i) = "测试" & Cstr(i)
mValue(i) = ik
next
end sub

public function GetName(i)
tmp = mName(i - 1)

GetName = tmp
end function

Public Function GetValue(i)
tmp = mValue(i - 1)

GetValue = tmp
End Function
End Class

set x = new MyClass
for i = 1 to 100
response.write "Name : " + Cstr(x.GetName(i)) + " Value : " + Cstr(x.GetValue(i)) + "<br>"
next
%>
上述程序在2000/iis5/vbscript5.5中正常，但是在nt4/iis4/vbscript 5.1.4615中出现如下提示：
Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'mName'

/q35.asp, 行23
请问这是为什么？

[liangxf0022]

注意是在服务器上执行！

[hydnoahark]

代码错误：
>>private mName(100)
>>private mValue(100)

正确代码：
Class MyClass
private mCount
private mName()
private mValue()

private Sub Class_Initialize '初始化

ReDim mName(100)
ReDim mValue(100)
Dim a(100)
ik = 0
for i = 0 to 99

ik = ik + i
mCount = i + 1
mName(i) = "测试" & Cstr(i)
mValue(i) = ik

next
end sub

public function GetName(i)
tmp = mName(i - 1)

GetName = tmp
end function

Public Function GetValue(i)
tmp = mValue(i - 1)

GetValue = tmp
End Function
End Class

[liangxf0022]

MSDN上说只要5.0以上就可以支持了。

[karma]

install IE5.5 or IE6 on your nt4 machine