以下是代码片段: <% ’//--------------------------------开始一个类---------------------------------// Class myClass ’//----声明(声明就是定义)myClass类的类内部(私有的[Private])变量 Private strAuthor Private strVersion Private strExample ’//---------------------------定义类的事件-------------------------------// ’//----Class_Initialize()是类的初始化事件,只要一开始使用该类,首先会触发该部分的执行,下面我们会在该成员中初始化该类的作者和版本以及在屏幕上显示一下该类已经开始了 Private Sub Class_Initialize() strAuthor = "coldstone" strVersion = "1.0" Response.Write "<br>myClass开始了<br>" End Sub ’//----Class_Terminate()是类的结束事件,只要一退出该类,就会触发该事件,下面我们会该事件中设定退出该类时会在屏幕上显示该类已结束了。 Private Sub Class_Terminate() Response.Write "<br>myClass结束了<br>" End Sub ’//---------------------------用户自己定义的方法-------------------------------// ’//----该方法返回一个版权信息 Public Sub Information() Response.Write "<br>Coding By <a href=’mailto:coldstone@falsh8.cn’>coldstone</a> @ <a href=’http://www.flash8.net’>闪吧</a>.<br>" End Sub ’//---------------------------定义类的输出属性-------------------------------// ’//----定类的属性,该属性是让用户初始化strExapmle变量 Public Property Let setExapmle(ByVal strVar) strExapmle = strVar End Property ’//---------------------------定义类的输出属性-------------------------------// ’//----定义类的属性,该属性是返回一个版本号 Public Property Get Version Version = strVersion End Property ’//----定义类的属性,该属性是返回该类的作者号 Public Property Get Author Author = strAuthor End Property ’//----定义类的属性,该属性是返回一个版本号 Public Property Get Exapmle Exapmle = strExapmle End Property End Class %> <% ’//-------这里是使用该类的例子 Dim oneNewClass Set oneNewClass = New myClass Response.Write "作者: "& oneNewClass.Author &" <br>" Response.Write "版本: "& oneNewClass.Version &" <br>" oneNewClass.setExapmle = "这是一个简单类的例子" Response.Write "用户自定义:" & oneNewClass.Exapmle &" <br>" oneNewClass.Information Set oneNewClass = Nothing %> |
新闻热点
疑难解答