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

📄 chatgg.cgi

📁 这个是分屏聊天室源码。需要分屏的聊天室请参考
💻 CGI
字号:

############################################
#聊天室公告页面
############################################
sub chat_gg{
@level=&readtxtfile($levelfile);
print <<eof;
<html><head><title>$roomtitle</title>
<style type="text/css">
<!--
.font {   font-size: 9pt ; line-height:13pt;}
A:link  	{color: rgb(0,0,255); font-style: normal; text-decoration: none; cursor: hand}
A:visited  	{color: rgb(0,0,255); font-style: normal; text-decoration: none}
A:active  	{color:  rgb(255,0,0); font-style: normal; text-decoration: none}
-->
</style>
</head>
<body BGCOLOR=$bg_color >
<p align="center"><font face="隶书" color=red size=6 >$roomtitle 使用帮助</font></p>
<br><br>
<center>
<table border="1" width="560"  bordercolorlight="#FEE7B6" bordercolordark="#A96C07">
  <tr><td bgcolor="#FDF0EA" ><p align="center"><font size = 4 color=blue>聊 天 守 则</font></td></tr>
  <tr><td width="560" bgcolor="#FFFFF2"><span style="font-family: 宋体; font-size: 9pt"><font
    color="#8080FF">&nbsp;</font><font color="#400080"> 1、请遵守《计算机信息网络国际联网安全保护管理办法》的一切规定。<br>
    &nbsp; 2、请尊重网上道德,不要用不文明的言语聊天及骂人。<br>
    &nbsp; 3、使用轻松而健康的话题,所以请不要涉及政治、宗教等敏感话题。<br>
    &nbsp; 4、承担一切因您的行为而直接或间接导致的民事或刑事法律责任。<br>
    &nbsp; 5、为了保持本聊天事的速度,请各位网友不要多次重复同一句话。<br>
    &nbsp; 6、禁止用户以多种身份同时在线聊天。<br>
    &nbsp; 7、请尊重网上用户的隐私权。严禁网上的欺诈、诱骗行为。<br>
    &nbsp; 8、网管有权把违反规定者清理出外。</font><br>
	<font color="#FF0000">为了共同维护本聊天室健康文明的环境,如发现违反规定者,请立即与管理员联系。 Email: <a href="mailto: $mailbox">$mailbox</a> 多谢多谢!</font>
   	</span>
	</td></tr>
</table></center>
<br><br><br>
<table width="560" border="0" bordercolorlight="#CCFFFF" bordercolordark="#000000" bordercolor="#33CCFF" align="center" bgcolor="#99CCFF" >
<tr><td colspan="8" bgcolor="#FDF0EA" height="14"><p align="center"><font size = 4 color="#0000FF">级别与经验值列表</font></td></tr>
<tr><td bgcolor="#EFEDEF" width="80" ><p align="center">级  别</td>
<td bgcolor="#EFEDEF" width="80" ><p align="center"><font color=red>经 验 值</font></td>
<td bgcolor="#EFEDEF" width="80" ><p align="center">级  别</td>
<td bgcolor="#EFEDEF" width="80" ><p align="center"><font color=red>经 验 值</font></td>
<td bgcolor="#EFEDEF" width="80" ><p align="center">级  别</td>
<td bgcolor="#EFEDEF" width="80"><p align="center"><font color=red>经 验 值</font></td>
<td bgcolor="#EFEDEF" width="80" ><p align="center">级  别</td>
<td bgcolor="#EFEDEF" width="80"><p align="center"><font color=red>经 验 值</font></td>
</tr>
eof
for ($i=0;$i<=$#level ;$i++) {
	if ($i > ($maxlevel - 1)) { last; }
	$k = 0;
	print "<tr>\n";
	($mark,$tpoint,$tlevel)=split (/\‖/,@level[$i]);
    if ($mark eq "level") { $k++; print "<td bgcolor=\"#EFEDEF\" width=\"80\" ><p align=\"center\">$tlevel</td><td bgcolor=\"#EFEDEF\" width=\"80\" ><p align=\"right\"><font color=red>$tpoint</font></td>\n"; }

	$i++;
	if (($i > ($maxlevel - 1))||($i > $#level)) { last; }
	($mark,$tpoint,$tlevel)=split (/\‖/,@level[$i]);
    if ($mark eq "level") { $k++; print "<td bgcolor=\"#EFEDEF\" width=\"80\" ><p align=\"center\">$tlevel</td><td bgcolor=\"#EFEDEF\" width=\"80\" ><p align=\"right\"><font color=red>$tpoint</font></td>\n"; }

	$i++;
	if (($i > ($maxlevel - 1))||($i > $#level)) { last; }
	($mark,$tpoint,$tlevel)=split (/\‖/,@level[$i]);
    if ($mark eq "level") { $k++; print "<td bgcolor=\"#EFEDEF\" width=\"80\" ><p align=\"center\">$tlevel</td><td bgcolor=\"#EFEDEF\" width=\"80\" ><p align=\"right\"><font color=red>$tpoint</font></td>\n"; }

	$i++;
	if (($i > ($maxlevel - 2))||($i > $#level)) { last; }
	($mark,$tpoint,$tlevel)=split (/\‖/,@level[$i]);
    if ($mark eq "level") { $k++; print "<td bgcolor=\"#EFEDEF\" width=\"80\" ><p align=\"center\">$tlevel</td><td bgcolor=\"#EFEDEF\" width=\"80\" ><p align=\"right\"><font color=red>$tpoint</font></td>\n"; }
	
	for ($j=$k;$j<4 ;$j++) {
		print "<td bgcolor=\"#EFEDEF\" width=\"80\" ><p align=\"center\"></td><td bgcolor=\"#EFEDEF\" width=\"80\" ><p align=\"center\"><font color=red></font></td>\n";
	}
	print "</tr>\n";
}

if (($k < 4)&&($k >0)) {
	for ($j=$k;$j<4 ;$j++) {
		print "<td bgcolor=\"#EFEDEF\" width=\"80\" ><p align=\"center\"></td><td bgcolor=\"#EFEDEF\" width=\"80\" ><p align=\"center\"><font color=red></font></td>\n";
	}
	print "</tr>\n";
}
print <<eof;
</table><br><br><br>
<table width="560" border="0" bordercolorlight="#CCFFFF" bordercolordark="#000000" bordercolor="#33CCFF" align="center" bgcolor="#99CCFF" >
<tr><td colspan="4" bgcolor="#FDF0EA" height="14"><p align="center"><font size = 4 color="#0000FF">功能与级别列表</font></td></tr>
<tr><td bgcolor="#EFEDEF" width="220" ><p align="center">功&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;能</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>级  别</p></font></td>
<td bgcolor="#EFEDEF" width="220" ><p align="center">功&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;能</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>级  别</font></p></td>
</tr>
<tr><td bgcolor="#EFEDEF" width="220" >&nbsp;&nbsp;看用户等级</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>$level_seelevel</font></td>
<td bgcolor="#EFEDEF" width="220" >&nbsp;&nbsp;看用户IP</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>$level_seeip</font></td>
</tr>
<tr>
<td bgcolor="#EFEDEF" width="220" >&nbsp;&nbsp;html语言</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>$level_html</font></td>
<td bgcolor="#EFEDEF" width="220" >&nbsp;&nbsp;踢人</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>$level_killer </font></td>
</tr>
<tr>
<td bgcolor="#EFEDEF" width="220" >&nbsp;&nbsp;设置精灵</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>$level_gen</font></td>
<td bgcolor="#EFEDEF" width="220" >&nbsp;&nbsp;清空信息</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>$level_cls </font></td>
</tr>
<tr><td bgcolor="#EFEDEF" width="220" >&nbsp;&nbsp;自动清除</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>$level_autocls</font></td>
<td bgcolor="#EFEDEF" width="220" >&nbsp;&nbsp;私聊</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>$level_private</font></td>
</tr>
<tr><td bgcolor="#EFEDEF" width="220" >&nbsp;&nbsp;颜色</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>$level_addwordcolor</font></td>
<td bgcolor="#EFEDEF" width="220" >&nbsp;&nbsp;表情</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>$level_addsays</font></td>
</tr>
<tr><td bgcolor="#EFEDEF" width="220" >&nbsp;&nbsp;符号</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>$level_addsign</font></td>
<td bgcolor="#EFEDEF" width="220" >&nbsp;&nbsp;趣语</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>$level_emote</font></td>
</tr>
<tr><td bgcolor="#EFEDEF" width="220" >&nbsp;&nbsp;动作指令</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>$level_active</font></td>
<td bgcolor="#EFEDEF" width="220" >&nbsp;&nbsp;分屏</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>$level_div</font></td>
</tr>
<tr><td bgcolor="#EFEDEF" width="220" >&nbsp;&nbsp;过滤</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>$level_filter</font></td>
<td bgcolor="#EFEDEF" width="220" >&nbsp;&nbsp;查找聊友</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>$level_find</font></td>
</tr>
<tr><td bgcolor="#EFEDEF" width="220" >&nbsp;&nbsp;显示自定义进入退出提示</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>$level_message</font></td>
<td bgcolor="#EFEDEF" width="220" >&nbsp;&nbsp;约会留言</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>$level_guest</font></td>
</tr>
<tr><td bgcolor="#EFEDEF" width="220" >&nbsp;&nbsp;小网管</td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red>$level_small</font></td>
<td bgcolor="#EFEDEF" width="220" ></td>
<td bgcolor="#EFEDEF" width="60" ><p align="center"><font color=red></font></td>
</tr>
</table>
<br><br><br>
<table width="560" border="0" bordercolorlight="#CCFFFF" bordercolordark="#000000" bordercolor="#33CCFF" align="center" >
<tr><td>
<font color=blue size=4>功能介绍</font><br><br>
<font color="#000000" face="宋体" size="2"><li>可以输入姓名直接进入聊天室,但只有最基本的聊天功能,建议用户注册。</li><br><br>
<li>新用户一旦注册,此网名在此聊天室内全权属你,注册时可填入有关资料,并可随时更新。</li><br><br>
<li>注册用户停留一分钟,经验值增加一点(聊完天后按"退出"离开本室,系统才会统计)</li><br><br>
<li>可以通过单击信息窗口或者名单窗口里的用户名,直接选取用户作为谈话对象。</li><br><br>
<li>可以定义自己进入与退出聊天室的提示,好玩吧!!! 那需要 $level_message 级才能实现,努力吧</li><br><br>
<li>可以使用过滤功能过滤掉某人的所有谈话</li><br><br>
<li>可以使用免扰功能只显示与自己有关的谈话</li><br><br>
<li>注册用户可以使用非常多的趣语与很多有趣的动作</li><br><br>
</font></td></tr></table>
eof

print "<br><br></body></html>\n";
}

⌨️ 快捷键说明

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