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

我们学习来看一下Response对象。其实我们前面的教程中一直都在使用这个对象的Write方法。
这里我们用Response对象设置cookie。
?
打开vb6,新建Activex Dll工程。工程名修改为fCom,类名修改为fZ5
引用“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
?
'从页面中设置Cookie,组件中得到
Public Sub GetCookie()
??? Dim myitem
??? '全部信息
??? For Each myitem In myRequest.Cookies
??????? myResponse.Write myitem & ": " & myRequest.Cookies.Item(myitem)
??????? myResponse.Write "
"
??? Next
???
??? '单个信息
??? myResponse.Write "其中用户姓名是" & ": " & myRequest.Cookies("username")
??? myResponse.Write "
"
??? myResponse.Write "其中用户年龄是" & ": " & myRequest.Cookies("age")
??? myResponse.Write "
"
End Sub