请教有关VBScript的问题(高手请进)

[liuzkun2]

请看下面的代码:
<%
' File: Dv_ClsMain.asp
' 同时解决封IP中伪造cookies信息 =
' 和通过访问一下管理页躲过封IP的问题 =
'========================================
Dim Ad_3(100),i3
Class Cls_Forum
Rem Const
Public BoardID,SqlQueryNum,Forum_Info,Forum_Setting,Forum_user,Forum_Copyright,Forum_ads,Forum_ChanSetting
Public Forum_sn,Forum_Version,Stats,StyleName,ErrCodes,NowUseBBS,Cookiepath
...................................

Rem Sub
Private Sub Class_Initialize()
savelog=0'设置为1的时候会记录攻击或错误错信息。
SqlQueryNum = 0
Reloadtime=14400
..........................
sendmsgnum=0:sendmsgid=0:sendmsguser=""
End Sub
....................
End Class
%>
注:"........."是省略的代码

请问在VBScript中可以定义类的吗?还有那些Rem Const,Rem Sub是怎样用的?
------------------------------------

[尚和空四]

当然可以了
和vb差不多用法

[KimSoft]

可以
Class 类名
'属性
'方法
End Class

Rem 是注释，当相当于 '
Rem Sub 也就是
'Sub

[BlueDestiny]

vbs里的类只是封装的概念

[KimSoft]

是的，功能非常之弱。

[tigerwen01]

asp中定义类：
<%
Class Myclass
Public sub MyMethod(str)
Response.write str
End Sub
End Class

Set myObj=New Myclass
myObj.MyMethod "Hello World!"
%>
Rem 是注释

[liuzkun2]

多谢楼上各位朋友的解答,让我明白了vbs中类的用法!
------------------------------------

[yiyioo]

函数Class_Initialize()
是构造函数