TOMMYHU

<%
'//----------------------------ASP中类的使用---------------------------------//
Class CaboClass

'//----声明（声明就是定义）CaboClass类的类内部（私有）变量
'//---- 声明时一般将变量定义成[Private]私有，通过属性读写器将变量[Public] 公开.
Private strAuthor
Private strVersion
Private strExample

'//---------------------------定义类的事件-------------------------------------//

'//---Class_Initialize()是类的初始化事件，类被调用，首先会触发该部分的执行，一般用来初始化默认值.
Private Sub Class_Initialize()
    strAuthor = "Cabo Liu"
    strVersion = "v1.0"
    Response.Write("<br>CaboClass开始了<br>")
End Sub

'//----Class_Terminate()是类的结束事件，退出该类，就会触发该事件。  
Private Sub Class_Terminate()
    Response.Write("<br>CaboClass结束了<br>")
End Sub

'//---------------------------用户自己定义的方法-------------------------------//
'//----该方法返回一个版权信息
Public Sub Information()
    Response.Write("<br>Coding By <a href=‘http://www.tommyhu.cn’>Tommyhu</a> @ ")
    Response.Write("<a href='http://tommyhu.cn/'>雄起</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
%>

<%
'//---------------------------ASP类的调用--------------------------------//
Dim oneNewClass
Set oneNewClass = New CaboClass
Response.Write("作者： "& oneNewClass.Author &" <br>")
Response.Write("版本： "& oneNewClass.Version &" <br>")
oneNewClass.SetExapmle = "这是一个简单类的例子"
Response.Write("用户自定义：" & oneNewClass.Exapmle &" <br>")
Response.Write(oneNewClass.Information")
Set oneNewClass = Nothing
%>