?? login.cgi
字號:
#!/perl/bin/perl
require "./setup.pl";
use CGI;
$cgi=new CGI;
$id=$cgi->param('id');
$key=$cgi->param('key');
unless (($id eq $supername)&&($key eq $superkey))
{print "Content-type: text/html\n\n";
print qq~
<html>
<head><title>登陸</title></head>
<body>
<form name=admin method=post action=login.cgi>
<table border="1" width="45%" align="center" cellspacing="0" cellpadding="0" Class="TableLine" bordercolorlight="#000000">
<tr align="center">
<td width=100% align=center bgcolor="#EFEFEF" height="22">Manager</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td width="33%" align="right" height="30">USER:</td>
<td width="67%"><input type="text" name="id" size="20"></td>
</tr>
<tr>
<td width="33%" align="right" height="30">PASSWORD:</td>
<td width="67%"><input type="password" name="key" size="20"></td>
</tr>
<tr>
<td colspan="2" height="15" align=center><input type="submit" name="Submit" value="ENTER"></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>
~;
exit;}
my $cookie1=$cgi->cookie(-name=>'id',-value=>$id);
my $cookie2=$cgi->cookie(-name=>'key',-value=>$key);
print $cgi->header(-type=>'text/html',-cookie=>[$cookie1,$cookie2],-charset=>'gb2312');
print qq~
<html>
<head>
<title>admin</title>
</head>
<body>
<table border="0" cellspacing="1" width="750" id="AutoNumber1" height="445" align=center>
<tr>
<td width="33%" height="154"> </td>
<td width="33%" height="154" align="center"><font size="6" color="#FF0000">
<a href=admin_add.cgi target=_blank>添加新產(chǎn)品</a></font></td>
<td width="34%" height="154"> </td>
</tr>
<tr>
<td width="33%" height="129"> </td>
<td width="33%" height="129" align="center"><font size="6" color="#FF0000">
<a href=search.cgi target=_blank>修改或刪除</a></font></td>
<td width="34%" height="129"> </td>
</tr>
<tr>
<td width="33%" height="126"> </td>
<td width="33%" height="126" align="center"><a href="javascript:window.close();"><font size="5">退出</font></a></td>
<td width="34%" height="126"> </td>
</tr>
</table>
</body>
</html>
~;
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -