在ASP与ASP.NET之间共享对话状态（2）

　　ASP实现
　　
　　原来的ASP对话只能将对话数据保存在内存中。为了将对话数据保存到SQL Server，需要写一个自定义的Visual Basic 6.0 COM对象代替现在的对话对象来管理对话状态。该COM对象在每个Web请求开始时被初始化，并从SQL Server重新载入对话数据。ASP脚本完成时，该对象将终止并把对话状态将返回到SQL Server。
　　
　　Visual Basic 6 COM Session对象的主要目的是提供对微软Internet信息服务器（IIS）内部对象的访问。Visual Basic 6 COM对话对象使用SessionUtility组件的mySession类来保存对话状态，SessionUtility的SessionPersistence类用于载入和保存对话数据到SQL Server。使用regasm.exe工具将mySession和 SessionPersistence类作为COM对象暴露。regasm.exe工具可以注册并为COM客户端建立一个类型库来使用框架组件类。
　　
　　在对象的构造函数中状态信息被重新载入。构造函数（class_initialize）首先从Application对象中检索对话cookie、对话超时设置（SessionTimeOut）、数据库连接字符串（SessionDSN），并建立mySession类的一个实例来保持对话数据。接着构造函数将试图重新使用给定的cookie从SQL Server中载入对话数据。如果SQL Server中没有对话信息，或者对话已经终止，将产生一个新的cookie。如果SQL Server返回了对话状态数据，对话状态信息将保存在mySession对象中。
　　
　　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
　　
　　如果对象实例超出了脚本的范围，将执行解构函数（class_terminate）。解构函数将使用SessionPersistence.SaveSession()方法保持对话数据。如果是一个新对话，解构函数将新cookie发送回浏览器。
　　
　　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 &