Asp组件中级入门与精通系列之五
我们学习来看一下Response对象。其实我们前面的教程中一直都在使用这个对象的Write方法。
这里我们用Response对象设置cookie。
?
打开vb6,新建Activex Dll工程。工程名修改为fCom,类名修改为fZ5
引用“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
?
'从页面中设置Cookie,组件中得到
Public Sub GetCookie()
??? Dim myitem
??? '全部信息
??? For Each myitem In myRequest.Cookies
??????? myResponse.Write myitem & ": " & myRequest.Cookies.Item(myitem)
??????? myResponse.Write "
"
??? Next
???
??? '单个信息
??? myResponse.Write "其中用户姓名是" & ": " & myRequest.Cookies("username")
??? myResponse.Write "
"
??? myResponse.Write "其中用户年龄是" & ": " & myRequest.Cookies("age")
??? myResponse.Write "
"
End Sub
'组件中设置cookie,页面中得到
Public Sub SetCookie()
??? myResponse.Cookies("com_username") = "龙卷风"
??? myResponse.Cookies("com_age") = 26
??? myResponse.Expires = #9/13/2004#
End Sub
?
编译成Dll文件,系统自动会注册。
否则就手工注册 Regsvr32 f:"test"fcom.dll
?
测试
打开visual interdev6.0,生成一个fz5.asp文件
dim obj
set obj=server.CreateObject ("fcom.fz5")
call obj.setcookie()
Response.Write Request.Cookies("com_username")
Response.Write "
"
Response.Write Request.Cookies("com_age")???
Response.Write "
"
?
'下面在页面中设置Cookie
Response.Cookies("username") = "龙卷风"
Response.Cookies("age") = 26
call obj.GetCookie()
?
%>
?
配置好虚拟目录,在ie中执行fc5.asp文件,可以看到
龙卷风
26
age: 26
username: 龙卷风
com_age: 26
com_username: 龙卷风
其中用户姓名是: 龙卷风
其中用户年龄是: 26
未完待续
转载于:https://www.cnblogs.com/Athrun/archive/2008/03/28/1127660.html
Asp组件中级入门与精通系列之五相关推荐
- Asp组件中级入门与精通系列之三
Session相比较就简单多了 看 打开vb6,新建Activex Dll工程.工程名修改为fCom,类名修改为fZ3 引用"Microsoft Active Server Pages Ob ...
- Asp组件初级入门与精通系列之六
错误处理 如果页面出错,而没有对错误的处理,那么页面会显示一个用户可能看不懂的错误. 在asp脚本中可以使用 On Error Resume Next -- if Err.Number<> ...
- PostgreSQL数据库从入门到精通系列之五:深入理解lsn_proc、lsn_commit、lsn、txId、ts_usec
PostgreSQL数据库从入门到精通系列之五:深入理解lsn_proc.lsn_commit.lsn.txId.ts_usec 一.深入理解lsn_proc 二.深入理解lsn_commit 三.深 ...
- 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 三.企业数字化转型之微服务 四.微服务架构的主要类型 五. ...
最新文章
- Git 分支管理-git stash 和git stash pop
- 【计算机科学基础】整数和小数的进制转换
- 简单计算器(信息学奥赛一本通-T1057)
- Python机器学习:PCA与梯度上升002使用梯度上升法求解PCA问题
- restframework之节流
- 31. Element previousSibling 属性
- 用并发队列(ConcurrentQueue)实现多线程任务中随时异步回调进度通知(.Net4.0)
- 高通9008工具 qpst 安装时报错 qpst server returned unexpected error attempting 解决办法
- ADF4351应用电路
- Excel下拉选项设置
- 联想移动裁员为求自保 摩托罗拉品牌逐渐消退
- FPGA参数定义 regwire 详解
- GitHub上的免费中文编程书
- 用python绘制叠加等边三角形_使用turtle库绘制叠加等边三角形
- JavaScript对象与内置对象——对象(一)
- 最近ChatGPT封号太严重了,这里是解封攻略步骤(建议收藏)
- android开发播放直播视频rtsp方案总结
- OSChina 周四乱弹 ——快速辨别妹子有无男友!
- 谷歌大动作:最高优先级项目曝光,下一代AI搜索,剑指ChatGPT!
- Oracle GoldenGate Director 12.1.2安装及配置
热门文章
- 原来Github上也有这么多的JavaScript学习资源!
- linux 本地yum 恢复,Linux_RHEL系统恢复安装光盘中的yum更新源的方法,安装光盘本地YUM更新源挂载安 - phpStudy...
- mysql check table_修复MySQL的MyISAM表命令check table用法
- mysql 时间chuo格式化_Mysql时间戳与时间格式转换问题汇总
- STM32中断优先级的管理(NVIC)
- 安装java过程_Java的安装过程
- pico8 掌机_使用Pico-8构建自己的复古游戏
- 安装jenkins时出现 No such plugin: cloudbees-folder的解决办法
- Android PermissionUtils:运行时权限工具类及申请权限的正确姿势
- 乌班图系统16.04安装