<TABLE BORDER="2"> <THEAD> <TH>Cookie Name</TH> <TH>Cookie Value</TH> <TH>Cookie HasKeys</TH> </THEAD> <% Dim Item For Each Item in Request.Cookies %> <TR> <TD><% = Item %></TD> <TD><% = Request.Cookies(Item) %></TD> <TD><% = Request.Cookies(Item).HasKeys %></TD> </TR> <TR> <% If Request.Cookies(Item).HasKeys Then For Each strSubKey In Request.Cookies(Item) %> <TD>&bnsp;</TD> <TD>&bnsp;</TD> <TD><% = Request.Cookies(strKey)(strSubKey) %></TD> <% Next End If Next %> </TABLE>
request.ServerVariables("HTTP_COOKIE")，粒子： <TABLE BORDER="2"> <THEAD> <TH>Cookie Name</TH> <TH>Cookie Value</TH> </THEAD> <% Dim Item,sp,i,d sp = split(request.ServerVariables("HTTP_COOKIE"),"; ",-1,1) ' Loop through the cookie collection displaying each cookie we find
For i=0 to UBound(sp) d = split(cstr(sp(i)),"=",-1,1) %> <TR> <TD><% = d(0) %></TD> <TD><% if UBound(d)=1 then Response.Write(d(1)) else Response.Write " " %></TD> </TR> <% Next %> </TABLE> 重粒子@Y2K0814 -------------------------------------------------------- 下面是甘冀平翻譯的<ASP中Cookie使用指南> 原文出處：http://www.asptoday.com/articles/19990915.htm
< %@ 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 % > 好，下面開始從頭討論上面的代碼。
< %@ 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)在來看看上面的代碼實(shí)現(xiàn)執(zhí)行了什么。首先，設(shè)置頁面。然后，檢查表單變量（在同一個(gè)頁面中）。如果表單變量存在，就創(chuàng)建cookie，并設(shè)置到期時(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
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 如果cookie已經(jīng)存在，并且用戶名字存在，就顯示給訪問者一個(gè)歡迎界面，然后執(zhí)行其余的代碼。
If VisitorName < > "" then Response.write "Hi, " & VisitorName & "! I hope you are having a great day!" End if 'rest of the page % > 盡管上面的這個(gè)例子很簡(jiǎn)單，但可以從中擴(kuò)展許多富有創(chuàng)造力的應(yīng)用。你可以在表單中加入許多功能，以便定制化web站點(diǎn)。你還可以讓訪問者定制網(wǎng)站的色彩、字體，以至于其他web元素。有可能的話，你可以詢問訪問者的生日，當(dāng)訪問者在那一天來訪時(shí)，你就可以顯示“生日快樂”的信息給他。
