大学期间学过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 @R_542_4045@ion()
Response.Write("<br>Coding By <a href='mailto:[email protected]'>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方法
不错，很好用
