ASP Cookies操作的詳細介紹與執行個體代碼

最後更新：2018-12-08 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

Cookie是一種發送到客戶瀏覽器的文本串控制代碼，並儲存在客戶機硬碟上，可以用來在某個Web網站會話之間持久地保持資料。Request和Response對象都有一組Cookie。Request.cookie集合是一系列Cookie，從用戶端與HTTP Request一起發送到Web伺服器。反過來，如果你希望把Cookie發送到客戶機，就可以使用Response.cookie
1、ExpiresAbsolute屬性
　　該屬性可以賦一個日期，過了這個日期Cookie就不能再被使用了。通過給Expires屬性賦一個到期的日期，就可以刪除Cookie。如：
<%Response.cookies("passtime").expiresAbsolute="1/1/99"%>
2、Domain屬性
　　該屬性定義Cookie要傳送的唯一域。如：Cookie只傳送給Microsoft的人，則可以使用以下代碼。
<%Response.Cookies("domain").Domain="www.microsoft.com"%>
3、ASP用來寫入Cookie即向客戶機發送Cookie的文法如下：　　
　　Response.Cookie("Cookie名").[("鍵名").屬性]=內容
　　如果某個ASP檔案要建立一個Cookie，則下面的代碼可以放在ASP檔案的第一個<html>之前，以避免產生錯誤.
<%Response.Cookies("CookieName")="NewCookie" %>
<html>
......
</html>
4、同樣ASP用Request對象的Cookies集合來讀取Cookie，如：
<%Response.write Request.Cookies("CookieName")%>
　　下面以一個完整的例子來說明Cookie：複製代碼代碼如下:<%
dim Num
Num=Request.Cookies("Visit_num")
if Num>0 then
Num=Num+1
Response.write "您已是第" & Num & "次訪問本網站了。"
else
Response.write "歡迎您首次訪問本站。"
Num=1
end if
Response.Cookies("Visit_num")=Num
%>

　　在該例子中，首先讀取Cookies變數Visit_num，看使用者端電腦是否儲存有Cookies變數。如果有該變數，則說明使用者已經訪問過該頁面，同時輸入出訪問次數。如果使用者是首次訪問該頁面，則其電腦內不會有Cookies變數，程式會顯示“歡迎”字樣，然後將Cookies變數Visit_num存到使用者電腦中，以便該使用者下一次訪問該頁面時給出“訪問的次數”資訊。
5、Cookie字典
　　有時在一個頁面中可能需要定義很多個Cookies變數，為了更好地管理它，在Cookies組件中常引入一人的概念“子鍵”。引用它的文法如下：
　　Request.Cookies("變更名")("子鍵名")　　
　　如下面的Cookie建立一個名為"Dictionary"的字典，其中儲存了三個索引值：複製代碼代碼如下:<%
Response.Cookie("info")("Myname")="jeff"
Response.Cookie("info")("Gender")="male"
Response.Cookie("info")("Myheight")="172"
%>

　　事實上客戶機上的Cookie字典是以字串的形式存在：
info=Myname=jeff&Gender=male&Myheight=172
　　如果使用者沒有指定“子鍵”名而直接引用Cookies變數，將會返回一個包含所有的“子鍵”名及值的字串。例如上面這個例子包含三個“子鍵”："Myname"、"Gender"和"Myheight"，當使用者沒有指定其“子鍵”而直接通過Request.Cookies("info")來引用時，則會得到下列字串：
info=Myname=jeff&Gender=male&Myheight=172
　　如果要把Cookie中讀取的所有資料，可以用下面的代碼得到：複製代碼代碼如下:<%For each cookie in Request.Cookies
if Not cookie.HasKeys then
Response.write cookie & "=" & Request.Cookies(cookie)
Else
for each key in Request.Cookies(cookie)
Response.write cookie&"("&key&")"&"="& Request.Cookies(cookie)(key)
next
end if
next
%>

下面是具體的在頁面中記錄查詢的記錄的代碼複製代碼代碼如下:Sub SetCookie
Dim C_DomainList,C_i
C_DomainList=Request.Cookies("jb51")("C_DomainList")
If Domain<>"" and C_DomainList<>"" then
If not instr(C_DomainList,Domain&"|")>0 then C_DomainList=Domain&"|"&C_DomainList
End if
If Domain<>"" and C_DomainList="" then
C_DomainList=Domain&"|"
End if
If C_DomainList<>"" then
Response.write "<div id=C_domainlist>您關注的網站："
C_arrDomain = split(C_DomainList,"|")
C_DomainList=""
numDomain=ubound(C_arrDomain)-1
If numDomain>4 then numDomain=4
for C_i=0 to numDomain
Response.write " <a href=?url="&C_arrDomain(C_i)&">"&C_arrDomain(C_i)&"</a> |"
C_DomainList=C_DomainList&C_arrDomain(C_i)&"|"
next
Response.Cookies("jb51")("C_DomainList")=C_DomainList
Response.Cookies("jb51").Expires=Date+30
Response.write "<a href=# style=""cursor:pointer"" onClick=""clearCookie('jb51');alert('已清除記錄！');"">清除記錄</a></div>"
End If
End Sub

示範頁面:http://tools.jb51.net/whois.asp

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More