ASP开发中的(VBScript)类基础学习

<script language=vbscript runat=server> 

Class myClass 
'//----声明（声明就是定义）myClass类的类内部（私有的[Private]）变量 
Private strAuthor 
Private strVersion 
Private strExample 

'//---------------------------定义类的事件-------------------------------// 
'//----Class_Initialize()是类的初始化事件，只要一开始使用该类，首先会触发该部分的执行，下面我们会在该成员中初始化该类的作者和版本以及在屏幕上显示一下该类已经开始了 

Private Sub Class_Initialize() 
strAuthor = "思源" 
strVersion = "1.0" 
Response.Write "<br>myClass开始了<br>" 
End Sub 
'//----Class_Terminate()是类的结束事件，只要一退出该类，就会触发该事件，下面我们会该事件中设定退出该类时会在屏幕上显示该类已结束了。 

Private Sub Class_Terminate() 
Response.Write "<br>myClass结束了<br>" 
End Sub 

'//---------------------------用户自己定义的方法-------------------------------// 

'//----该方法返回一个版本信息 

Public Sub Information() 
Response.Write "<br>Coding By <a href='mailtcoder@sinobe.com'>Maxid_Zen</a> @ 

<a href='http://www.design60s.com'>www.design60s.com</a>.<br>" 
End Sub 

'//---------------------------定义类的输出属性-------------------------------// 

'//----定类的属性，该属性是让用户初始化strExapmle变量 

Public Property Let setExapmle(ByVal strVar) 
strExapmle = strVar 
End Property 

'//---------------------------定义类的输出属性-------------------------------// 

'//----定义类的属性，该属性是返回一个版本号 

Public Property Get Version 

[1] [2] [3] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:DB2数据库优化10 佳性能技巧

下一篇:Photoshop制作漂亮的心型挂坠Gif动画图