我的第一个asp 类,练习

 

<%
Class myClass
' 声明myClass 的私有变量
Private strAuthor
Private strVersion
Private strExample
'初始化
   '构造函数在类声明时被调用
   ' set newclass = myClass
Private Sub Class_Initialize()
    strAuthor = "gbsck"
    strVersion = "1.0"
    response.write strAuthor
    response.write ":"&strVersion
    Response.write "<br>myClass开始了<br>"

End Sub 
'析构
   '1 set newclass = nothing 时被调用
   '2 在页面结束时被掉用
Private Sub Class_Terminate()
    Response.write "<br>myclass结束了<br>"
End Sub 

Public Sub Information()
    Response.write "<br><a href="" http://gbsck.cnblogs.com"">gbsck</a><br>"
End Sub 


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>"
'Response.Write "用户自定义：" & oneNewClass.Exapmle &" <br>"
oneNewClass.Information
Set oneNewClass = Nothing
%>