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其他的用法类似。
