ASP學(xué)習(xí)之Cookie的基本使用技巧

本文主要向大家介紹到的是關(guān)于Cookie的使用指南，希望對(duì)各位初學(xué)者們有所幫助。

實(shí)際上，在Web開發(fā)中，cookie僅僅是一個(gè)文本文件，當(dāng)用戶訪問(wèn)站點(diǎn)時(shí)，它就被存儲(chǔ)在用戶使用的計(jì)算機(jī)上，其中，保存了一些信息，當(dāng)用戶日后再次訪問(wèn)這個(gè)站點(diǎn)時(shí)，web可以將這些信息提取出來(lái)。

　　盡管現(xiàn)在聽起來(lái)cookie沒有什么激動(dòng)人心的，但實(shí)際上利用它，你能實(shí)現(xiàn)許多有意義的功能！比如說(shuō)：你可以在站點(diǎn)上放置一個(gè)調(diào)查問(wèn)答表，詢問(wèn)訪問(wèn)者最喜歡的顏色和字體，然后根據(jù)這些定制用戶的web界面。并且，你還可以保存訪問(wèn)者的登錄密碼，這樣，當(dāng)訪問(wèn)者再次訪問(wèn)這個(gè)站點(diǎn)時(shí)，不用再輸入密碼進(jìn)行登錄。

　　當(dāng)然，cookie也有一些不足。首先，由于利用cookie的功能可以編程實(shí)現(xiàn)一些不良企圖，所以大多數(shù)的瀏覽器中都有安全設(shè)定，其中可以設(shè)置是否允許或者接受cookie，因此這就不能保證隨時(shí)能使用cookie。再者，訪問(wèn)者可能有意或者無(wú)意地刪除cookie。當(dāng)訪問(wèn)者的機(jī)器遇到“藍(lán)屏”死機(jī)時(shí)，或者重新格式化硬盤、安裝系統(tǒng)后，原來(lái)保存的cookie將全部丟失。最后一點(diǎn)，有一些最初始的瀏覽器并不能支持cookie。

　　　利用cooklie能做什么？

　　　有2種使用cookie的基本方式：
　　　1、將cookie寫入訪問(wèn)者的計(jì)算機(jī)（使用 RESPONSE 命令）
　　　2、從訪問(wèn)者的計(jì)算機(jī)中取回cookie（使用 REQUEST 命令）

　　　創(chuàng)建cookie的基本語(yǔ)法

　　Response.Cookies("CookieName")=value

　　執(zhí)行下面的代碼將會(huì)在訪問(wèn)者的計(jì)算機(jī)中創(chuàng)建一個(gè)cookie，名字＝VisitorName，值＝Ken

　Response.Cookies("VisitorName")="Ken"

　　執(zhí)行下面的代碼將會(huì)在訪問(wèn)者的計(jì)算機(jī)中創(chuàng)建一個(gè)cookie，名字＝VisitorName，值＝表單中UserName的值

　Response.Cookies("VisitorName")=Request.Form("UserName")

　　讀取cookie的基本語(yǔ)法

　　Request.Cookies("CookieName")

　　可以將Request值當(dāng)作一個(gè)變量看待，執(zhí)行下面的代碼，將取回名字為KensCookie的cookie值，并存入變量MyVar：

　MyVar=Request.Cookies("KensCookie")

　　執(zhí)行下面的代碼，將判斷名字為KensCookie的cookie值是否為“Yes”：

　If Request.Cookies("KensCookie")="Yes" then...

　　功能豐富的cookie

　　你可以擴(kuò)展上面的代碼成為Cookie子關(guān)鍵值（CookieSubName），代碼如下：

　Response.Cookies("VisitorName")("FirstName")="Ken"
　Response.Cookies("VisitorName")("LastName")="Baumbach"

　　講解例子前，最后討論2個(gè)概念：命令約定和使用到期時(shí)間。

　  命名約定

　　同其他變量的命名一樣，合適地、獨(dú)特地命名cookie，有利于在程序中前后連貫地使用它。你可以使用下面的1個(gè)或者2個(gè)cookie屬性進(jìn)行cookie變量的命名：

　　域?qū)傩裕―omain）：域?qū)傩员砻鱟ookie由哪個(gè)網(wǎng)站產(chǎn)生或者讀取，默認(rèn)情況下，cookie的域?qū)傩栽O(shè)置為產(chǎn)生它的網(wǎng)站，但你也可以根據(jù)需要改變它。相關(guān)代碼如下：Response.Cookies("CookieName").Domain = "www.mydomain.com"

　　路徑屬性（Path）：路徑屬性可以實(shí)現(xiàn)更多的安全要求，通過(guò)設(shè)置網(wǎng)站上精確的路徑，就能限制cookie的使用范圍。例如：

　Response.Cookies("CookieName").Path = "/maindir/subdir/path"

　　使用到期時(shí)間

　　通常情況下，當(dāng)瀏覽器關(guān)閉時(shí)，一個(gè)cookie就不存在了。但是在許多時(shí)候，比如下面將要討論的Web站點(diǎn)例子，我們希望能更長(zhǎng)時(shí)間地在訪問(wèn)者的計(jì)算機(jī)上保存cookie。很幸運(yùn)，有這樣的實(shí)現(xiàn)方法。下面的代碼，就可以設(shè)置cookie的使用到期時(shí)間為2010年1月1日：

　Response.Cookies("CookieName").Expires=#January 01, 2010#

　　執(zhí)行下面的代碼，將設(shè)定cookie的過(guò)期時(shí)間為“cookie的創(chuàng)建時(shí)間＋365日”：

　Response.Cookies("CookieName")=Date+365

　　使用cookie的實(shí)際例子

　　現(xiàn)在開始討論實(shí)際的例子。假設(shè)：你想做一個(gè)調(diào)查，每個(gè)人初次訪問(wèn)時(shí)需要填寫好信息，但是當(dāng)日后再訪問(wèn)時(shí)，就不需要再那么做。利用cookie，就可以非常圓滿地解決這個(gè)問(wèn)題，而大可不必用到數(shù)據(jù)庫(kù)。

　< %@ LANGUAGE="VBSCRIPT" % >

　< %

　Survey=Request.Cookies("KensSurvey")

　If Survey ="" then

　Response.Cookies("KensSurvey")="x"

　Response.Cookies("KensSurvey").Expires=#January 01, 2010#

　Response.Redirect "survey.ASP"

　Else

　'rest of the page

　End if

　% >

　　好，下面開始從頭討論上面的代碼。

　　首先，初始設(shè)置頁(yè)面，并讀取名字為KensSurvey的cookie值：

　< %@ LANGUAGE="VBScript" % >

　< %

　Survey=Request.Cookies("KensSurvey")

　　然后，判斷是否已經(jīng)存在cookie值：

　If Survey ="" then

　　如果不存在， 就創(chuàng)建并設(shè)置cookie，并轉(zhuǎn)到頁(yè)面survey.asp。 當(dāng)下一次訪問(wèn)時(shí)，因?yàn)榇嬖赾ookie值，就不會(huì)再轉(zhuǎn)到survey.asp 頁(yè)面。

　Response.Cookies("KensSurvey")="x"
　Response.Cookies("KensSurvey").Expires=#January 01, 2010#
　Response.Redirect "survey.asp"

　　如果cookie已經(jīng)存在，那么訪問(wèn)者將執(zhí)行頁(yè)面中剩余的代碼：

　'rest of the page

　End if
　%> 
　 
　
　　例子2

　　這里有另外一個(gè)簡(jiǎn)單的例子：當(dāng)訪問(wèn)者第１次瀏覽某個(gè)站點(diǎn)時(shí)，向他們顯示歡迎信息。代碼如下：

　< %@ LANGUAGE="VBSCRIPT" % >

　< %

　RequestName = Request.Form("Name")

　RequestLeaveMeAlone = Request.Form("LeaveMeAlone")

　If　 RequestName < >"" or RequestLeaveMeAlone < >"" 　then

　Response.Cookies("MySiteVisitorName") = RequestName

　Response.Cookies("MySiteVisitorName").Expires = #January 01, 2010#

　Response.Cookies("MySiteLeaveMeAlone") = RequestLeaveMeAlone

　Response.Cookies("MySiteLeaveMeAlone").Expires = #January 01, 2010#

　End if

　VisitorName = request.cookies("MySiteVisitorName")

　LeaveMeAlone = request.cookies("MySiteLeaveMeAlone")

　If VisitorName ="" and LeaveMeAlone ="" then

　% >

　< HTML > < HEAD > < /HEAD >

　< body bgcolor="#ccffff" text="black" link="navy" vlink="purple" >

　< DIV ALIGN="CENTER" >

　< form action="index.ASP" method="POST" >

　< H2 >Let's be friends< /H2 >

　What's your name (leave blank and hit the Submit button if you don't want us to know)?

　< input type="text" name="name" >< BR >< BR >

　< input type="hidden" name="LeaveMeAlone" value="x" >

　< input type="submit" value="Submit" >

　< /FORM >

　< /DIV >

　< /BODY >

　< %

　End if

　If VisitorName < > "" then

　Response.write "Hi, " & VisitorName & "! I hope you are having a great day!"

　End if

　'rest of the page

　% >
　 
　　好，現(xiàn)在來(lái)看看上面的代碼實(shí)現(xiàn)執(zhí)行了什么。首先，設(shè)置頁(yè)面。然后，檢查表單變量（在同一個(gè)頁(yè)面中）。如果表單變量存在，就創(chuàng)建cookie，并設(shè)置到期時(shí)間。