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

📄 cjyh.cgi

📁 1.支持多用户模式。 2.在线申请友情连接在线开通。 3.申请EMAIL回复功能。 4.条型图投票百分比显示。 5.为用户提供滚动JAVAs cript更新代码
💻 CGI
字号:
🔍 
#!/usr/bin/perl
#------------------------------------------------------#
#                 本程序为Yuzi工作室提供               #
#              Yuzi调查引擎2000多用户版v1.11           #
#------------------------------------------------------#
require "setup.cgi";
######################
## 以下部分不需修改 ##
######################
$cgiurl  ="cjyh.cgi";
$perpage=20;
 if ($ENV{'REQUEST_METHOD'} eq "POST") {
  read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
  $buffer = $ENV{'QUERY_STRING'};
}
@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/<!--(.|\n)*-->//g;
   $value =~ s/\t//g;
   $FORM{$name} = $value;
}
$adm     = $FORM{'adm'};
$psd     = $FORM{'psd'};
$a_method= $FORM{'a_method'};
$selname = $FORM{'selname'};
$username= $FORM{'username'};
$page  = $FORM{'page'};
if(($admname ne $adm)||($delpsd ne $psd)){
&send_html;
print <<EOF;
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">TD{FONT-SIZE:9pt}A{FONT-SIZE:9pt;TEXT-DECORATION:none}A:hover{FONT-SIZE:9pt;TEXT-DECORATION:underline}</style>
<style>input{font-size:9pt;color:#000080;background-color:#FFFFFF;padding-top:3px}<!--body,table a{text-decoration:none}a:hover{color:red;text-decoration:underline}--></style>
<title>超级用户管理</title>
<script language="JavaScript">
function chksend(){
var send=false;
if(document.reg.adm.value){
if(document.reg.psd.value){
send=true;
}
}
if (send==false){
alert('站长管理用，请勿进入，谢谢！');
}
return send;
}

</script>
</head>
<body background=$imagurl/bg.jpg>

<br>
<h2 align="center">超级用户管理</h2>
<div align="center"><center>
<form name="reg" action="$cgiurl" onsubmit="return chksend();">
  <table border="1" width="400">
    <tr>
      <td width="40%" align=center>超级用户名字：</td>
      <td width="60%"><input name="adm" type="text" size="30" maxlength="10"></td>
    </tr>
   <tr>
      <td width="40%" align=center>超级用户密码：</td>
      <td width="60%"><input name="psd" type="password" size="30" maxlength="12"></td>
    </tr>
    <tr>
      <td><div align="center"><center><p><input type="reset" value="重   填" name="B2"></td>
      <td align="center"><div align="center"><center><p><input type="submit" value="提   交"
      name="B1"></td>
    </tr>
  </table>
</form>
</center></div>
</body>
</html>
EOF
exit;
}
elsif($a_method eq "kills"){&kills;exit;}
else{
open(PSD,"$filepath/data/list")|| die $!;
@lines=<PSD>;
close(PSD);
$size=@lines;
$ii=0;
$j=$size;
while ($j>0) {
$j=$j-$perpage;
$ii++;
}
&send_html;
print <<EOF;
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
a:link {  font-family: "宋体", "serif"; font-size: 9pt; color: #004080; text-decoration: none}
a:hover {  color: #004080; text-decoration: underline; background-color: #CCCC99}
a:visited {  text-decoration: none}
body {  font-family: "宋体", "serif"; font-size: 9pt}
td {  font-family: "宋体", "serif"; font-size: 9pt}
input {  font-size: 9pt}
p {  font-size: 9pt}
br {  font-size: 9pt}
tr {  font-size: 9pt}
table {  font-size: 9pt}
-->
</style>
<body background=$imagurl/bg.jpg>
<title>超级用户管理</title>
</head>
<br>
<center><h2>超级用户管理</h2></center>
<center>
居民数:<font color=#FF0000>$size</font>
<table border="1" width="80%" bordercolorlight="#008000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF">
</tr>
<tr>
<td background=$imagurl/tablebg.gif width="70%" align="center"><font color=ffffff>调查问题</font></td>
<td background=$imagurl/tablebg.gif width="15%" align="center"><font color=ffffff>版主</font></td>
<td background=$imagurl/tablebg.gif width="15%" align="center"><font color=ffffff>删除此用户</font></td>
</tr>
EOF
if($page eq ""){$page=$ii;}
$pages=$page-1;
$pages=$page*$perpage-$perpage;
for($i=$pages; $i<$pages+$perpage; $i++) {
$line=@lines[$i];
$line=~ s/\n//g;
if ($line ne "") {
($username)=split(/\t/,$line);
unless(-f "$filepath/data/$username.cgi"){
open(TMP,">$filepath/data/$username.cgi");
close(TMP);
chmod(0666,"$filepath/data/$username.cgi");
}
open(PSD1,"$filepath/data/$username.cgi")|| die $!;
@lines1=<PSD1>;
close(PSD1);
foreach $line1 (@lines1) {
$line1=~ s/\n//g;
($rname)=split(/\|/,$line1);

print <<EOF;
<tr>
<td>　<a href=$yuzicgi?menu=showvote&id=$username target=_blank>$rname</a><br>$jianj</td>
<td align="center">$username</td>
<td align="center"><form action=$cgiurl METHOD=POST><input type=hidden name=selname value=$username><input type=hidden name=adm value=$adm><input type=hidden name=psd value=$psd><input type=hidden name=a_method value=kills><input type=submit value=删除></td>
</form>
</tr>
EOF
}
}
}
print <<EOF;
<tr>
<td align="center" width="100%" colspan="5" bgcolor="#FFF5E1">免费$cginame服务由<font color=#cc0033>
</font><font color=#ff6633><b><font Helvetica, sans-serif><a href=$zyurl>$zynames</a></font></b></font><font color=#cc0033>
</font>提供　程序制作：<b><a href="http://www.yuzi.net" target="_blank">Yuzi工作室</a></td></tr>
<tr>
<td colspan="5" align=center>
EOF
$j=$size;
while ($j>0) {
print "<a href=$cgiurl?adm=$adm&psd=$psd&page=$ii>" if ($page != $ii);
print "[$ii]";
print "</a>" if ($page != $ii);
$j=$j-$perpage;
$ii--;
}
print <<EOF;
</td>
</tr>
</table>
</center>
</body>
</html>
EOF
exit;
}
##########
sub send_html {
  if ($has_send ne "1") {
    print "Content-type: text/html\n\n";
    $has_send = "1";
  }
}
##########
sub kills{
unlink("$filepath/data/$selname.cgi"); 
unlink("$filepath/data/$selname.ip"); 
unlink("$filepath/data/$selname.dat"); 
open(TITLES,"$list")|| die $!;
@hastitles=<TITLES>;
close(TITLES);
open(TITLES,">$list")|| die $!;
foreach $m (@hastitles){
$m=~ s/\n//g;
if($m ne ""){
($index)=split(/\t/,$m);
if($index ne $selname){
print TITLES $m."\n";
}
}
}
close(TITLES);
&send_html;
     print <<EOF;
<html><head>
</head>
<style type="text/css">TD{FONT-SIZE:9pt}A{FONT-SIZE:9pt;TEXT-DECORATION:none}A:hover{FONT-SIZE:9pt;TEXT-DECORATION:underline}</style>
<style>input{font-size:9pt;color:#000080;background-color:#FFFFFF;padding-top:3px}<!--body,table a{text-decoration:none}a:hover{color:red;text-decoration:underline}--></style>
<body background=$imagurl/bg.jpg>
<center>
<br><br>
<h2>已 经 成 功 删 除 ！</h2><br><br>
<p align=center><a href=$cgiurl?adm=$adm&psd=$psd>返回管理菜单</p></a>
</body></html>
EOF
exit;

}
######################### END OF SCRIPT #########################

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -