变态重口极致另类在线-波多久久夜色精品国产-波多野结衣在线观看一区-波多野结衣在线观看一区二区-污污的网站免费阅读-污污视频网址

當前位置: 首頁IT技術 → 教你如何編寫一個ASP類

教你如何編寫一個ASP類

更多

本文提供給大家學習分享的是教你如何編寫一個ASP類,希望能夠幫助到大家。

前幾天大佛寫了“ASP設計模式”,可能有些初學者或者剛剛接觸ASP的朋友不一定完全看得明白,偶就整理了一下編寫一個ASP類的方法,大部分是從網上找來的。希望對朋友們有幫助。
《ASP設計模式》(作者 我佛山人):

  首先ASP的類是由事件和方法(它們就是構成類的成員了)構成的,如果大家還沒有接觸過,可以先看看下面的說明:
在 Class 塊中,成員通過相應的聲明語句被聲明為 Private(私有成員,只能在類內部調用) 或 Public(公有成員,可以在類內外部調用) 。被聲明為 Private 的將只在 Class 塊內是可見的。被聲明為 Public 不僅在 Class 塊的內部是可見的,對 Class 塊之外的代碼也是可見的。沒有使用 Private 或 Public 明確聲明的被默認為 Public。在類的塊內部被聲明為 Public 的過程(Sub 或 Function)將成為類的方法。Public 變量將成為類的屬性,同使用 Property Get、Property Let 和 Property Set 顯式聲明的屬性一樣。類的缺省屬性和方法是在它們的聲明部分用 Default 關鍵字指定的。

請大家耐心看完上面的部分,下面我們來看一個例子:

<%
'//--------------------------------開始一個類---------------------------------//
Class myClass

'//----聲明(聲明就是定義)myclass類的類內部(私有的[Private])變量
Private strAuthor
Private strVersion
Private strExample
'//---------------------------定義類的事件-------------------------------//

'//----Class_Initialize()是類的初始化事件,只要一開始使用該類,首先會觸發該部分的執行,下面我們會在該成員中初始化該類的作者和版本以及在屏幕上顯示一下該類已經開始了
Private Sub Class_Initialize()
strAuthor = "coldstone"
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='mailto:coldstone@falsh8.cn'>coldstone</a> @ <a href='http://www.flash8.net;>閃吧</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
%>

熱門評論
最新評論
昵稱:
表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
字數: 0/500 (您的評論需要經過審核才能顯示)
主站蜘蛛池模板: 精品手机在线 | 欧美在线观看一区二区 | 在线观看片成人免费视频 | 成人9久久国产精品品 | 色视频在线免费观看 | 国产亚洲精品看片在线观看 | 日韩在线 在线播放 | 国产一级视频播放 | 久久韩国| 久久成人18免费 | 成人久久18网站 | 色视频免费在线 | 国产一区2区 | 成人久久18免费网站游戏 | 99视频在线 | 伊人久久大香线蕉综合热线 | 天天综合天天综合色在线 | 天堂成人在线 | 国内精品区一区二区三 | 亚洲欧美日韩在线不卡中文 | 无码免费一区二区三区免费播放 | 伦理网站在线播放视频 | 亚洲va欧美 | 成人爱做日本视频免费 | 成人国产精品一级毛片视频 | 国产三级观看久久 | 精品中文字幕一区在线 | 欧美xxxxxxxxxx黑人 | 一区二区欧美视频 | 中文字幕欧美在线观看 | 女攻男受高h重口调教 | 97视频免费观看 | 欧美视频第一区 | 黄色长视频 | freevideos性欧美 | 黄瓜视频深夜释放自己 | 伊人天伊人天天网综合视频 | 亚洲综合偷自成人网第页 | 亚洲免费视频播放 | 伊人久久大杳蕉综合大象 | 日b在线观看 |