ASP类定义和实例化简单操作

<%
Response.Charset="UTF-8"
Class ceshi
Private id
Private username

'类初始化操作
Private Sub Class_Initialize()
id = 999
username = "小龙女"
end Sub 

'类释放操作
Private Sub Class_Terminate()
id = 0
username = ""
username.close
Set username = Nothing
end sub

'给设置属性值
Public Property let shezhishuxing(shuzi)
id = shuzi
end Property

'获取属性id的值
Public Property Get Getid()
Getid = id
End Property

Public Property Get huoquusername()
huoquusername = username
end Property

'获取版本号
Public Property Get Banben
Banben = "1.1.0"
end Property

'定义函数并设置参数并返回值
Public Function Zidong(Byval beijing,Byval shanghai)
On Error Resume Next
Dim zhongguo
zhongguo = beijing+shanghai
Zidong = zhongguo
If Err.number <> 0 Then
Zidong = 0
end if
End Function

End Class

'使用类实例：
dim shilihua
Set shilihua = New ceshi

response.Write shilihua.Getid

shilihua.shezhishuxing = 888

response.Write shilihua.Getid

response.Write shilihua.huoquusername

response.Write(shilihua.Zidong(8,8))

'Response.Write(shilihua.Banben()) '等与Response.Write(shilihua.Banben)

%>