ASP类编写详细说明
首先asp的类是由事件和方法(它们就是构成类的成员了)构成的,如果大家还没有接触过,可以先看看下面的说明(哈哈,我是现学现卖,说得不好请见谅)
class myclass '//---------------------------定义类的事件-------------------------------// private sub class_initialize() private sub class_terminate() '//---------------------------用户自己定义的方法-------------------------------// '//----该方法返回一个版本信息 '//---------------------------定义类的输出属性-------------------------------// '//----定类的属性,该属性是让用户初始化strexapmle变量 public property let setexapmle(byval strvar) '//---------------------------定义类的输出属性-------------------------------// '//----定义类的属性,该属性是返回一个版本号 public property get version '//----定义类的属性,该属性是返回该类的作者号 public property get author '//----定义类的属性,该属性是返回一个版本号 public property get exapmle end class </script> '//-------这里是使用该类的例子 dim onenewclass set onenewclass = myclass response.write 作者: & onenewclass.author & <br> onenewclass.setexapmle = 这是一个简单类的例子 response.write 用户自定义: & onenewclass.exapmle & <br> onenewclass.information set onenewclass = nothing %>
在 class 块中,成员通过相应的声明语句被声明为 private(私有成员,只能在类内部调用) 或 public(公有成员,可以在类内外部调用) 。被声明为 private 的将只在 class 块内是可见的。被声明为 public 不仅在 class 块的内部是可见的,对 class 块之外的代码也是可见的。没有使用 private 或 public 明确声明的被默认为 public。在类的块内部被声明为 public 的过程(sub 或 function)将成为类的方法。public 变量将成为类的属性,同使用 property get、property let 和 property set 显式声明的属性一样。类的缺省属性和方法是在它们的声明部分用 default 关键字指定的。
请大家内心看完蓝色的部分,下面我们来看一个例子
<script language=vbscript runat=server>
'//----声明(声明就是定义)myclass类的类内部(私有的[private])变量
private strauthor
private strversion
private strexample
'//----class_initialize()是类的初始化事件,只要一开始使用该类,首先会触发该部分的执行,下面我们会在该成员中初始化该类的作者和版本以及在屏幕上显示一下该类已经开始了
strauthor = 思源
strversion = 1.0
response.write <br>myclass开始了<br>
end sub
'//----class_terminate()是类的结束事件,只要一退出该类,就会触发该事件,下面我们会该事件中设定退出该类时会在屏幕上显示该类已结束了。
response.write <br>myclass结束了<br>
end sub
public sub information()
response.write <br>coding by <a href='mailto:coder@sinobe.com'>maxid_zen</a> @ <a href='http://www.design60s.com'>www.design60s.com</a>.<br>
end sub
strexapmle = strvar
end property
version = strversion
end property
author = strauthor
end property
exapmle = strexapmle
end property
<%
response.write 版本: & onenewclass.version & <br>
上一篇: 杨梅怎么吃才健康
下一篇: 直接保存URL图像或网页到服务器本地的类