当前位置:

Netease BBS 精华 >>讨论区精华 >>电脑技术 >>● ASP >>ASP典型范例

发信人: aben (阿笨), 信区: ASP
标  题: Cookie读写例子
发信站: 网易虚拟社区 (Fri Mar  5 11:39:24 1999), 转信

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:<br>"
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:<br>"

 dim cookie,key
 
  for each cookie in Request.Cookies
if Request.Cookies(cookie).haskeys then
Response.Write "<br>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

※ 来源:.网易虚拟社区 http://club.netease.com.[FROM: 202.96.191.52]


当前位置:

Netease BBS 精华 >>讨论区精华 >>电脑技术 >>● ASP >>ASP典型范例
 
(C)1997-1998 版权所有
广州网易计算机系统有限公司