ASP类

<%
'//--------------------------------开始一个类---------------------------------//

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&#39;>闪吧</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

%>