關(guān)于A(yíng)SP的(VBScript)類(lèi)
首先ASP的(VBScript)類(lèi)是由事件和方法（它們就是構成類(lèi)的成員了）構成的，如果大家還沒(méi)有接觸過(guò)，可以先看看下面的說(shuō)明（哈哈，我是現學(xué)現賣(mài)，說(shuō)得不好請見(jiàn)諒）
在 Class 塊中，成員通過(guò)相應的聲明語(yǔ)句被聲明為 Private(私有成員，只能在類(lèi)內部調用) 或 Public(公有成員，可以在類(lèi)內外部調用) 。被聲明為 Private 的將只在 Class 塊內是可見(jiàn)的。被聲明為 Public 不僅在 Class 塊的內部是可見(jiàn)的，對 Class 塊之外的代碼也是可見(jiàn)的。沒(méi)有使用 Private 或 Public 明確聲明的被默認為 Public。在類(lèi)的塊內部被聲明為 Public 的過(guò)程（Sub 或 Function）將成為類(lèi)的方法。Public 變量將成為類(lèi)的屬性，同使用 Property Get、Property Let 和 Property Set 顯式聲明的屬性一樣。類(lèi)的缺省屬性和方法是在它們的聲明部分用 Default 關(guān)鍵字指定的。
請大家內心看完藍色的部分，下面我們來(lái)看一個(gè)例子
<script language=vbscript runat=server>
Class myClass
‘//----聲明（聲明就是定義）myClass類(lèi)的類(lèi)內部（私有的[Private]）變量
Private strAuthor
Private strVersion
Private strExample
‘//---------------------------定義類(lèi)的事件-------------------------------//
‘//----Class_Initialize()是類(lèi)的初始化事件，只要一開(kāi)始使用該類(lèi)，首先會(huì )觸發(fā)該部分的執行，下面我們會(huì )在該成員中初始化該類(lèi)的作者和版本以及在屏幕上顯示一下該類(lèi)已經(jīng)開(kāi)始了
Private Sub Class_Initialize()
strAuthor = "思源"
strVersion = "1.0"
Response.Write "<br>myClass開(kāi)始了<br>"
End Sub
‘//----Class_Terminate()是類(lèi)的結束事件，只要一退出該類(lèi)，就會(huì )觸發(fā)該事件，下面我們會(huì )該事件中設定退出該類(lèi)時(shí)會(huì )在屏幕上顯示該類(lèi)已結束了。
Private Sub Class_Terminate()
Response.Write "<br>myClass結束了<br>"
End Sub
‘//---------------------------用戶(hù)自己定義的方法-------------------------------//
‘//----該方法返回一個(gè)版本信息
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
‘//---------------------------定義類(lèi)的輸出屬性-------------------------------//
‘//----定類(lèi)的屬性，該屬性是讓用戶(hù)初始化strExapmle變量
Public Property Let setExapmle(ByVal strVar)
strExapmle = strVar
End Property
‘//---------------------------定義類(lèi)的輸出屬性-------------------------------//
‘//----定義類(lèi)的屬性，該屬性是返回一個(gè)版本號
Public Property Get Version
Version = strVersion
End Property
‘//----定義類(lèi)的屬性，該屬性是返回該類(lèi)的作者號
Public Property Get Author
Author = strAuthor
End Property
‘//----定義類(lèi)的屬性，該屬性是返回一個(gè)版本號
Public Property Get Exapmle
Exapmle = strExapmle
End Property
End Class
</script>
<%
‘//-------這里是使用該類(lèi)的例子
Dim oneNewClass
Set oneNewClass = New myClass
Response.Write "作者：" & oneNewClass.Author & "<br>"
Response.Write "版本：" & oneNewClass.Version & "<br>"
oneNewClass.setExapmle = "這是一個(gè)簡(jiǎn)單類(lèi)的例子"
Response.Write "用戶(hù)自定義：" & oneNewClass.Exapmle & "<br>"
oneNewClass.Information
Set oneNewClass = Nothing
%>
聯(lián)系客服
