这里介绍一下asp类的定义方法和使用方法 1、asp类的定义方法 view sourceprint?01 <%
02 class myclass
03 '这里是定义类的局部变量,需要定义成private类型的变量,不可以直接对这些变量赋值
04 private str_title
05 private str_author
06
07 '这是类初始化的时候自动运行下面代码
08 private sub class_initialize()
09 response.write "类开始初始化了<br>"
10 str_title="一个新页面开始了"
11 str_author=""
12 end sub
13
14 '这里是类结束自动要执行的下面代码
15 private sub class_terminate()
16 response.write "类结束了<br>"
17 end sub
18
19 '这是自定义的函数,如将外面的值赋值给类中的某个值
20 public property let setauthor(ByVal str)
21 str_author="您赋值的内容是:"&str&""
22 end property
23
24 '这是获取类中private变量的方法
25 public property get author()
26 author=str_author&"<br>"
27 end property
28
29 end class
30 %>
(鼠标移到代码上去,在代码的顶部会出现四个图标,第一个是查看源代码,第二个是复制代码,第三个是打印代码,第四个是帮助)
2、asp类的使用方法 view sourceprint?1 <%
2 dim a
3 set a=new myclass
4 a.setauthor="www.aspbc.com"
5 response.write a.author
6 set a=nothing
7 %>
(鼠标移到代码上去,在代码的顶部会出现四个图标,第一个是查看源代码,第二个是复制代码,第三个是打印代码,第四个是帮助)
3、运行的结果:
view sourceprint?1 类开始初始化了
2 您赋值的内容是
3 类结束了
发表回复