CGI实现CooKie.docVIP

CGI编程的COOKIE技术应用我们在一些留言本、BBS讨论区发贴时常会出现这种现象：当进入发贴界面时在需求填写用户名和密码的地方就已自动地填上了你的资料。这是什么会事呢？这是因为程式中引入了COOKIE技术的缘故。原来在你第一次登录时，程式就已在你的计算机中安装了一个COOKIE信息包，在你今后登陆时计算机就自动检索你的COOKIE并取出信息包的信息供程式调用，所以出现上面所述的现象。　　COOKIE只不过是CGI程式需求浏览器持有的一个信息包，这个信息包能由CGI程式在所有时候收回。每当CGI程式需求创建COOKIE 时，COOKIE能从服务器传送到浏览器所属的子目录下（通常是保存在C:＼WINDOWS＼Temporary Internet Files的目录下，这个过程称为COOKIE的安装。　　COOKIE的安装和读出通常都由一个CGI模块来完成，下面我就将此模块的原代码公开给大家，有了这个COOKIE模块我们在编写程式时如要应用COOKIE技术能说易如反掌。　　cookie的语法：　　http cookie的发送是通过http头部来实现的，他早于文件的传递，头部set-cookie的语法如下：　　Set-cookie:name=name;expires=date;path=path;domain=domain;secure name=name: 需要设置cookie的值(name不能使用“；”和，号),有多个name值时用；分隔例如：name1=name1;name2= name2;name3=name3。　　expires=date: cookie的有效期限,格式： expires=Wdy,DD-Mon-YYYY HH:MM:SS　　path=path: 设置cookie支持的路径,如果path是个路径，则cookie对这个目录下的所有文件及子目录生效，例如：path=/cgi-bin/，如果path是个文件，则cookie指对这个文件生效，例如：path=/cgi-bin/cookie.cgi。　　domain=domain: 对cookie生效的域名，例如：domain=　　secure: 如果给出此标志，表示cookie只能通过SSL协议的https服务器来传递。　　cookie的接收是通过设置环境变量HTTP_COOKIE来实现的，CGI程式能通过检索该变量获取cookie信息。　　以下是个cookie的模块，能为你编写程式带来方便　　$Cookie_Exp_Date = ’’;#此处设置cookie的有效时间　　$Cookie_Path = ’’;#此处设置cookie的有效路径，默认脚本存在的目录。　　$Cookie_Domain = ’’; #此处设置cookie的有效域名，默认脚本调用的域名。　　$Secure_Cookie = ’0’;　　@Cookie_Encode_Chars = (’＼%’, ’＼+’, ’＼;’, ’＼,’, ’＼=’, ’＼’, ’＼:＼:’, ’＼s’);　　%Cookie_Encode_Chars = (’＼%’, ’%25’,　　’＼+’, ’%2B’,　　’＼;’, ’%3B’,　　’＼,’, ’%2C’,　　’＼=’, ’%3D’,　　’＼’, ’%26’,　　’＼:＼:’, ’%3A%3A’,　　’＼s’, ’+’);# 特别字符的解码　　@Cookie_Decode_Chars = (’＼+’, ’＼%3A＼%3A’, ’＼%26’, ’＼%3D’, ’＼%2C’, ’＼%3B’, ’＼%2B’, ’＼%25’);　　%Cookie_Decode_Chars = (’＼+’, ’ ’,　　’＼%3A＼%3A’, ’::’,　　’＼%26’, ’’,　　’＼%3D’, ’=’,　　’＼%2C’, ’,’,　　’＼%3B’, ’;’,　　’＼%2B’, ’+’,　　’＼%25’, ’%’);# 特别字符的解码　　#########获取cookie信息子程式#####################　　sub GetCookies {　　local(@ReturnCookies) = @_;　　local($cookie_flag) = 0;　　local($cookie,$value);　　if ($ENV{’HTTP_COOKIE’}) {　　if ($ReturnCookies[0] ne ’’) {　　foreach (split(/; /,$ENV{’HTTP_COOKIE’})) {#分割HT