作为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的内置对象就暂时介绍到这里，后面我们还会陆续的学习。

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