最近不搞ASP了，转向ASP．NET，有了一定的面向对象操作的经验；
当回过头看以前写的ASP代码时，觉得真难看（写得乱），就花了点时间写了下面的CLASS模板；
希望以后需要写ASP程序时，可以这么做，其实动网论坛很早就这样做了（那时没太大留意）。
定义方法:
<%
REM 自定义对象类
REM -----------------------------------------
REM -- VBScript 自定义对象类 ---
REM -----------------------------------------
<%
Class cls_Penguin
REM 定义私有字段
Private Private_Value
REM 定义公有字段
Public Public_Value
REM 构造函数
Private Sub Class_Initialize
Public_Value = "Initialize Is OK !<br>"
End Sub
REM 定义析构函数
Public Sub Class_Terminate()
End Sub
REM 定义GET属性
Public Property Get Value
Value = Private_Value
End Property
REM 定义SET属性
Public Property Let Value(ByVal tmpValue)
Private_Value = tmpValue
End Property
REM 定义过程
Public Sub ChangeValue
Private_Value = "Set Private_Value OK !<br>"
End Sub
REM 定义函数
Public Function fnAddNum(a, b)
fnAddNum = a + b
End Function
REM 定义函数(返回是对象)
Public Function fnConn(a, b)
Set fnConn = Server.CreateObject("ADODB.RecordSet")
End Function
End Class
%>
<%
'使用方法:
Dim Penguin
Set Penguin = New cls_Penguin
Response.Write(Penguin.Public_Value)
Penguin.ChangeValue
Response.Write(Penguin.Value)
Penguin.Value = "My Set OK !<br>"
Response.Write(Penguin.Value)
Response.Write Penguin.fnAddNum(1, 2)
Set Penguin = Nothing
%>
输出结果:
Initialize Is OK !
Set Private_Value OK !
My Set OK !
3
