【转】asp class类的使用方法

大学期间学过asp语言，当时也没有提出过class类的概念，毕业后也没有深入的研究。今天重新拾起来玩玩，发现asp的类类似java中类，确实不错。
下面我们讲述一下asp class类的使用方法,先通过一个例子了解一下class的结构、方法、属性等。asp同样包含属性、方法等
Class ALoaferClass 
Private strAuthor 
Private strVersion 
Private strExample 

'//---Class_Initialize()是类的初始化事件，类被调用，首先会触发该部分的执行，一般用来初始化默认值.
Private Sub Class_Initialize() 
strAuthor = "Cabo'liu" 
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='mailto:vip@hbap.net'>Cabo Liu</a> @ ")
Response.Write("<a href='http://www.hbap.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 

oneNewClass = new ALoaferClass 会执行Class_Initialize方法
set oneNewClass = Nothing 会执行Class_Terminate方法
不错，很好用