安平县云天科技有限公司
网站建设知识

亳州市asp class类的使用方法

2021-9-14 11:02:09  作者:安小云  点击:28948
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方法
不错,很好用
Tag:
发表建议

安平县云天科技有限公司

QQ:


微信二维码


展开客服