联系站长 加入收藏 设为首页 繁體中文 RSS
  首页 | 生活百科 | 电脑网络 | 高手学堂 | 语录名言 | 读书文学 | 极品软件 | 奇趣图片 | 站长微博  
 您的位置: 精品百字节网 >> 电脑网络 >> 网络编程 >> 编程问题 >> 正文 当前没有通告!
   □  通过实例学习Cookies    4星级
通过实例学习Cookies
[ 作者:作者不详     来源:互连网     点击数:     更新时间:2007-08-07     文章录入:Admin
【字体:
[内容提要]
暂无简介

Cookies简单介绍:

 实际上,在web开发中,cookie仅仅是一个文本文件,当用户访问站点时,它就被存储在用户使用的计算机上,其中,保存了 一些信息,当用户日后再次访问这个站点时,web可以将这些信息提取出来。
   尽管现在听起来cookie没有什么激动人心的,但实际上利用它,你能实现许多有意义的功能!比如说:你可以在站点上放置 一个调查问答表,询问访问者最喜欢的颜色和字体,然后根据这些定制用户的web界面。并且,你还可以保存访问者的登录密码,这样,当访问者再次访问这个站点时,不用再输入密码进行登录。
   当然,cookie也有一些不足。首先,由于利用cookie的功能可以编程实现一些不良企图,所以大多数的浏览器中都有安全设定,其中可以设置是否允许或者接受cookie,因此这就不能保证随时能使用cookie。再者,访问者可能有意或者无意地删除 cookie。当访问者的机器遇到“蓝屏”死机时,或者重新格式化硬盘、安装系统后,原来保存的cookie将全部丢失。最后一点,有一些最初始的浏览器并不能支持cookie

如何使用Cookies?


2种使用cookie的基本方式:
1
、将cookie写入访问者的计算机(使用 RESPONSE 命令)
2
、从访问者的计算机中取回cookie(使用 REQUEST 命令)

<1>
创建cookie的基本语法
   Response.Cookies("CookieName")=value
   执行下面的代码将会在访问者的计算机中创建一个cookie,名字=VisitorName,值=Ken  Response.Cookies("VisitorName")="Ken"
   执行下面的代码将会在访问者的计算机中创建一个cookie,名字=VisitorName,值=表单中UserName的值  Response.Cookies("VisitorName")=Request.Form("UserName")

<2>
读取cookie的基本语法
   Request.Cookies("CookieName")
   可以将Request值当作一个变量看待,执行下面的代码,将取回名字为KensCookiecookie值,并存入变量MyVar MyVar=Request.Cookies("KensCookie")
   执行下面的代码,将判断名字为KensCookiecookie值是否为“Yes”:
If Request.Cookies("KensCookie")="Yes" then

 <3>功能丰富的cookie

   你可以扩展上面的代码成为Cookie子关键值(CookieSubName),代码如下:
Response.Cookies("VisitorName")("FirstName")="Ken"
Response.Cookies("VisitorName")("LastName")="Baumbach"

Cookies2个概念:命令约定和使用到期时间。

命名约定: 同其他变量的命名一样,合适地、独特地命名cookie,有利于在程序中前后连贯地使用它。你可以使用下面的1个或者2 cookie属性进行cookie变量的命名:
   域属性(Domain):域属性表明cookie由哪个网站产生或者读取,默认情况下,cookie的域属性设置为产生它的网站,但你 也可以根据需要改变它。相关代码如下:Response.Cookies("CookieName").Domain = "www.mydomain.com"
   路径属性(Path):路径属性可以实现更多的安全要求,通过设置网站上精确的路径,就能限制cookie的使用范围。例如: Response.Cookies("CookieName").Path = "/maindir/subdir/path"

 
使用到期时间
   通常情况下,当浏览器关闭时,一个cookie就不存在了。但是在许多时候,比如下面将要讨论的web站点例子,我们希望能更 长时间地在访问者的计算机上保存cookie。很幸运,有这样的实现方法。下面的代码,就可以设置cookie的使用到期时间为2010
1
1日: Response.Cookies("CookieName").Expires=#January 01, 2010#
   执行下面的代码,将设定cookie的过期时间为“cookie的创建时间+365日”:
Response.Cookies("CookieName")=Date+365

 使用cookie的实际例子(非常精彩)

   现在开始讨论实际的例子。假设:你想做一个调查,每个人初次访问时需要填写好信息,但是当日后再访问时,就不需要再那么做。利用cookie,就可以非常圆满地解决这个问题,而大可不必用到数据库。

以下是引用片段:
< %@ 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 
% > 


好,下面开始从头讨论上面的代码。
首先,初始设置页面,并读取名字为KensSurveycookie值:
< %@ LANGUAGE="VBSCRIPT" % >
< % Survey=Request.Cookies("KensSurvey")

然后,判断是否已经存在cookie值:
If Survey ="" then  

如果不存在, 就创建并设置cookie,并转到页面survey.asp 当下一次访问时,因为存在'cookie值,就不会再转到 survey.asp 页面。
Response.Cookies("KensSurvey")="x"
Response.Cookies("KensSurvey").Expires=#January 01, 2010#
Response.Redirect "survey.asp"
如果cookie已经存在,那么访问者将执行页面中剩余的代码:

'rest of the page
End if
% >


例子2
这里有另外一个简单的例子:当访问者第1次浏览某个站点时,向他们显示欢迎信息。代码如下: 

以下是引用片段:
< %@ 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 
% > 

 ‘好,现在来看看上面的代码实现执行了什么。首先,设置页面。然后,检查表单变量(在同一个页面中)。如果表单变量存 在,就创建cookie,并设置到期时间。

< %@ 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

接着,读取cookie
VisitorName = request.cookies("MySiteVisitorName")
LeaveMeAlone = request.cookies("MySiteLeaveMeAlone")
如果cookie在访问者的计算机上不存在,就创建一个表单,询问相关信息:
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已经存在,并且用户名字存在,就显示给访问者一个欢迎界面,然后执行其余的代码。
If VisitorName < > "" then
Response.write "Hi, " & VisitorName & "! I hope you are having a great day!"
End if
'rest of the page
% >
   尽管上面的这个例子很简单,但可以从中扩展许多富有创造力的应用。你可以在表单中加入许多功能,以便定制化web站点。你还可以让访问者定制网站的色彩、字体,以至于其他web元素。有可能的话,你可以询问访问者的生日,当访问者在那一天来访 时,你就可以显示“生日快乐”的信息给他。
   如你所见,cookie的扩展性是无穷的,这篇文章仅仅是抛砖引玉。

 

上一篇文章:Public/Private及 Sub/Function区别及简单使用方法 下一篇文章:用Asp实现QQ在线查询功能
发表评论 □告诉好友 □打印此文 □收藏此页 □关闭窗口 □返回顶部
 最新热点文章
 精品医院类网站网址大收集
 如何删除windows 2003或xp系统隐藏的...
 DedeCms管理员后台登陆经常自动退出的...
 知道IP如何用dos命令查出电脑名称
 WORD出错老是要求以安全模式打开文件...
 如何设置首页不显示页眉页脚?
 如何利用inurl命令查询网站外链及栏目...
 
 最新推荐文章
 精品医院类网站网址大收集
 如何利用宽带路由器控制局域网内电脑上...
 CSS圆角代码的实现方法
 带停顿的单行文字滚动代码
 实用的新网站免费收录提交地址精选
 Left join , Right Join, Inner Join用...
 趣话淘宝网衍生的多种新型职业
 
 最新图文
  ◇  网友评论:(只显示最新5条。评论内容只代表网友观点,与本站立场无关!)
关于本站 | 免责申明 | 网站地图 | 联系站长 | 友情链接 | 与我同在
冀ICP备06032589号【虚拟化精英群虚拟化精英群续
  Copyright© 2006-2009 100byte.Com All Rights Reserved
网站声明:本网站是公益性质网站,部分内容来源于网络,如有侵犯您权利的地方,请与精品百字节站长联系,尽快修正.
Powered By CreateLive CMS 本站法律顾问:(冀港)武镇海律师
点击这里给我发消息