从mzwu类学习ASP类

<%
Class mzwu
	'定义一个公有变量name,即mzwu类的name属性
	Public name
	
	'定义mzwu类的另一个属性url，注意定义方法
	Private temp_url
	Public property Let url(value) '设置url属性可写,缺此句属性不可写
		temp_url = value
	End property
	Public property Get url '设置url属性可读,缺此句属性不可读
		url = temp_url
	End property
	
	'定义一个私有函数过程addstr,只能在mzwu类内部使用
	Private Function addstr(value)
		addstr = "mzwu中文名称：" & value
	End Function
	
	'类初始化
	Private Sub Class_Initialize
		Dim str
		str = "木子屋"
		name = addstr(str)
		url = "出错了:还没有给url赋值！"
	End Sub
	
	'定义一个子过程writename，即mzwu类的一个方法writename，无返回值
	'可根据实际使该方法带不带参数
	Public Sub writename()
		Response.write "我是调用writename方法来的"
	End Sub
	
	'定义一个函数过程getname,即mzwu类的一个方法getname,有返回值
	'可根据实际使该方法带不带参数
	Public Function getname()
		getname = "我是调用getname方法来的"
	End Function
	
	'类结束
	Private Sub Class_Terminate
		name = ""
		temp_url = ""
	End Sub
End class
%>

<%
Dim NewClass
Set NewClass = new mzwu
Response.write NewClass.url '此时url没值，显示"出错了:还没有给url赋值"
Response.write "<br/>"
NewClass.url = "[i]http[/i]://www.mzwu.com/"
Response.write NewClass.url '赋值后显示"[i]http[/i]://www.mzwu.com/"
Response.write "<br/>"
Response.write NewClass.name '显示"mzwu中文名称：木子屋"
Response.write "<br/>"
Dim str
str = NewClass.getname '调用getname方法
Response.write str  '显示"我是调用getname方法来的"
Response.write "<br/>"
Response.write NewClass.writename '调用writename方法，显示"我是调用writename方法来的"
Set NewClass = Nothing
%>