ASP實(shí)現(xiàn)

　　原來(lái)的ASP對(duì)話只能將對(duì)話數(shù)據(jù)保存在內(nèi)存中。為了將對(duì)話數(shù)據(jù)保存到SQL Server，需要寫一個(gè)自定義的Visual Basic 6.0 COM對(duì)象代替現(xiàn)在的對(duì)話對(duì)象來(lái)管理對(duì)話狀態(tài)。該COM對(duì)象在每個(gè)Web請(qǐng)求開(kāi)始時(shí)被初始化，并從SQL Server重新載入對(duì)話數(shù)據(jù)。ASP腳本完成時(shí)，該對(duì)象將終止并把對(duì)話狀態(tài)將返回到SQL Server。
Visual Basic 6 COM Session對(duì)象的主要目的是提供對(duì)微軟Internet信息服務(wù)器（IIS）內(nèi)部對(duì)象的訪問(wèn)。Visual Basic 6 COM對(duì)話對(duì)象使用SessionUtility組件的mySession類來(lái)保存對(duì)話狀態(tài)，SessionUtility的SessionPersistence類用于載入和保存對(duì)話數(shù)據(jù)到SQL Server。使用regasm.exe工具將mySession和 SessionPersistence類作為COM對(duì)象暴露。regasm.exe工具可以注冊(cè)并為COM客戶端建立一個(gè)類型庫(kù)來(lái)使用框架組件類。

　　在對(duì)象的構(gòu)造函數(shù)中狀態(tài)信息被重新載入。構(gòu)造函數(shù)（class_initialize）首先從Application對(duì)象中檢索對(duì)話cookie、對(duì)話超時(shí)設(shè)置（SessionTimeOut）、數(shù)據(jù)庫(kù)連接字符串（SessionDSN），并建立mySession類的一個(gè)實(shí)例來(lái)保持對(duì)話數(shù)據(jù)。接著構(gòu)造函數(shù)將試圖重新使用給定的cookie從SQL Server中載入對(duì)話數(shù)據(jù)。如果SQL Server中沒(méi)有對(duì)話信息，或者對(duì)話已經(jīng)終止，將產(chǎn)生一個(gè)新的cookie。如果SQL Server返回了對(duì)話狀態(tài)數(shù)據(jù)，對(duì)話狀態(tài)信息將保存在mySession對(duì)象中。


Private Sub Class_Initialize()
　On Error GoTo ErrHandler:
　Const METHOD_NAME As String = "Class_Initialize"
　Set mySessionPersistence = New SessionPersistence
　Set myObjectContext = GetObjectContext()
　mySessionID = ReadSessionID()
　myDSNString = GetConnectionDSN()
　myTimeOut = GetSessionTimeOut()
　myIsNewSession = False
　Call InitContents

　Exit Sub
ErrHandler:
　Err.Raise Err.Number, METHOD_NAME & ":" & Err.Source, Err.Description
End Sub

Private Sub InitContents()
　On Error GoTo ErrHandler:
　Const METHOD_NAME As String = "InitContents"
　If mySessionID = "" Then
　　Set myContentsEntity = New mySession
　　mySessionID = mySessionPersistence.GenerateKey
　　myIsNewSession = True
　Else
　　Set myContentsEntity =mySessionPersistence.LoadSession(mySessionID, myDSNString, 　　myTimeOut)
End If

　Exit Sub
ErrHandler:
　Err.Raise Err.Number, METHOD_NAME & ":" & Err.Source, Err.Description
End Sub


　　如果對(duì)象實(shí)例超出了腳本的范圍，將執(zhí)行解構(gòu)函數(shù)（class_terminate）。解構(gòu)函數(shù)將使用SessionPersistence.SaveSession()方法保持對(duì)話數(shù)據(jù)。如果是一個(gè)新對(duì)話，解構(gòu)函數(shù)將新cookie發(fā)送回瀏覽器。


Private Sub Class_Terminate()
　On Error GoTo ErrHandler:
　Const METHOD_NAME As String = "Class_Terminate"
　Call SetDataForSessionID
　Exit Sub
ErrHandler:
　Err.Raise Err.Number, METHOD_NAME & ":" & Err.Source, Err.Description
End Sub

Private Sub SetDataForSessionID()
　On Error GoTo ErrHandler:
　Const METHOD_NAME As String = "SetDataForSessionID"
　　　　　Call mySessionPersistence.SaveSession(mySessionID,
　　　　　myDSNString, myContentsEntity, myIsNewSession)

　If myIsNewSession Then Call WriteSessionID(mySessionID)

　Set myContentsEntity = Nothing
　Set myObjectContext = Nothing
　Set mySessionPersistence = Nothing
　Exit Sub
ErrHandler:
　Err.Raise Err.Number, METHOD_NAME & ":" & Err.Source, Err.Description
End Sub


　　例程

　　例程設(shè)計(jì)為增加并顯示一個(gè)數(shù)字。不管載入了哪個(gè)頁(yè)面，由于數(shù)字值保存在SQL Server中并在ASP和ASP.NET間共享，數(shù)字將不斷增加。

　　建立例程的步驟

　　1． 建立一個(gè)新數(shù)據(jù)庫(kù)SessionDemoDb。

　　2． 建立新表SessState（osql.exe -E -d SessionDemoDb -i Session.sql）。

　　3． 建立新虛擬目錄Demo。

　　4． 在ASP配置頁(yè)中關(guān)閉ASP對(duì)話。

　　5． 將web.config、testPage.aspx、Global.asa、testPage.asp和GlobalInclude.asp復(fù)制到虛擬目錄。

　　6． 更新Global.asa和web.config中的DSN字符串設(shè)置。對(duì)話超時(shí)設(shè)置是可選的，默認(rèn)為20分鐘。

　　7． 將SessionUtility.dll安裝到全局組件緩存（gacutil /i SessionUtility.dll）。

　　8． 使用regasm.exe把SessionUtility.dll作為COM對(duì)象暴露（regasm.exe SessionUtility.dll /tlb:SessionUtility.tlb）。

　　9． 將SessionManager.dll復(fù)制到本地目錄并使用regsvr32.exe注冊(cè)（regsvr32 SessionManager.dll）。

　　10． 賦予IUSR_<計(jì)算機(jī)名>帳戶讀取和運(yùn)行訪問(wèn)SessionMgr.dll的權(quán)限。

　　運(yùn)行例程的步驟

　　1． 打開(kāi)微軟Internet Explorer。

　　2． 為傳統(tǒng)的ASP中載入testPage.asp。數(shù)字"1"將出現(xiàn)在Web頁(yè)中。

　　3． 點(diǎn)擊Internet Explorer的刷新來(lái)重新載入該頁(yè)面。數(shù)字將增加。

　　4． 為ASP.NET改變URL為testPage.aspx。數(shù)字仍然增加。

　　5． 如果使用testPage.aspx開(kāi)始，過(guò)程相同。

　　在存在的ASP應(yīng)用程序中插入COM對(duì)象

　　開(kāi)發(fā)ASP應(yīng)用程序的一個(gè)通常的習(xí)慣是在每個(gè)腳本開(kāi)始時(shí)包含一個(gè)文件來(lái)共享代碼和常量。插入自定義對(duì)話對(duì)象的最后途徑是在公有包含文件中加入示例代碼。最后一步簡(jiǎn)單地使用自定義對(duì)話變量名代替了所有到對(duì)話對(duì)象的引用。

　　限制/改進(jìn)

　　本方案不支持在Session對(duì)象中保存了COM對(duì)象的ASP應(yīng)用程序。在這種情況下，為了使用自定義對(duì)話對(duì)象，需要一個(gè)自定義的調(diào)度器來(lái)串行化/并行化狀態(tài)。此外，本方案也不支持保存字符串類型數(shù)組。做一些附加工作可以實(shí)現(xiàn)該特性：使用Visual Basic 6.0的Join函數(shù)在保存到對(duì)話對(duì)象前將數(shù)組元素連接成一個(gè)字符串，反向操作可以使用Visual Basic 6.0的Split函數(shù)將字符串分解為獨(dú)立的數(shù)組元素。在.NET框架組件中，Join和Split方法使String類的成員。

　　結(jié)論

　　ASP.NET提出了新的編程范例和體系結(jié)構(gòu)，并提供了許多比傳統(tǒng)ASP的好處。盡管將ASP移植到ASP.NET的過(guò)程不簡(jiǎn)單，ASP.NET更好的編程模型和更高的性能將使轉(zhuǎn)換過(guò)程值得。除了在Session對(duì)象中保存COM對(duì)象的特例，本文討論的途徑提供了一個(gè)簡(jiǎn)單實(shí)現(xiàn)遷移的解決方案。