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")
原文地址:https://www.jb51.cc/vb/259259.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。