Class Yongfa365Test
'==========声明变量==========
Private p1
Private p2, p3, p4, mySex
Public MyName 'Public型变量相当于属性,引用类后可以直接调用或设置值
'==========声明属性==========
Public Property GetAuthor()
Author = "http://www.yongfa365.com/"
End Property
Public Property SetSex(Val)
mySex = Val
End Property
Public Property Get Sex()
Sex = mySex
End Property
'==========声明方法==========
Public Function WriteSex()
WriteSex = "我的性别是:" & mySex
End Function
'==========初 始 化==========
Private Sub Class_Initialize '在创建类的实例时发生此事件。
'初始化数据:变量,定义一些对象,如
Set strm = Server.CreateObject("ADODB.Stream")
mySex = "女"
End Sub
'==========销毁对象==========
Private Sub Class_Terminate
'在所关联的类的实例终止时发生此事件。
'把一些对象给注销掉,如:
Set strm =
Sub
End Class
'创建类的实例。
Set X = New Yongfa365Test
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
MsgBox Str
'销毁类的实例。
Set X = Nothing
调用方法:
ASP: set fso=server.createobject("adodb.recordset")
VBS: set fso=createobject("adodb.recordset")