<% Class myClass '//----声明（声明就是定义）myClass类的类内部（私有的[Private]）变量 Private strAuthor Private strVersion Private strExample
'//---------------------------定义类的事件-------------------------------// '//----Class_Initialize()是类的初始化事件，只要一开始使用该类，首先会触发该部分的执行. '//----下面我们会在该成员中初始化该类的作者和版本以在屏幕上显示一下该类已经开始了
Private Sub Class_Initialize() strAuthor = "思源" strVersion = "1.0" Response.Write "<br>myClass开始了<br>" End Sub '//----Class_Terminate()是类的结束事件，只要一退出该类，就会触发该事件. '//----下面我们会该事件中设定退出该类时会在屏幕上显示该类已结束了。
Private Sub Class_Terminate() Response.Write "<br>myClass结束了<br>" End Sub
'//---------------------------用户自己定义的方法-------------------------------//
'//----该方法返回一个版本信息
Public Sub Information() Response.Write "<br>Coding By <a href='mailtcoder@sinobe.com'>Maxid_Zen</a> @ <a href='http://www.design60s.com'>www.design60s.com</a>.<br>" End Sub
'//---------------------------定义类的输出属性-------------------------------//
'//----定类的属性，该属性是让用户初始化strExapmle变量
Public Property Let setExapmle(ByVal strVar) strExapmle = strVar End Property
'//---------------------------定义类的输出属性-------------------------------//
'//----定义类的属性，该属性是返回一个版本号
Public Property Get Version Version = strVersion End Property
'//----定义类的属性，该属性是返回该类的作者号
Public Property Get Author Author = strAuthor End Property
'//----定义类的属性，该属性是返回用户自定义信息
Public Property Get Exapmle Exapmle = strExapmle End Property
End Class %> <%
'//-------这里是使用该类的例子
Dim oneNewClass
Set oneNewClass = new myClass
Response.Write "作者：" & oneNewClass.Author & "<br>" Response.Write "版本：" & oneNewClass.Version & "<br>"
oneNewClass.setExapmle = "这个类怎么不行啊？"
Response.Write "用户自定义：" & oneNewClass.Exapmle & "<br>"
oneNewClass.Information
Set oneNewClass = Nothing
%>
非常简单的一个类，我找来想学习写类的。可是，这个类用户自定义的变量不能输出啊。大家帮忙看看是什么原因，谢谢了。
