>> 我们从网络和杂志上收集了近100000余篇各类电脑技术、网络技术、软件技术等方面的文章教程,我们的收录原则:不是精华拒不收录!

先飞电脑技术网 → 技术文章

在CGI中使用cookie的超简单方法！ ［ 作者：佚名    转贴自：转载    阅读次数：937    更新时间：2005-1-10 1:05:00   录入：蓝色动力 ］   热           超简单方法！ sub cookie{ if($ENV{'HTTP_COOKIE'}) { @cookies = split(/; /,$ENV{'HTTP_COOKIE'}); foreach(@cookies) { ($name,$value) = split(/=/,$_); $COOKIE{$name} = $value; } } print "Set-Cookie: $cook=$ENV{'REMOTE_ADDR'}$FORM{'number'};rn"; } ######################### sub read_cookie{ if($ENV{'HTTP_COOKIE'}) { @cookies = split(/; /,$ENV{'HTTP_COOKIE'}); foreach(@cookies) { ($name,$value) = split(/=/,$_); $COOKIE{$name} = $value; } } } ####### 调用时 &read_cookie; $username=$COOKIE{'UN'}; $email=$COOKIE{'UM'}; . . ###### 生成时 print "Set-Cookie: UN=$username; expires=Sunday, 12-Dec-2002 12:12:12 GMT;rn"; print "Set-Cookie: UM=$email; expires=Sunday, 12-Dec-2002 12:12:12 GMT;rn"; print "Set-Cookie: UH=$homeurl; expires=Sunday, 12-Dec-2002 12:12:12 GMT;rn"; print "Set-Cookie: UP=$pass; expires=Sunday, 12-Dec-2002 12:12:12 GMT;rn";

上一篇:CGI编程的安全性 -- 文件名  下一篇: 第一章：Unix环境