Session相比較就簡單多了

看

打開vb6,新建Activex Dll工程。工程名修改為fCom,類名修改為fZ3
引用“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

?

‘可以看到，把以前asp中寫的搬到了vb中，寫法是一樣的

‘得到所有的session的變量和值

Public Sub ShowSession()

'可以設置超時20分鐘

??? mySession.Timeout = 20

??? Dim myitem

??? '得到所有的session

??? For Each myitem In mySession.Contents

??????? myResponse.Write myitem & ": " & mySession.Contents(myitem)

??????? myResponse.Write "
"

??? Next

End Sub

?

測試

打開visual interdev6.0,生成一個asp文件

dim obj

set obj=server.CreateObject("fcom.fz3")

session("name")="龍卷風"

session("age")=26

session("特長")="組件"

obj.ShowSession()

%>

?

配置好虛擬目錄，在ie中執行此asp文件，可以看到

name: 龍卷風
age: 26
特長: 組件

?

Session的用法就講到這里。Session其他的用法類似。

轉載于:https://www.cnblogs.com/Athrun/archive/2008/03/28/1127554.html

總結

以上是生活随笔為你收集整理的Asp组件中级入门与精通系列之三的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。