Class BookClass
private str_author
private sub class_initialize() '类初始化,调用类时就会自动调用的一个事件
str_author = "妫水山庄"
end sub
'/----class_terminate()是类的结束事件，只要一退出该类，就会触发该事件.
private sub class_terminate()
response.write "<br/>BookClass结束了<br/>"
网页教学网

end sub

'/----定义类的属性，该属性是返回该类的作者号
public property get author
author = str_author
end property
public property let author(byval value)
str_author = value
end property
'/----该方法返回一个版本信息
public sub information()
response.write "<br/>coding by www.ovzz.com.<br/>"
end sub

public property set authorObj(byval value)
end property
End Class

'调用：
set book = new BookClass
book.author="妫水山庄信息" '调用了let
'set book.rs=new 对象 '调用了set
response.write book.author '调用get
book.information '调用了bookclass类中的information过程
set book=nothing '结束