网站建设知识
asp class类的使用方法
2024/1/2 作者:勤快牛 点击:229033
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("
ALoafer Class开始了
")
End Sub
'//----Class_Terminate()是类的结束事件,退出该类,就会触发该事件。
Private Sub Class_Terminate()
Response.Write("
ALoafer Class结束了
")
End Sub
'//---------------------------用户自己定义的方法-------------------------------//
Public Sub Information()
Response.Write("
Coding By Cabo Liu @ ")
Response.Write("流行.
")
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方法
不错,很好用
大学期间学过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 Cabo Liu @ ")
Response.Write("流行.
")
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: