这里介绍一下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 类结束了