📄 manage.cgi
字号:
$point1=&get_var('point1' ,'\n|‖') ;
$point2=&get_var('point2' ,'\n|‖') ;
$setlevel=&get_var('setlevel' ,'\n|‖') ;
&checkempty($point1,"经验值1不能为空");
&checkempty($point2,"经验值2不能为空");
&checkempty($setlevel,"级别不能为空");
if ($point2 < $point1) {
$point3 = $point1;
$point1 = $point2;
$point2 = $point3; }
$k = 0;
@user=&getuserdata;
foreach (@user) {
&readuserdata($_);
if ($mark eq "userdata") {
if (($chkuserexperi >= $point1)&&($chkuserexperi <= $point2)&&($chkuserlevel < $setlevel)) {
$chkuserlevel = $setlevel;
$userfile = "$userhead$chkusername$userext";
&writeuserdata; $k++ ; }
}
}
&success("$k 个用户升级成功");
}
#####################################################
#显示所有用户的 Email
#####################################################
sub listemail {
&check_password();
if ($find_id == 0 ) { &error('你不是系统管理员'); }
@user=&getuserdata;
$k = 0;
foreach (@user) {
&readuserdata($_);
if (($mark eq "userdata")&&($chkuseremail ne "")) {
$k++;
$username[$k] = $chkusername;
$useremail[$k] = $chkuseremail;
}
}
&error("没有用户") if ($k == 0 );
print <<eof;
<html><head><title>显示所有用户的email</title>
<style type="text/css"> <!-- TABLE { font-family: 宋体; font-size: 14px } --></style></head>
<body bgcolor=$bg_color text=$text_color link=$link_color vlink=$vlink_color>
<center><br><br><br><br>
<table width="540" border="1" bordercolorlight="#CCFFFF" bordercolordark="#000000" bordercolor="#33CCFF" align="center" bgcolor="#99CCFF" height="150">
<tr><td colspan="4" bgcolor="#D6D5CD" height="14"><p align="right"><font color="#000000">$roomtitle</font></td></tr>
<tr><td colspan="4" bgcolor="#FDF0EA" height="14"><p align="center"><font size = 5 color="#0000FF">用户邮件列表</font></td></tr>
<tr><td bgcolor="#EFEDEF" width="135" height="12"><p align="center">用 户 名</td><td bgcolor="#EFEDEF" width="135" height="12"><p align="center">杏 香</td>
<td bgcolor="#EFEDEF" width="135" height="12"><p align="center">用 户 名</td><td bgcolor="#EFEDEF" width="135" height="12"><p align="center">杏 香</td></tr>
eof
for ($i=1;$i<=$k ;$i++) {
print "<tr><td bgcolor=\"#EFEDEF\" width=\"135\" height=\"12\"> $username[$i]</td><td bgcolor=\"#EFEDEF\" width=\"135\" height=\"12\"> $useremail[$i]</td>\n";
$i++;
if ($i > $k ) { print "<td bgcolor=\"#EFEDEF\" width=\"135\" height=\"12\"></td><td bgcolor=\"#EFEDEF\" width=\"135\" height=\"12\"></td>\n"; }
else { print "<td bgcolor=\"#EFEDEF\" width=\"135\" height=\"12\"> $username[$i]</td><td bgcolor=\"#EFEDEF\" width=\"135\" height=\"12\"> $useremail[$i]</td>\n"; }
print "</tr>\n";
}
print <<_dnchat;
<tr><td bgcolor="#D6D5CD" colspan=4 height="14"><p align="center">
<INPUT language=javascript onclick="javascript:window.close()" style="BACKGROUND-COLOR: DDDDFF; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: 000000; FONT-FAMILY: 宋体, Arial; FONT-SIZE: 9pt" type=submit value="关闭窗口">
</td> </tr>
</table></form>
<br><br><SPAN style="FONT-SIZE: 12px">技术支持 <a href="http://deen.126.com" target="_blank"><ACRONYM TITLE='提供最酷的聊天程序,去看看了'>聊天同盟</ACRONYM></a></span>
</div></body></html>
_dnchat
}
#####################################################
#向所有用户发信的页面
#####################################################
sub sendallhtml {
&check_password();
if ($find_id == 0 ) { &error('你不是系统管理员'); }
if ( $send_allow != 1 ) { &error('系统不允许发信<br>请向服务器管理员咨询'); }
print <<eof;
<html><head><title>向所有用户发信</title></head>
<body bgcolor=$bg_color text=$text_color link=$link_color vlink=$vlink_color>
<basefont size=2><center>
<form method=POST action="$cgiurl$manage?job=sendall$userinfo" onsubmit="self.status='资料已送出'; return true;">
<font size = 3><b>信件内容:</b><br><br></font>（<font color=red>必填</font>，限一百字以内，最好先用记事本写好再粘上来。）<br>
<br><textarea name="lettercomment" rows="6" cols="50">Hi,你好！！！这是一封来自 $roomtitle 的信。我是: $superuser 。</textarea><br>
<br><br>
<input type=submit value="发 送"> <input type=reset value="清 除">
</form></center></body></html>
eof
}
#####################################################
#向所有用户发信
#####################################################
sub sendall {
&check_password();
if ($find_id == 0 ) { &error('你不是系统管理员'); }
$lettercomment = &get_var('lettercomment');
&checkempty($lettercomment ,"信件内容不能为空") ; #检查信件内容是否为空
# 取用户的用户名与email
$usernamemail = "";
@user=&getuserdata;
$i = 0;
foreach (@user) {
$usermail = "";
&readuserdata($_);
if (($mark eq "userdata")&&($chkuseremail ne "")) {
$i++;
$usermail =$chkusername.'<'.$chkuseremail.'>'; }
else { next; }
# 发送邮件
if ( $send_allow == 1 ) {
open(MAIL, "|$sendprog -t") || &error("找不到送信路径<BR>通知系统管理员.");
print MAIL "To: $usermail\n";
print MAIL "From: $superuser<$mailbox>\n";
print MAIL "Subject: $roomtitle 系统留言\n\n";
print MAIL "亲爱的$chkusername：您好\n\n";
print MAIL "$lettercomment\n\n";
close(MAIL);
}
}
&success("系统留言成功发送给 $i 个用户");
}
#############################################
#小网管的查找页面
#############################################
sub sadmin_html {
print <<eof;
<html><body bgcolor=$bg_color text=$text_color>
<center><br><font size=6 color=red>小网管功能</font><br><br><br>
所有用户一律平等，请你尽量不要使用此功能
<form method="POST" action="$cgiurl$manage?job=sfind$userinfo">
用户名或者用户ID：<input type="text" name="searchusername" size="20">
<input type="submit" value="查找">
</form></body></html>
eof
}
##############################################
#小网管的修改页面
##############################################
sub sadmin_change {
&check_password();
if ( $smalladmin == 0 ) { &error('你的权限不够'); }
$searchusername = &get_var('searchusername' ,'\n|"|<|>|\&|;| |\?|‖') ;
&checkempty($searchusername,"没有输入用户名");
$chkusersame = 0;
$userfile = "$userhead$searchusername$userext";
if (-e "$userfile") {
$user=&readuserfile($searchusername,2);
&readuserdata($user);
if ($mark eq "userdata") { $chkusersame = 1; $tem_level = $chkuserlevel; }
}
if ( $chkusersame==0 ) { &error("没有这个用户") ; }
if ($userlevel <= $tem_level ) { &error("Sorry,你没有修改这个用户的权限"); }
#如果找到，则显示此人的情况
print <<eof;
<html><body bgcolor=$bg_color text=$text_color>
<center>以下是用户<font color=red> $searchusername </font>的资料 :
<form method="POST" action="$cgiurl$manage?job=schange$userinfo">
<input type=hidden name='searchusername' value='$searchusername'>
<br>
eof
$level_html = "<b>级别：</b><select name='updatelevel'>";
for ($i = 1; $i<$userlevel ; $i++) {
$level_html .="<option value='$i' ";
$level_html .= "selected" if ($tem_level == $i );
$level_html .="> $i </option>"; }
$level_html .= "</select><br><br>";
print <<eof;
$level_html<br><br>
<input type="submit" value="修改"></form>
</center></body></html>
eof
}
#######################################
#小网管的修改
#######################################
sub sadmin_update {
if ( $smalladmin == 0 ) { &error('你的权限不够'); }
$suserrname = &get_var('searchusername' ,'\n|"|<|>|\&|;| |\?|‖') ;
$suserlevel = &get_var('updatelevel' ,'\n');
&error("修改的级别不能大于等于 $userlevel") if ($suserlevel >= $userlevel);
$userfile = "$userhead$suserrname$userext";
if (-e "$userfile") {
$user=&readuserfile($suserrname,2);
&readuserdata($user);
if (($mark eq "userdata")&&($suserlevel < $userlevel)) {
$chkuserlevel = $suserlevel;
$chkuserlevel = 1 if ($chkuserlevel > $maxlevel);
&writeuserdata; }
}
&success("恭喜，$suserrname 级别已经修改为 $suserlevel 级");
}
#######################################
#留言本的输出页面
#######################################
sub guest_html {
print <<eof;
<html><head></head>
<body bgcolor=$bg_color text=$text_color>
<center>
<h2>填写约会留言</h2><table width=80% border=0><tr><td>
<form method=POST action="$cgiurl$manage?job=guestbook$userinfo">
写给：<input type=text name=tousername value='请输入有效的聊友名'>(不填与无效都表示所有人)<br>
现在心情：<SELECT name="pic"><OPTION VALUE="1.gif">欢笑<OPTION VALUE="2.gif">愤慨<OPTION VALUE="3.gif">伤心<OPTION VALUE="4.gif">唱歌<OPTION VALUE="5.gif">大哭<OPTION VALUE="6.gif">OK!!<OPTION VALUE="7.gif">惊喜<OPTION VALUE="8.gif">发火<OPTION VALUE="9.gif">害怕<OPTION VALUE="10.gif">歹势<OPTION VALUE="11.gif">扁嘴<OPTION VALUE="12.gif">正常<OPTION VALUE="13.gif">冒冷汗<OPTION VALUE="14.gif">伤脑经<OPTION VALUE="15.gif">笑到肚子痛<OPTION VALUE="16.gif">气到说不出话</SELECT><br>
要说的话：<textarea name=content rows="4" cols="20"></textarea>
<input type=submit value="发送">(20天后自动删除)</form></td></tr></table>
eof
if ( $send_allow != 1 ) { print "系统不允许发信，留言将只显示<br>\n"; }
print "<hr>在20天内与你有关的留言：<hr>\n";
# 输出内容
@book=&readtxtfile($guestfile,2);
@book=reverse @book;
foreach (@book) {
($chkdate,$chkusername,$chkpict,$chktouser,$chktoemail,$chkcomment)=split(/‖/,$_);
if (($chktouser eq "大家" ) || ($chkusername eq $username ) || ($chktouser eq $username)) {
print <<eof;
<table border=0 width='80%'>
<tr><td><img src="$picturl$chkpict" border=0></td>
<td valign=top>$chkdate <font color=red>$chkusername</font> 对<font color=blue> $chktouser </font>说：<br>$chkcomment</td></tr>
</table><hr width=80%>
eof
}
}
}
#######################################
#留言以后的处理
#######################################
sub guestbook {
#取数据
$guestusername =&get_var('tousername' ,'\n|"|<|>|\&|;| |\?|‖');
$guestpict =&get_var('pic' ,'\n|‖');
$guestcontent =&get_var('content' ,'\n|‖');
if ($usersex eq "Girl" ) { $guestpict = "w".$guestpict; }
else { $guestpict = "m".$guestpict;}
if ($guestusername eq "") { $guestusername = "大家"; }
$chkusersame = 0;
$userfile = "$userhead$guestusername$userext";
if (-⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -