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

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

本文地址：http://com.8s8s.com/it/it44117.htm