动网论坛,站长建站首选,国内使用量最多的论坛软件 动网论坛官方技术讨论区 站长工具 申请属于您自己的免费论坛
首页 | 新闻资讯 | 网站运营 | 网络编程 | 数据库 | 服务器 | 网页设计 | 图像媒体 | 网络应用 | 搜索优化 | 资源下载 | 动网主机 | DVBOX
    本站内  互联网 ASP论坛  ASP.Net论坛  PHP论坛
   Cgi/Perl → 阅读文章

 关于CGI读写COOKIE的编程

作者:无从考证 来源:不详 
阅读 1413 人次 , 2006-2-15 14:33:00 

COOKIE的用途相信大家都知道了,有时我们的CGI需要记录读取某个来访者的信息,例如该来访者使用该用的情况,那就得用到COOIKE技术,下面就讨论一下如何用CGI来记录、读取来访者计算机中的COOKIE。 

  COOKIE在不同的浏览器上的存储方式是不同的,但这并不存在不兼容的问题,因为WEB服务器与浏览器之间是通过HTTP响应头实现互相传送COOKIE的信息的,我们在读写COOKIE时不必理会其在客户端是怎么存储的。 

  在CGI向来访者的计算机中写入一条COOKIE时,CGI需要向浏览器发送一个响应头: 

Set-Cookie:name1=value;name2=value2;exprires=DATE;PATH=PATH;domiam=DOMAIN_NAME;SECURE 

  现在逐个来解释以上响应头各项的含义,各项内容是用分号阁开的 

  我们看到 name1=value和name2=value2 就是你要设置的COOKIE的内容,它是以名字=值的方式发送的,而name=value中不可以有冒号、逗号、和空格,但可以用%XX代替,XX为一个16进制数; 

exprires=DATE项是有关COOKIES的生存期,即该COOKIE的有效期,有效期的时间格式是格林威治时间格式:wdy,DD-MON-YYYY HH:MM:SS GMT 
这一项在写入COOIE时是可选的,但不设置的话浏览器与WEB服务器的一次连接结束后,COOKIE就过了有效期; 

domian项定义哪些主机可以读取COOKIES,通常COOKIE存放的都不重要的信息,如果你要存放的的信息不大重要,这一项也不用设置; 

PATH项是定义了一台主机上哪些WWW资源可以读取你所设置的COOKIE,如果PATH=/ 则这台主机上所有WWW资源可以读取你所设置的COOKIE; 

SECURE是有关加密传送我们可不用理会。 
如果你在一台支持COOKIE的客户端设置了COOKIE,当这个客户端在次来访问时,浏览器会向你的CGI所在的WEB服务器发送一条HTTP响应头,这个响应头为: 
Cookie:name1=value;name2=value2;exprires=DATE;PATH=PATH;domiam=DOMAIN_NAME;SECURE 
根据这个HTTP响应头WEB服务器的环境变量 HTTP_COOKIE=:name1=value;name2=value2 
我们对这个环境变量的内容进行分解就可以的到我我们要的信息。 

  以下给出我写的读写COOKIE的两段PERL程序,你也可以把它改写为C语言 

设置COOKIE: 

print "Content-type:text/htmln"; 
print "Set-Cookie:name1=zjxyz;expires=Thursdday,01-Jan-2000 12:00:00 GMTn"; 
print "Set-Cookie:name2=ken;expires=Thursdday,01-Jan-2000 12:00:00 GMTn"; 
print "Set-Cookie:name3=ken;expires=Thursdday,01-Jan-2000 12:00:00 GMTnn"; 

  读取COOKIE和分解的过程: 

@pairs = split(/&/, $ENV{’HTTP_COOKIE’}); 
foreach $pair (@pairs){ 
($name, $value) = split(/=/, $pair); 
$value =~ tr/+/ /; 
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 
$cookie{$name} = $value;}    
 本文Tagscookies  
 收藏本文  打印本文  论坛讨论  关闭窗口
· 上一篇:CGI的安全(二)
· 下一篇:CGI教学:CGI常用环境变量
· Perl教学 第三篇 操作符之二
· PerlScript 的介绍之一
· 如何将Perl代码着色
· CGI教程(6)调用CGI脚本文件的例子之一
· perl实例分析教程之十六


关于本站 | 联系我们 | 业务合作 | 客户案例 | 诚聘英才 | 广告合作 | 收藏本站
海口动网先锋网络科技有限公司版权所有
Copyright © 2000 - 2006 Cndw.Com
中华人民共和国电信与信息服务业务经营许可证编号 琼 ICP 020077