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

📄 manage.cgi

📁 这个是分屏聊天室源码。需要分屏的聊天室请参考
💻 CGI
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
<br><form method=POST action="$cgiurl$manage?job=setlevel$userinfo"><font color="#0000FF"><SPAN style="FONT-SIZE: 9pt">&nbsp;&nbsp;所有用户等级置1</span></font>    <INPUT style="BACKGROUND-COLOR: '#DDDDFF'; COLOR: 000000; 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=" 确 定 "></form>
</td></tr>
<tr><td bgcolor="#EFEDEF" width="270" height="12">
<br><form method=POST action="$cgiurl$manage?job=backdata$userinfo"><font color="#0000FF"><SPAN style="FONT-SIZE: 9pt">&nbsp;&nbsp;用户数据备份</span></font>    <INPUT style="BACKGROUND-COLOR: '#DDDDFF'; COLOR: 000000; 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=" 确 定 "></form>
</td><td bgcolor="#EFEDEF" width="270" height="12">
<br><form method=POST action="$cgiurl$manage?job=restoredata$userinfo"><font color="#0000FF"><SPAN style="FONT-SIZE: 9pt">&nbsp;&nbsp;用户数据恢复</span></font>    <INPUT style="BACKGROUND-COLOR: '#DDDDFF'; COLOR: 000000; 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=" 确 定 "></form>
</td></tr>
<tr><td bgcolor="#EFEDEF" width="270" height="12">
<br><form method=POST action="$cgiurl$manage?job=supersingle$userinfo"><font color="#0000FF"><SPAN style="FONT-SIZE: 9pt">&nbsp;&nbsp;单用户管理</span></font>&nbsp;<input type="text"  name="susername" size="6" maxsize = "20">&nbsp;<INPUT style="BACKGROUND-COLOR: '#DDDDFF'; COLOR: 000000; 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=" 查 找 "></form>
</td><td bgcolor="#EFEDEF" width="270" height="12">
<br><form method=POST action="$cgiurl$manage?job=superuserhtml$userinfo"><font color="#0000FF"><SPAN style="FONT-SIZE: 9pt">&nbsp;&nbsp;所有用户管理</span></font>    <INPUT style="BACKGROUND-COLOR: '#DDDDFF'; COLOR: 000000; 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=" 确 定 "></form>
</td></tr>
<tr><td bgcolor="#EFEDEF" width="270" height="12">
<br><form method=POST action="$cgiurl$manage?job=userchang1$userinfo">
<font color="#0000FF"><SPAN style="FONT-SIZE: 9pt">&nbsp;&nbsp;经验值超过 <input type=text name=setpoint value="1000" size=6>点的用户</span></font>     <INPUT style="BACKGROUND-COLOR: '#DDDDFF'; COLOR: 000000; 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=" 管 理 "></form>
</td><td bgcolor="#EFEDEF" width="270" height="12">
<br><form method=POST action="$cgiurl$manage?job=userchang2$userinfo">
<font color="#0000FF"><SPAN style="FONT-SIZE: 9pt">&nbsp;&nbsp;经验值低于 <input type=text name=setpoint value="2" size=6>点的用户</span></font>     <INPUT style="BACKGROUND-COLOR: '#DDDDFF'; COLOR: 000000; 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=" 管 理 "></form>
</td></tr>
<tr><td bgcolor="#EFEDEF" colspan="2" height="12">
<br><form method=POST action="$cgiurl$manage?job=superuplevel$userinfo">
<font color="#0000FF"><SPAN style="FONT-SIZE: 9pt">&nbsp;&nbsp;将经验值为 <input type=text name=point1 value="1000" size=6> 点到
 <input type=text name=point2 value="2000" size=6> 点的用户至少升到 $level_html 级
</span></font>     <INPUT style="BACKGROUND-COLOR: '#DDDDFF'; COLOR: 000000; 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=" 确 定 "></form>
 </td></tr>
<tr><td bgcolor="#EFEDEF" width="270" height="12">
<br><form method=POST action="$cgiurl$manage?job=userchang3$userinfo">
<font color="#0000FF"><SPAN style="FONT-SIZE: 9pt">&nbsp;&nbsp;级别高于 <input type=text name=setlevel value="5" size=6>级的用户</span></font>     <INPUT style="BACKGROUND-COLOR: '#DDDDFF'; COLOR: 000000; 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=" 管 理 "></form>
</td><td bgcolor="#EFEDEF" width="270" height="12">
<br><form method=POST action="$cgiurl$manage?job=listemail$userinfo">
<font color="#0000FF"><SPAN style="FONT-SIZE: 9pt">&nbsp;&nbsp;列出所有的用户EMAIL</span></font>     <INPUT style="BACKGROUND-COLOR: '#DDDDFF'; COLOR: 000000; 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=" 确 定 "></form></td></tr>
<tr><td bgcolor="#EFEDEF" width="270" height="12">
<br><form method=POST action="$cgiurl$manage?job=sendallhtml$userinfo"><font color="#0000FF"><SPAN style="FONT-SIZE: 9pt">&nbsp;&nbsp;向所有用户发信</span></font>     <INPUT style="BACKGROUND-COLOR: '#DDDDFF'; COLOR: 000000; 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=" 确 定 "></form>
</td><td bgcolor="#EFEDEF" width="270" height="12">
<br><form method=POST action="$cgiurl$manage?job=bookhtml$userinfo"><font color="#0000FF"><SPAN style="FONT-SIZE: 9pt">&nbsp;&nbsp;约会留言管理</span></font>   <INPUT style="BACKGROUND-COLOR: '#DDDDFF'; COLOR: 000000; 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=" 确 定 "></form>
</td></tr>
 <tr><td bgcolor="#EFEDEF" width="270" height="12">
<br><form method=POST action="$cgiurl$manage?job=killrec$userinfo"><font color="#0000FF"><SPAN style="FONT-SIZE: 9pt">&nbsp;&nbsp;踢人记录</span></font>     <INPUT style="BACKGROUND-COLOR: '#DDDDFF'; COLOR: 000000; 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=" 确 定 "></form>
</td><td bgcolor="#EFEDEF" width="270" height="12">
<br><form method=POST action="$cgiurl$manage?job=sysmess$userinfo"><font color="#0000FF"><SPAN style="FONT-SIZE: 9pt">&nbsp;&nbsp;系 统 信 息</span></font>   <INPUT style="BACKGROUND-COLOR: '#DDDDFF'; COLOR: 000000; 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=" 修 改 "></form>
</td></tr>
 <tr><td bgcolor="#EFEDEF"  width="270" height="12">
<br><form method=POST action="$cgiurl$manage?job=setno$userinfo"><font color="#0000FF"><SPAN style="FONT-SIZE: 9pt">&nbsp;&nbsp;系统序列号复位</span></font>     <INPUT style="BACKGROUND-COLOR: '#DDDDFF'; COLOR: 000000; 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=" 确 定 "></form>
</td><td bgcolor="#EFEDEF" width="270" height="12">
<SPAN style="FONT-SIZE: 9pt">&nbsp;&nbsp;当前序列号：$lastno <br>&nbsp;&nbsp;系统序列号快要达到 9999999 时<br>&nbsp;&nbsp;<font color=red>请使用此功能．要求所有聊天用户必须退出</font></span>
</td></tr>
<tr><td  bgcolor="#D6D5CD" colspan=2 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">技术支持&nbsp;<a href="http://deen.126.com" target="_blank"><ACRONYM TITLE='提供最酷的聊天程序,去看看了'>聊天同盟</ACRONYM></a></span>
</div></body></html>
eof
}
##############################################
#超级用户的密码修改
##############################################
sub csuperpass {
#检查用户是否有超级用户的权限
&check_password();
if ($find_id == 0 ) { &error('你不是系统管理员'); }
$usuperpass = &get_var('usuperpass','\n|"|<|>|\&|;| |\?|‖');
&error("密码不能为空") if ($usuperpass eq "");
$usuperpass2 = crypt($usuperpass,"DN");
$superuserfile = "$filehead$superfile";
open(SUPERDATA, ">$superuserfile")|| die "不能建立$textfile文件"; 
flock(SUPERDATA,2) if ($unixsys == 1);
print SUPERDATA "$usuperpass2\n";
flock(SUPERDATA,8) if ($unixsys == 1);
close(SUPERDATA);
&success("系统管理员密码修改为：$usuperpass");
}

##############################################
#超级用户的系统信息管理页面
sub sysmess_html {
&check_password();
if ($find_id == 0 ) { &error('你不是系统管理员'); }
@sysmess=&readtxtfile($sysmessfile,2);
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=syssave$userinfo"  onsubmit="self.status='资料已送出'; return true;">
	<font size = 5 color=red><b>系统信息:</b><br><br></font>（<font color=red>必填</font>，限30字以内，不要换行，可以使用HTML语法）<br>
        <br><textarea name="sysmess" rows="5" cols="50">@sysmess</textarea><br><br><br>
		<input type=submit value="保 存">&nbsp;&nbsp;&nbsp;<input type=reset value="清 除"></form></center></body></html>
eof
}
##############################################
#超级用户的系统信息存储
sub syssave {
&check_password();
if ($find_id == 0 ) { &error('你不是系统管理员'); }
$sysmess=&get_var('sysmess'    ,'\n|‖\
|') ;
open(MESSDATA,">$filehead$sysmessfile") || die $!;
print MESSDATA "$sysmess";
close(MESSDATA);
&success('系统信息修改成功');
}
##############################################
#超级用户的单用户管理页面
sub supersingle_html {
&check_password();
if ($find_id == 0 ) { &error('你不是系统管理员'); }
$susername   = &get_var('susername'    ,'\n|"|<|>|\&|;| |\?|‖') ;
&checkempty($susername,"没有输入用户名");
$userfile = "$userhead$susername$userext";
if (-e "$userfile") { $user=&readuserfile($susername,2); }
	else { &error("没有这个用户"); }
print <<eof;
	<html><head><title>超级用户管理
	</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>
	<basefont size=2>
	<center><font size = 5 color=red >单用户管理</font><br><br><br><br>
	<font size=3><b>选择修改的人员</b></font><br>
	<table border=1>
	<form method=POST action="$cgiurl$manage?job=superchange$userinfo"  onsubmit="self.status='资料已送出'; return true;">
	<tr><td bgcolor='#FFCC66' align=center  width=10%>选择</td>
	<td bgcolor='#FFCC66' align=center  width=12%>用户</td>
    <td bgcolor='#FFCC66' align=center  width=20%>EMAIL</td>
    <td bgcolor='#FFCC66' align=center  width=10%>经验</td>
	<td bgcolor='#FFCC66' align=center  width=6%>级别</td>
	<td bgcolor='#FFCC66' align=center  width=20%>最后出现</td>
	</tr>
eof
&readuserdata($user);
if ($mark eq "userdata")  {
		print "<tr><td bgcolor='#F4F9FF' align=center  width=10%>\n";
		print "<font size=-1><input type=radio name=chkusername value=$susername>修改</font></td>\n";
		print "<td bgcolor='#F4F9FF' align=center  width=12%>$susername</td>\n";
		print "<td bgcolor='#F4F9FF' align=center  width=20%><font size=-1>$chkuseremail</font></td>\n";
		print "<td bgcolor='#F4F9FF' align=center  width=10%>$chkuserexperi</td><td bgcolor='#F4F9FF' align=center  width=6%>$chkuserlevel</td><td bgcolor='#F4F9FF' align=center  width=20%>$chkuseredate</td></tr>\n"; 
   }
print <<eof;
	</table><br><br>
	<input type=submit value="执 行">&nbsp;&nbsp;&nbsp;<input type=reset value="清 除">
	</form><br><br>
eof
print <<eof;
	<font size=3><b>选择删除的人员</b></font><br>
	<table border=1>
	<form method=POST action="$cgiurl$manage?job=superdelete$userinfo"  onsubmit="self.status='资料已送出'; return true;">
	<tr><td bgcolor='#FFCC66' align=center  width=10%>选择</td>
	<td bgcolor='#FFCC66' align=center  width=12%>用户</td>
    <td bgcolor='#FFCC66' align=center  width=20%>EMAIL</td>
    <td bgcolor='#FFCC66' align=center  width=10%>经验值</td>
	<td bgcolor='#FFCC66' align=center  width=6%>级别</td>
	<td bgcolor='#FFCC66' align=center  width=20%>最后出现</td>
	</tr>
eof
&readuserdata($user);
if ($mark eq "userdata")  {
		print "<tr><td bgcolor='#F4F9FF' align=center  width=10%>\n";
		print "<font size=-1><input type=radio name=delusername value=$susername>删除</font></td>\n";
		print "<td bgcolor='#F4F9FF' align=center  width=12%>$susername</td>\n";
		print "<td bgcolor='#F4F9FF' align=center  width=20%><font size=-1>$chkuseremail</font></td>\n";
		print "<td bgcolor='#F4F9FF' align=center  width=10%>$chkuserexperi</td><td bgcolor='#F4F9FF' align=center  width=6%>$chkuserlevel</td><td bgcolor='#F4F9FF' align=center  width=20%>$chkuseredate</td></tr>\n"; 
   }
print <<eof;
	</table><br><br>
	<input type=submit value="执 行">&nbsp;&nbsp;&nbsp;<input type=reset value="清 除">
	</form><br></center></body></html>
eof
}

##############################################
#超级用户的多用户管理页面
sub superuser_html{
&check_password();
if ($find_id == 0 ) { &error('你不是系统管理员'); }
if (($job eq "userchang1")||($job eq "userchang2")) { 
	$setpoint = &get_var('setpoint'          ,'\n|‖') ; 
	&checkempty($setpoint,"经验值不能为空");			}
if ($job eq "userchang3") { 
	$setlevel = &get_var('setlevel'          ,'\n|‖');
	&checkempty($setlevel,"级别不能为空");			}
print <<eof;
	<html><head><title>超级用户管理</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>
	<basefont size=2>
	<center><font size = 5 color=red >多用户管理</font><br><br><br><br>
	<font size=3><b>选择修改的人员</b></font><br>
	<table border=1>
	<form method=POST action="$cgiurl$manage?job=superchange$userinfo"  onsubmit="self.status='资料已送出'; return true;">
	<tr><td bgcolor='#FFCC66' align=center  width=10%>选择</td>
	<td bgcolor='#FFCC66' al ign=center  width=12%>用户</td>
    <td bgcolor='#FFCC66' align=center  width=20%>EMAIL</td>
    <td bgcolor='#FFCC66' align=center  width=10%>经验值</td>
	<td bgcolor='#FFCC66' align=center  width=6%>级别</td>
	<td bgcolor='#FFCC66' align=center  width=20%>最后出现</td>
	</tr>
eof
@user=&getuserdata;
foreach (@user) {
	&readuserdata($_);
	if ($mark eq "userdata") {
		if ($job eq "userchang1") { next if ($chkuserexperi < $setpoint ); }
		if ($job eq "userchang2") { next if ($chkuserexperi > $setpoint ); }
		if ($job eq "userchang3") { next if ($chkuserlevel < $setlevel ); }
		print "<tr><td bgcolor='#F4F9FF' align=center  width=10%>\n";
		print "<font size=-1><input type=radio name=chkusername value=$chkusername>修改</font></td>\n";
		print "<td bgcolor='#F4F9FF' align=center  width=12%>$chkusername</td>\n";
		print "<td bgcolor='#F4F9FF' align=center  width=20%><font size=-1>$chkuseremail</font></td>\n";
		print "<td bgcolor='#F4F9FF' align=center  width=10%>$chkuserexperi</td><td bgcolor='#F4F9FF' align=center  width=6%>$chkuserlevel</td><td bgcolor='#F4F9FF' align=center  width=20%>$chkuseredate</td></tr>\n"; 
   }
}
print <<eof;
	</table><br><br>
	<input type=submit value="执 行">&nbsp;&nbsp;&nbsp;<input type=reset value="清 除">
	</form><br><br>
eof
print <<eof;
	<font size=3><b>选择删除的人员</b></font><br>
	<table border=1>
	<form method=POST action="$cgiurl$manage?job=superdelete$userinfo"  onsubmit="self.status='资料已送出'; return true;">
	<tr><td bgcolor='#FFCC66' align=center  width=10%>选择</td>
	<td bgcolor='#FFCC66' align=center  width=12%>用户</td>
    <td bgcolor='#FFCC66' align=center  width=20%>EMAIL</td>
    <td bgcolor='#FFCC66' align=center  width=10%>经验值</td>
	<td bgcolor='#FFCC66' align=center  width=6%>级别</td>
	<td bgcolor='#FFCC66' align=center  width=20%>最后出现</td>
	</tr>
eof
@user=&getuserdata;
foreach (@user) {
	&readuserdata($_);
	if ($mark eq "userdata")  {
		if ($job eq "userchang1") { next if ($chkuserexperi < $setpoint ); }
		if ($job eq "userchang2") { next if ($chkuserexperi > $setpoint ); }
		if ($job eq "userchang3") { next if ($chkuserlevel < $setlevel ); }
		print "<tr><td bgcolor='#F4F9FF' align=center  width=10%>\n";
		print "<font size=-1><input type=checkbox name=delusername value=$chkusername>删除</font></td>\n";
		print "<td bgcolor='#F4F9FF' align=center  width=12%>$chkusername</td>\n";
		print "<td bgcolor='#F4F9FF' align=center  width=20%><font size=-1>$chkuseremail</font></td>\n";
		print "<td bgcolor='#F4F9FF' align=center  width=10%>$chkuserexperi</td><td bgcolor='#F4F9FF' align=center  width=6%>$chkuserlevel</td><td bgcolor='#F4F9FF' align=center  width=20%>$chkuseredate</td></tr>\n"; 
   }
}
print <<eof;
	</table><br><br>
	<input type=submit value="执 行">&nbsp;&nbsp;&nbsp;<input type=reset value="清 除">
	</form><br></center></body></html>
eof
}
##############################################
#用户升级功能
sub uplevel {
&check_password();
if ($find_id == 0 ) { &error('你不是系统管理员'); }
12345

⌨️ 快捷键说明

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