作为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的内置对象就暂时介绍到这里，后面我们还会陆续的学习。
大家也可以举一反三，学习没有介绍到的属性和方法。