如何编写一个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 "<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='mailto:[e-mail]'>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 
%>