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 "
1<br/>
"
Next
End Sub
测试
打开 visual interdev6.0, 生成一个 asp 文件
1@ Language=VBScript
1<html>
2<body>
dim obj
set obj=server.CreateObject("fcom.fz3")
session("name")=" 龙卷风 "
session("age")=26
session(" 特长 ")=" 组件 "
obj.ShowSession()
1
2</body>
3</html>
配置好虚拟目录，在 ie 中执行此 asp 文件，可以看到
name: 龙卷风
age: 26
特长 : 组件
Session 的用法就讲到这里。 Session 其他的用法类似。