Cookie与PERL

作者：小歪歪
日期：2001-1-12 16:45:38

#!/usr/bin/perl -w
让用户输入用户名和密码
use strict;
use CGI;
#检查用户名和密码开始
my $mycgi=new CGI;
print <<HEADPART;
content-type:text/html
<html><head><title>test it :)</title>
<meta http-equiv=';Content-Type'; content=';text/html; charset=gb2312';>
<SCRIPT language="JavaScript">
<!--
var never = new Date()
never.setTime(never.getTime() + 2000*24*60*60*1000);
function SetCookie(name, value)
{
var expString = "; expires=" + never.toGMTString();
documents.cookie = name + "=" + escape(value) + expString;
}
// returns value of cookie or null if cookie does not exist
function GetCookie(name)
{
var result = null;
var myCookie = " " + documents.cookie + ";";
var searchName = " " + name + "=";
var startOfCookie = myCookie.indexOf(searchName);
var endOfCookie;
if (startOfCookie != -1)
{
startOfCookie += searchName.length; // skip past name of cookie
endOfCookie = myCookie.indexOf(";", startOfCookie);
result = unescape(myCookie.substring(startOfCookie, endOfCookie));
}
return result;
}
function gogo()
{
SetCookie(';username';,document.form1.username.value);
SetCookie(';password';,document.form1.password.value);
document.form1.submit();
}
// -->
</SCRIPT>
</head>
<body bgcolor="#FFFFFF">
<form name=form1 method=post action=';/***/other.pl'; enctype=';multipart/form-data';>
<p>用户名:
<script language=javascript>
<!--
var username=GetCookie("username");
if (username==null)
{
document.write (';<input type=text name=username class=p1>';);
}
if (username !== null)
{
document.write ("<input type=text name=username value="+username+" class=p1>");
}
document.write ("<br>密　码: ");
var password=GetCookie("password");
if (password==null)
{
document.write (';<input type=password name=password class=p1>';);
}
if (password !== null)
{
document.write ("<input type=password name=password value="+password+" class=p1>");
}
// -->
</script>
<br><br>
<input type=hidden name=pageid value="$pageid">
</p>
HEADPART
print <<THEEND;
<input type="button" name="Submit" value="进入" onclick="gogo();"><br>
</form>
* 现已加入cookie，只需要第一次输入用户名和密码，以后系统即可自动记录，不用再输了
</body>
</html>
THEEND

复制代码

——————以下内容由Cnangel在2005年08月25日 07:49pm时添加———————

这个Cookie的方式并不是很详细,等我把一个Cookie的问题彻底解决了,哪天来补充一下.

收藏分享评分

                  我是一个呼吸着现在的空气而生活在过去的人
            这样的注定孤独，孤独的身处闹市却犹如置身于荒漠
                                 我已习惯了孤独，爱上孤独
                              他让我看清了自我，还原了自我
                           让我再静静的沉思中得到快乐和满足
                                 再孤独的世界里我一遍又一遍
                                 不厌其烦的改写着自己的过去
                                          延伸到现在与未来
                                    然而那只是泡沫般的美梦
                              产生的时刻又伴随着破灭的到来
                     在灰飞烟灭的瞬间我看到的是过程的美丽
                                    而不是结果的悲哀。。。

回复引用

订阅 TOP

返回列表