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

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

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