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
%>(鼠標移到代碼上去，在代碼的頂部會出現四個圖標，第一個是查看源代碼，第二個是復制代碼，第三個是打印代碼，第四個是幫助)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 source
