ClassYongfa365Test

'＝＝＝＝＝＝＝＝＝＝声明变量＝＝＝＝＝＝＝＝＝＝

Privatep1

Privatep2,p3,p4,mySex

PublicMyName'Public型变量相当于属性，引用类后可以直接调用或设置值

'＝＝＝＝＝＝＝＝＝＝声明属性＝＝＝＝＝＝＝＝＝＝

PublicPropertyGetAuthor()

Author="http://www.yongfa365.com/"

EndProperty

PublicPropertySetSex(Val)

mySex=Val

EndProperty

PublicPropertyGetSex()

Sex=mySex

EndProperty

'＝＝＝＝＝＝＝＝＝＝声明方法＝＝＝＝＝＝＝＝＝＝

PublicFunctionWriteSex()

WriteSex="我的性别是："&mySex

EndFunction

'＝＝＝＝＝＝＝＝＝＝初始化＝＝＝＝＝＝＝＝＝＝

PrivateSubClass_Initialize '在创建类的实例时发生此事件。

'初始化数据：变量，定义一些对象，如

Setstrm=Server.CreateObject("ADODB.Stream")

mySex="女"

EndSub

'＝＝＝＝＝＝＝＝＝＝销毁对象＝＝＝＝＝＝＝＝＝＝

PrivateSubClass_Terminate

'在所关联的类的实例终止时发生此事件。

'把一些对象给注销掉，如：

Setstrm=

Sub

EndClass

'创建类的实例。

SetX=NewYongfa365Test

Str=X.Author

'测试初始化数据

Str=Str+vbCrLf+X.Sex

Str=Str+vbCrLf+X.WriteSex

'测试对属性附值

X.Sex="男"

Str=Str+vbCrLf+X.Sex

Str=Str+vbCrLf+X.WriteSex

'测试Public变量可以当属性来使

Str=Str+vbCrLf+X.MyName

X.MyName="我是柳永法"

Str=Str+vbCrLf+X.MyName

MsgBoxStr

'销毁类的实例。

SetX=Nothing

调用方法：

ASP: set fso=server.createobject("adodb.recordset")

VBS: set fso=createobject("adodb.recordset")