Asp组件中级入门与精通系列之六
来源:互联网 发布:淘宝活动海景房图片 编辑:程序博客网 时间:2024/04/27 20:12
作为Asp的内置对象,我们最后来学习Server对象
Server对象用的比较多的就是Html编码,Url编码和网页的重定向,传送。
?
打开vb6,新建Activex Dll工程。工程名修改为fCom,类名修改为fZ6
引用“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
?
Public Sub ShowHtml(ByVal strHtml As String)
??? myResponse.Write myServer.HTMLEncode(strHtml)
End Sub
?
Public Sub ShowUrl(ByVal strUrl As String)
??? myResponse.Write myServer.URLEncode(strUrl)
End Sub
?
Public Sub ExecuteUrl()
??? myServer.Transfer "fz5.asp"
End Sub
?
编译成Dll文件,系统自动会注册。
否则就手工注册 Regsvr32 f:/test/fcom.dll
?
测试
打开visual interdev6.0,生成一个fz6.asp文件
<%@ Language=VBScript %>
<%
dim obj
set obj=server.CreateObject ("fcom.fz6")
obj.ShowHtml "呵呵 测试一下"
Response.Write "
"
Response.Write "name="
obj.ShowUrl("Mrs 龙卷风")
Response.Write "&age="
obj.ShowUrl("26")
?
Response.Write "
"
call obj.ExecuteUrl ()
%>
?
配置好虚拟目录,在ie中执行fc6.asp文件可以看到
呵呵 测试一下
name=Mrs+%C1%FA%BE%ED%B7%E7&age=26
可以使用IE的查看源文件来看HTML编码
?
?
?
ASP的内置对象就暂时介绍到这里,后面我们还会陆续的学习。
大家也可以举一反三,学习没有介绍到的属性和方法。
- Asp组件中级入门与精通系列之六
- Asp组件中级入门与精通系列之二
- Asp组件中级入门与精通系列之三
- Asp组件中级入门与精通系列之四
- Asp组件中级入门与精通系列之五
- Asp组件中级入门与精通系列之七
- Asp组件中级入门与精通系列之八
- Asp组件中级入门与精通系列之八
- Asp组件初级入门与精通系列之六
- Asp组件初级入门与精通系列之六
- Asp组件中级入门与精通系列之一
- Asp组件中级入门与精通系列之一
- Asp组件——初级入门与精通系列之(六)
- Asp组件初级入门与精通系列之二
- Asp组件初级入门与精通系列之三
- Asp组件初级入门与精通系列之四
- Asp组件初级入门与精通系列之五
- Asp组件初级入门与精通系列之七
- 自己的学习目标
- [原创代码]用正则表达式剔除文本中的HTML标记
- 我的Java学习课堂(原创)(2004.9.14-2004.5.14)
- Tomcat5的数据库连接池配置
- Asp组件中级入门与精通系列之五
- Asp组件中级入门与精通系列之六
- Asp组件中级入门与精通系列之七
- 结婚进行曲
- 磨刀霍霍向STL::distance
- 缙云行.照片记录
- 万象大漏洞
- 不用工具破解PUBWIN4
- windows 2000是怎样引导的
- Default Password List