⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin.cgi

📁 CGI网站访问代码下载
💻 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>提供&nbsp;&nbsp; <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>&nbsp; 技术支持：<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>&nbsp;</p>
<p>&nbsp;</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 + -