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文件
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组件中级入门与精通系列之三相关推荐
- Asp组件中级入门与精通系列之五
我们学习来看一下Response对象.其实我们前面的教程中一直都在使用这个对象的Write方法. 这里我们用Response对象设置cookie. ? 打开vb6,新建Activex Dll工程.工程 ...
- Asp组件初级入门与精通系列之六
错误处理 如果页面出错,而没有对错误的处理,那么页面会显示一个用户可能看不懂的错误. 在asp脚本中可以使用 On Error Resume Next -- if Err.Number<> ...
- ASP.NET MVC入门到精通——Spring.net-业务层仓储
本系列目录:ASP.NET MVC4入门到精通系列目录汇总 上一节,我们已经把项目框架的雏形搭建好了,那么现在我来开始业务实现,在业务实现的过程当中,不断的来完善我们现有的框架. 1.假设我们来做一个 ...
- 16、ASP.NET MVC入门到精通——MVC过滤器
本系列目录:ASP.NET MVC4入门到精通系列目录汇总 在ASP.NET MVC中有四种过滤器类型 Action 1.在ASP.NET MVC项目中,新建文件夹Filter,然后新建类MyCust ...
- 1、ASP.NET MVC入门到精通——新语法
本系列目录:ASP.NET MVC4入门到精通系列目录汇总 在学习ASP.NET MVC之前,有必要先了解一下C#3.0所带来的新的语法特性,这一点尤为重要,因为在MVC项目中我们利用C#3.0的新特 ...
- 14、ASP.NET MVC入门到精通——Ajax
本系列目录:ASP.NET MVC4入门到精通系列目录汇总 Unobtrusive Ajax使用方式(非入侵式) 非入侵式,通俗来讲:就是将嵌入在Html中的JavaScript全部取出来,放在单独的 ...
- 【ArcGIS遇上Python】从入门到精通系列之第一章:ArcGIS Python简介
文章目录 1. Python简介 2. Python的特点 3. ArcGIS的脚本语言 4. ArcGIS中的Python脚本编辑器 1. Python简介 Python是一种跨平台的计算机程序设计 ...
- OpenShift从入门到精通系列之一:通过OpenShift实现数字化转型
OpenShift从入门到精通系列之一:通过OpenShift实现数字化转型 一.企业数字化转型之PaaS 二.企业数字化转型之DevOps 三.企业数字化转型之微服务 四.微服务架构的主要类型 五. ...
- OpenShift从入门到精通系列之二:深入了解OpenShift与K8S的关系
OpenShift从入门到精通系列之二:深入了解OpenShift与K8S的关系 一.OpenShift与K8s的关系 二.OpenShift发展简史 三.OpenShift对K8s的增强 四.Ope ...
最新文章
- [JAVA EE] 拦截器
- 所有 SAP 现在开设的标准课程
- [Err] 1449 - The user specified as a definer ('admin_isbox'@'localhost') does not exist
- 用openssl跟Gmail的smtp对话(一)
- Day8 字符串操作
- 数据结构——树的理解路线(总)
- 魅族android 版本 6.0下载,flyme6.0内测版
- 解决Eclipse启动Tomcat时报Error loading WebappClassLoader错误
- H5 Canvas maximum-scale图像模糊解决办法
- Linux C基础笔记(3)
- 在CentOS上安装Git(转)
- [面试] C++ 语法(一) —— 初始化列表的初始化顺序
- layui列表筛选列_layui框架的table字段筛选功能介绍
- Ubuntu Server 21.10静态IP地址设置
- 微云解析直链php源码,微云分享文件直链解析源码
- android可看电视吗,不要VIP也能看电影,安卓手机这4款APP太赞了!
- WiFi穿墙手册:解读天线、dbi、发射功率和无线信号的关系
- 第九届 蓝桥杯 决赛 交换次数
- 常见格式浏览器在线预览
- 1000个瓶子里面999瓶是水,多少次试验确定哪瓶是毒药
热门文章
- 我的Go+语言初体验——【三、spx案例测试(附-视频)】
- Linux从零开始(一、安装系统)
- MySQL源码学习:MySQL中禁止跨库访问的实现
- 参数NLS_LENGTH_SEMANTICS的设置问题
- Kendo UI Validator 概述
- Java反射机制Reflection
- Objective-C:OC内部可变对象和不可变对象的深(复制)拷贝问题思考:
- 数据结构(二):线性表包括顺序存储结构(顺序表、顺序队列和顺序栈)和链式存储结构(链表、链队列和链栈)...
- Shell编程之变量赋值和引用
- java继承对象转换_java中类与对象的继承重写,存储以及自动转换和强制转换。...