?? admin.cgi
字號:
#!/usr/bin/perl
### 西路留言本Ver3.0單用戶版 # http://westroad.126.com ###
require "setup.cgi";
@querys = split(/&/, $ENV{'QUERY_STRING'});
foreach $query (@querys) {
($name, $value) = split(/=/, $query);
$tj{$name} = $value;
}
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\|//g;
$value =~ s/>/>/g;
$value =~ s/</</g;
$value =~ s/\r\n/<br>/g;
$value =~ s/\n/<br>/g;
$tj{$name} = $value;
}
if ($tj{'id'} ne ""){
$id = $tj{'id'};
}
$admin = $tj{'admin'};
$pass = $tj{'pass'};
if ($admin eq ""){
&login;
exit;
}
if ($pass eq "" ){
&error ("密碼沒填");
exit;
}elsif ($admin ne $adminname){
&error ("用戶名錯誤");
exit;
}elsif ($pass ne $password){
&error ("密碼錯誤");
exit;
}elsif ($id eq "setup"){
&save;
exit;
}else{
&setup;
exit;
}
sub setup {
print "Content-type: text/html\n\n";
print qq~
<html>
<head>
<title>超級用戶管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="$css">
</head>
<body bgcolor="#FFFFFF" background="$gif/$bggif">
<table width="548" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="2" height="21">
<form name="form1" method="post" action="edit.cgi" >
<font color="#9999FF" size="2">
<input type="hidden" name="id" value="del">
<input type="hidden" name="admin" value="$tj{'admin'}">
<input type="hidden" name="pass" value="$tj{'pass'}">
<input type="hidden" name="lei" value="$tj{'pi'}">
<p align="center">按月份<font color="#FF6666">刪除留言</font>:</font>
<select name="number" size="1" class="tian" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #C0C0C0">
<option value="01">一月</option>
<option value="02">二月</option>
<option value="03">三月</option>
<option value="04">四月</option>
<option value="05">五月</option>
<option value="06">六月</option>
<option value="07">七月</option>
<option value="08">八月</option>
<option value="09">九月</option>
<option value="10">十月</option>
<option value="11">十一月</option>
<option value="12">十二月</option>
</select>
<input type="submit" name="Submit" value="刪除" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #C0C0C0">
</p>
</form>
</td>
</tr>
</table>
<br>
<table align="center" >
<tr>
<td>留言服務由<a href="$sitename">$sitename</a>提供 <span lang="zh-cn">
<a href="gb.cgi">返回留言薄</a></span><br>
<a target="_blank" href="http://westroad.126.com">西路留言本<span lang="en-us">Ver3.0</span>單用戶版</a> 技術支持:<a href="mailto:balakov.liuwei\@163.net">劉巍</a></td>
</tr>
</table>
</body>
</html> ~;
}
sub save {
open (TEST,">setup.file")||die "$!\n";
print TEST "\$adminname = '$tj{'adminname'}';\n\$password='$tj{'password'}';\n\$data='$tj{'data'}';\n\$myhome='$tj{'myhome'}';\n\$cgi='$tj{'cgi'}';\n\$gif='$tj{'gif'}';\n\$zsgif='$tj{'zsgif'}';\n\$btgif='$tj{'btgif'}';\n\$gbook='$tj{'gbook'}';\n\$perpage='$tj{'perpage'}';\n\$emailgif='$tj{'emailgif'}';\n\$homegif='$tj{'homegif'}';\n\$ipgif='$tj{'ipgif'}';\n\$icqgif='$tj{'icqgif'}';\n\$delgif='$tj{'delgif'}';\n\$boy='$tj{'boy'}';\n\$girl='$tj{'girl'}';\n\$upgif='$tj{'upgif'}';\n\$downgif='$tj{'downgif'}';\n\$liuygif='$tj{'liuygif'}';\n\$bggif='$tj{'bggif'}';\n\$replygif='$tj{'replygif'}';\n\$myemail='$tj{'myemail'}';\n";
print TEST "\n";
close(TEST);
&setup;
}
sub login {
print "Content-type: text/html\n\n";
print <<eof;
<html>
<head>
<title>驗證身份</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body background="$gif/$bggif" bgcolor="#FFFFFF">
<p> </p>
<p> </p>
<form name="login" method="post" action="admin.cgi" >
<table width="300" border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<td width="63">
<div align="center"><font size="2">用戶:</font></div>
</td>
<td width="223">
<input type="text" name='admin'>
</td>
</tr>
<tr>
<td width="63">
<div align="center"><font size="2">密碼</font>:</div>
</td>
<td width="223">
<input type="password" name='pass'>
</td>
</tr>
<tr align="center" valign="middle">
<td colspan="2">
<div align="center">
<input type="submit" name="Submit" value="登錄">
</div>
</td>
</tr>
</table>
</form>
</body>
</html>
eof
exit;
}
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=#
sub error
{
print "Content-type: text/html\n\n";
print "<html><head></head><body><script>alert('$_[0]');history.back();</script></body></html>";
}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -