我們學習來看一下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 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 mysession = myscriptingcontent.session
end sub
???? '當元件被銷毀的時候觸發這個事件
public sub onendpage()
???? '銷毀物件
???? set myresponse = nothing
???? set myrequest = nothing
???? set myserver = 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
'元件中設定cookie,頁面中得到
public sub setcookie()
??? myresponse.cookies("com_username") = "龍捲風"
??? myresponse.cookies("com_age") = 26
??? myresponse.expires = #9/13/2004#
end sub
?編譯成dll檔案,系統自動會註冊。
否則就手工註冊 regsvr32 f:"test"fcom.dll?測試
開啟visual interdev6.0,生成乙個fz5.asp檔案
<%@ language=vbscript %>
<%
dim obj
set obj=server.createobject ("fcom.fz5")
call obj.setcookie()
response.write request.cookies("com_username")
response.write "
"response.write request.cookies("com_age")???
response.write ""?
'下面在頁面中設定cookie
response.cookies("username") = "龍捲風"
response.cookies("age") = 26
call obj.getcookie()
?%>
?配置好虛擬目錄，在ie中執行fc5.asp檔案，可以看到
龍捲風26
age: 26
username: 龍捲風
com_age: 26
com_username: 龍捲風
其中使用者姓名是: 龍捲風
其中使用者年齡是: 26
未完待續
Asp元件中級入門與精通系列之七
開始資料庫操作。常見的元件封裝 1 把資料庫的連線資訊封裝起來。1 直接返回資料庫連線串，如，元件中 public?function?datasource as?variant datasource?driver server yang uid sa pwd database northwind e...
Asp元件中級入門與精通系列之七
開始資料庫操作。常見的元件封裝 1 把資料庫的連線資訊封裝起來。1 直接返回資料庫連線串，如，元件中 public?function?datasource as?variant datasource?driver server yang uid sa pwd database northwind e...
Asp元件中級入門與精通系列之七
開始資料庫操作。常見的元件封裝 1 把資料庫的連線資訊封裝起來。1 直接返回資料庫連線串，如，元件中 public?function?datasource as?variant datasource?driver server yang uid sa pwd database northwind e...