Java技术
2005: 03 04 05 06 07 08
09 10 11 12
2006: 01 02
Asp.net
2005: 07 08 09 10 11 12
2006: 01 02
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 "<br>"
Next
End Sub
测试
打开visual interdev6.0,生成一个asp文件
<%@ Language=VBScript %>
<HTML>
<BODY>
<%
dim obj
set obj=server.CreateObject("fcom.fz3")
session("name")="龙卷风"
session("age")=26
session("特长")="组件"
obj.ShowSession()
%>
</BODY>
</HTML>
配置好虚拟目录，在ie中执行此asp文件，可以看到
name: 龙卷风
age: 26
特长: 组件
Session的用法就讲到这里。Session其他的用法类似。