asp类的定义方法和使用方法实例

<%
class myclass
	'这里是定义类的局部变量，需要定义成private类型的变量，不可以直接对这些变量赋值
	private str_title
	private str_author
	
	'这是类初始化的时候自动运行下面代码
	private sub class_initialize()
		response.write "类开始初始化了<br>"
		str_title="一个新页面开始了"
		str_author=""
	end sub
	
	'这里是类结束自动要执行的下面代码
	private sub class_terminate()		
		response.write "类结束了<br>"
	end sub
	
	'这是自定义的函数，如将外面的值赋值给类中的某个值
	public property let setauthor(ByVal str)
		str_author="您赋值的内容是："&str&""
	end property
	
	'这是获取类中private变量的方法
	public property get author()		
		author=str_author&"<br>"
	end property
	
end class
%>

<%
dim a
set a=new myclass 
a.setauthor="www.aspbc.com"
response.write a.author
set a=nothing
%>

3、运行的结果:

 类开始初始化了
 您赋值的内容是：www.aspbc.com
 类结束了