寇傳坤

摘 要:本文討論用ASP技術(shù)來(lái)實(shí)現(xiàn)動(dòng)態(tài)網(wǎng)頁(yè)共享的方法,并給出了實(shí)例。

關(guān)鍵詞:ASP;網(wǎng)頁(yè);信息共享

中圖分類(lèi)號(hào):TP393.092 文獻(xiàn)標(biāo)識(shí)碼:B 文章編號(hào):1673-8454(2009)16-0065-02

實(shí)現(xiàn)網(wǎng)頁(yè)信息共享是我們網(wǎng)絡(luò)管理員的基本操作技能。當(dāng)然實(shí)現(xiàn)網(wǎng)頁(yè)共享的方法很多,現(xiàn)在我們一起來(lái)討論用ASP技術(shù)實(shí)現(xiàn)的辦法。

一、Application對(duì)象

Application對(duì)象是所有連接、所有網(wǎng)頁(yè)共用的對(duì)象。如果我們希望在.asp文件被執(zhí)行完畢之后,還能夠?qū)⒆兞?對(duì)象)的內(nèi)容記錄下來(lái),并供不同的連接者使用,那么可將變量(對(duì)象)的內(nèi)容放在Application對(duì)象之中。

1.使用方法

保存方法:

Application("變量名")= 保存信息

Set Application("對(duì)象名") = 保存對(duì)象

讀取方法:

變量名1 = Application("變量名2")

Set 對(duì)象名1= Application("對(duì)象名2")

2.實(shí)例

設(shè)計(jì)制作一個(gè)訪問(wèn)計(jì)數(shù)器。實(shí)現(xiàn)程序如下:

<%

Application.Lock

Application("counte") = Application("") + 1

Application.Unlock

% >

二、Session對(duì)象

Session對(duì)象也是所有連接、所有網(wǎng)頁(yè)共用的對(duì)象。但是不同的是,所有連接者可共用一個(gè)Application對(duì)象,而每位連接者都擁有自己的Session對(duì)象。

1.使用方法

保存方法:

Session("變量名")= 保存信息

Set Session ("對(duì)象名") = 保存對(duì)象

讀取方法:

變量名1 = Session ("變量名2")

Set 對(duì)象名1= Session("對(duì)象名2")

注意:所保存的的信息只能被當(dāng)前連接者的所有網(wǎng)頁(yè)讀取。

2.實(shí)例

在瀏覽網(wǎng)頁(yè)時(shí),大家都知道只要按下“刷新”,就是重新執(zhí)行該網(wǎng)頁(yè)。但有時(shí)希望按下“刷新”時(shí)部分信息保持不變,比如網(wǎng)上考試試卷、訪問(wèn)計(jì)數(shù)器等,解決這個(gè)問(wèn)題的最好方法就是使用Session對(duì)象。實(shí)現(xiàn)程序如下:

IF ISEmpty(Session("connected")) = True Then

Application.Lock

Application("counte") = Application("") + 1

Application.Unlock

End if

Session("connected") = True Then

這里,我們就用Session對(duì)象來(lái)判斷上網(wǎng)者是否是新連接者。

三、Cookies對(duì)象

Cookies的基本功能是將信息保存在瀏覽器上,對(duì)任何Web服務(wù)器都開(kāi)放。

1.使用方法

Cookies對(duì)象是附屬于Response對(duì)象及Response對(duì)象的集合對(duì)象。

保存方法:

Response.cookies("cookies名稱")= "cookies 內(nèi)容"

讀取方法:

變量名 = Response.cookies("cookies名稱")

2.實(shí)例

我們現(xiàn)在來(lái)設(shè)計(jì)使用Cookies存儲(chǔ)用戶喜歡的網(wǎng)頁(yè)顯示顏色。實(shí)現(xiàn)程序如下:

'color.asp

<%

Expiredate = DateAdd("d",30,Date)

If Len(Request("BGColor")) = 0 then

Request.Cookies("BGColor")= Request("BGColor")

Request.Cookies("BGColor").Expires = formatdatetime(expiredate,0)

End If

If Len(Request("FGColor")) = 0 then

Request.Cookies("FGColor") = Request("FGColor")

Request.Cookies("FGColor").Expires = formatdatetime(expiredate,0)

End If

% >

" >

利用Coolkies存儲(chǔ)用戶喜歡的顏色