【转】asp class类的使用方法

发布时间：2023-02-17 08:46:34 所属栏目：Asp 来源：互联网

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

大学期间学过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(" ALoafer Class开始了 ")
　　End Sub

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

　　'//---------------------------用户自己定义的方法-------------------------------//
　　Public Sub information()
　　Response.Write(" Coding By <a href='mailto:vip@hbap.net'>Cabo Liu</a> @ ")
　　Response.Write("<a href='http://www.hbap.net'>流行</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

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

（编辑：甘南站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!