Asp组件中级入门与精通系列之六

作为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文件










?

配置好虚拟目录，在ie中执行fc6.asp文件可以看到


呵呵 测试一下

name=Mrs+%C1%FA%BE%ED%B7%E7&age=26

可以使用IE的查看源文件来看HTML编码

?

?

?

ASP的内置对象就暂时介绍到这里，后面我们还会陆续的学习。

大家也可以举一反三，学习没有介绍到的属性和方法。