Cookie讀寫例子

- 中國WEB開發者網絡 (http://www.webasp.net)
-- 技術教程 (http://www.webasp.net/article/)
--- Cookie讀寫例子 (http://www.webasp.net/article/13/12564.htm)

-- 作者：未知
-- 發佈日期： 2004-08-24

writecookie.asp

<%@ Language=VBScript　
%>
<%Response.Buffer=true%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>寫Cookie的示例</TITLE>
</HEAD>
<BODY>

<%
Response.Write "寫Cookie：
"
Response.Cookies("Cookie1")("key1") = "KeyValue1"
Response.Cookies("Cookie1")("key1") = "KeyValue2"
Response.Cookies("Cookie1").Expires = "July 31, 1999"

Response.Cookies("Cookie2")("key2") = "KeyValue1"
Response.Cookies("Cookie2")("key2") = "KeyValue2"
Response.Cookies("Cookie2").Expires = "July 31, 1999"
'Response.Cookies("Cookie2").Path = "/testasp/"
'這個在使用的時候要注意
'是指定在那個目錄的文件才可以讀取這個cookie的內容。
'在本例子中。只有在testasp這目錄下的文件才可以讀取
'Cookie2的內容。
%>

</BODY>
</HTML>

-------------------------------------------------------
readwrite.asp

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>讀Cookie的示例</TITLE>
</HEAD>
<BODY>

<%Response.Write "讀取Cookie：
"

dim cookie,key
　
　for each cookie in Request.Cookies
if Request.Cookies(cookie).haskeys then
Response.Write "
Cookie 名字："&cookie&"<BR>--------------<BR>"
for each key in Request.Cookies(cookie)

Response.Write "Key 名字："&key&"，值："&Request.Cookies(cookie)(ke
y)&"<BR>"
next
else
Response.Write "Cookie 名字："&Request.Cookies(cookie)&"<BR>"
end if
　
　next
　
%>
</BODY>
</HTML>

--
　 Email: aben@chinasky.net
HomePage: http://www.chinasky.net/aben ;

webasp.net