Option Explicit

Private Context As ScriptingContext
Private Application As Application
Private Response As Response
Private Request As Request
Private Session As Session
Private Server As Server

'定义一个公有变量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

Public Sub OnStartPage(PassedscriptContext As ScriptingContext)
    Set Context = PassedscriptContext
    Set Application = Context.Application
    Set Request = Context.Request
    Set Response = Context.Response
    Set Server = Context.Server
    Set Session = Context.Session
End Sub
'定义一个私有函数过程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

'释放内部对象
Public Sub OnEndPage()
    Set Application = Nothing
    Set Request = Nothing
    Set Response = Nothing
    Set Server = Nothing
    Set Session = Nothing
    Set Context = Nothing
End Sub

<%
Dim NewClass
Set NewClass = Server.CreateObject("NewClass.mzwu")
Response.write NewClass.url '此时url没值，显示"出错了:还没有给url赋值"
Response.write "<br/>"
NewClass.url = "http://www.mzwu.com/"
Response.write NewClass.url '赋值后显示"http://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
%>