Asp組件中級入門與精通系列之六

作為Asp的內建對象，我們最後來學習Server對象
Server對象用的比較多的就是Html編碼,Url編碼和網頁的重新導向，傳送。
?
開啟vb6,建立Activex Dll工程。工程名修改為fCom,類名修改為fZ6
引用“Microsoft Active Server Pages Object”物件程式庫。
建立兩個組件事件：OnStartPage以及OnEndPage
在事件OnStartPage中建立類ScriptingContent的一個引用。
執行個體化類ScriptingContent。
?
代碼如下：
Option Explicit
'對象的聲明
Dim myResponse As Response
Dim myRequest As Request
Dim myApplication As Application
Dim myServer As Server
Dim mySession As Session
?
??? '當組件被建立的時候會觸發這個事件
Public Sub OnStartPage(myScriptingContent As ScriptingContext)
???? '進行對象的執行個體化
???? Set myResponse = myScriptingContent.Response
???? Set myRequest = myScriptingContent.Request
???? Set myServer = myScriptingContent.Server
???? Set myApplication = myScriptingContent.Application
???? Set mySession = myScriptingContent.Session
End Sub
?
??? '當組件被銷毀的時候觸發這個事件
Public Sub OnEndPage()
???? '銷毀對象
???? Set myResponse = Nothing
???? Set myRequest = Nothing
???? Set myServer = Nothing
???? Set myApplication = Nothing
???? Set mySession = Nothing
End Sub
?
Public Sub ShowHtml(ByVal strHtml As String)
??? myResponse.Write myServer.HTMLEncode(strHtml)
End Sub
?
Public Sub ShowUrl(ByVal strUrl As String)
??? myResponse.Write myServer.URLEncode(strUrl)
End Sub
?
Public Sub ExecuteUrl()
??? myServer.Transfer "fz5.asp"
End Sub
?
編譯成Dll檔案,系統自動會註冊。
否則就手工註冊 Regsvr32 f:estfcom.dll
?
測試
開啟visual interdev6.0,產生一個fz6.asp檔案

?
配置好虛擬目錄，在ie中執行fc6.asp檔案可以看到
呵呵 測試一下
name=Mrs+%C1%FA%BE%ED%B7%E7&age=26
可以使用IE的查看源檔案來看HTML編碼
?
?
?
ASP的內建對象就暫時介紹到這裡，後面我們還會陸續的學習。
大家也可以舉一反三，學習沒有介紹到的屬性和方法。