Asp组件中级入门与精通系列之三

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文件

<%@ Language=VBScript %>

<%

dim obj

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

session("name")="龙卷风"

session("age")=26

session("特长")="组件"

obj.ShowSession()

%>

?

配置好虚拟目录，在ie中执行此asp文件，可以看到

name: 龙卷风
age: 26
特长: 组件

?

Session的用法就讲到这里。Session其他的用法类似。