如何编写一个ASP类

相偎0811

相偎0811

2016-02-19 11:15

关注图老师设计创意栏目可以让大家能更好的了解电脑,知道有关于电脑的更多有趣教程,今天给大家分享如何编写一个ASP类教程,希望对大家能有一点小小的帮助。
前几天大佛写了“ASP设计模式”,可能有些初学者或者刚刚接触ASP的朋友不一定完全看得明白,偶就整理了一下编写一个ASP类的方法,大部分是从网上找来的。希望对朋友们有帮助。 
《ASP设计模式》(作者 我佛山人):
dispbbs.asp?boardID=20&ID=247879
首先ASP的类是由事件和方法(它们就是构成类的成员了)构成的,如果大家还没有接触过,可以先看看下面的说明:
在 Class 块中,成员通过相应的声明语句被声明为 Private(私有成员,只能在类内部调用) 或 Public(公有成员,可以在类内外部调用) 。被声明为 Private 的将只在 Class 块内是可见的。被声明为 Public 不仅在 Class 块的内部是可见的,对 Class 块之外的代码也是可见的。没有使用 Private 或 Public 明确声明的被默认为 Public。在类的块内部被声明为 Public 的过程(Sub 或 Function)将成为类的方法。Public 变量将成为类的属性,同使用 Property Get、Property Let 和 Property Set 显式声明的属性一样。类的缺省属性和方法是在它们的声明部分用 Default 关键字指定的。 
请大家耐心看完上面的部分,下面我们来看一个例子:


'//--------------------------------开始一个类---------------------------------// 
Class myClass 

'//----声明(声明就是定义)myClass类的类内部(私有的[Private])变量 
Private strAuthor 
Private strVersion 
Private strExample 
'//---------------------------定义类的事件-------------------------------// 

'//----Class_Initialize()是类的初始化事件,只要一开始使用该类,首先会触发该部分的执行,下面我们会在该成员中初始化该类的作者和版本以及在屏幕上显示一下该类已经开始了 
Private Sub Class_Initialize() 
strAuthor = "coldstone" 
strVersion = "1.0" 
Response.Write "brmyClass开始了br" 
End Sub 

'//----Class_Terminate()是类的结束事件,只要一退出该类,就会触发该事件,下面我们会该事件中设定退出该类时会在屏幕上显示该类已结束了。 
Private Sub Class_Terminate() 
Response.Write "brmyClass结束了br" 
End Sub 
'//---------------------------用户自己定义的方法-------------------------------// 
'//----该方法返回一个版权信息 
Public Sub Information() 
Response.Write "brCoding By a href='mailto:coldstone@falsh8.cn'coldstone/a @ a href='http://www.flash8.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 
%% 
'//-------这里是使用该类的例子 
Dim oneNewClass 
Set oneNewClass = New myClass 
Response.Write "作者: "& oneNewClass.Author &" br" 
Response.Write "版本: "& oneNewClass.Version &" br" 
oneNewClass.setExapmle = "这是一个简单类的例子" 
Response.Write "用户自定义:" & oneNewClass.Exapmle &" br" 
oneNewClass.Information 
Set oneNewClass = Nothing 
展开更多 50%)
分享

猜你喜欢

如何编写一个ASP类

Web开发
如何编写一个ASP类

编写一个JAVA的队列类

Java JAVA基础
编写一个JAVA的队列类

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

编写一个asp代码执行器

ASP
编写一个asp代码执行器

ASP编写完整的一个IP所在地搜索类

ASP
ASP编写完整的一个IP所在地搜索类

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

创建一个ASP通用分页类(一)

ASP
创建一个ASP通用分页类(一)

创建一个ASP通用分页类

Web开发
创建一个ASP通用分页类

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

FCKeditor.Net_2.2安全修正版

FCKeditor.Net_2.2安全修正版

让Windows 7系统开机、关机更迅速

让Windows 7系统开机、关机更迅速
下拉加载更多内容 ↓