Asp中的类的使用方法详解

 
'----------------------------ASP中类的使用---------------------------------
 
Class ALoaferClass 
 
'---- 声明（声明就是定义）CaboClass类的类内部（私有）变量
 
'---- 声明时一般将变量定义成[Private]私有，通过属性读写器将变量[Public] 公开
 
Private strAuthor 
Private strVersion 
Private strExample 
 
'---------------------------定义类的事件-------------------------------------
 
'---Class_Initialize()是类的初始化事件，类被调用，首先会触发该部分的执行，一般用来初始化默认值.
 
Private Sub Class_Initialize() 
    strAuthor = "MK" 
    strVersion = "v1.0" 
    Response.Write("<br />ALoafer Class开始了<br />")
End Sub 
 
'----Class_Terminate()是类的结束事件，退出该类，就会触发该事件。
 
Private Sub Class_Terminate() 
    Response.Write("<br />ALoafer Class结束了<br />")
End Sub 
 
'---------------------------用户自己定义的方法-------------------------------
 
'----该方法返回一个版权信息 
 
Public Sub Information() 
    Response.Write("<br />Coding By <a href='www.aimks.com'>明凯博客</a>")
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类的调用-------------------------------- 
'---- 使用 set new 创建对象，由于不是服务器组件，所以不能用 server.CreateObject 创建
 
Dim oneNewClass 
Set oneNewClass = New ALoaferClass  
Response.Write("作者： "& oneNewClass.Author &" <br />")
Response.Write("版本： "& oneNewClass.Version &" <br />")
oneNewClass.SetExapmle = "这是一个简单类的例子" 
Response.Write("用户自定义：" & oneNewClass.Exapmle &" <br />")
Response.Write(oneNewClass.Information)
Set oneNewClass = Nothing   '释放对象