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

📄 chat.cgi

📁 Yuzi聊天室2000 1.01 不光自己可以用
💻 CGI
📖 第 1 页 / 共 3 页
字号:
🔍
123 
if ($tmp_hour >= 24) { $tmp_hour= $tmp_hour-24; $tmp_yday = $tmp_yday+1; }
if ($tmp_min == 0)   { $tmp_min  = "00" }
if ($tmp_hour == 0)  { $tmp_hour = "00" }
if ($tmp_min <= 9)   { if (substr($tmp_min,0,1)  ne "0") {$tmp_min  = "0".$tmp_min; }}
if ($tmp_hour <= 9)  { if (substr($tmp_hour,0,1) ne "0") {$tmp_hour = "0".$tmp_hour; }}
$tmp_time = $tmp_yday.$tmp_hour.$tmp_min;
return $tmp_time;
}

sub show {
&chkkick;
open(USER,"$manyfile")|| die $!;
@lines=<USER>;
close(USER);
$tmp=$username."\t".$this_call_time."\t".$host;
open (USER,">$manyfile")|| die $!;
foreach $line (@lines) {
$line =~ s/\n//g;
if ($line ne "") {
($suser,$lasttime,$userip)=split(/\t/,$line);
if ($suser eq $username) {
print USER $tmp;
print USER "\n";
}else{
if(ck_time($lasttime+5) > $this_call_time){
print USER $line;
print USER "\n";
}
}
}
}
close(USER);
open(CHAT,"$chatfile")|| die $!;
@lines=<CHAT>;
close(CHAT);
&send_html;
foreach $_ (@lines){
$_=~ s/\n//g;
if(/<!--meta-->/){
print "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"10; url=$cgiurl?a_method=show&username=$username&id=$id\">\n"
}elsif(/<!--dz-->/){
($yesdz,$dztime)=split(/\t/,$_);
open(dz,"$srltfile")|| die $!;
@dz=<dz>;
close(dz);
foreach $dzs (@dz){
$dzs=~ s/\n//g;
($sendname,$sendto,$sendtime,$sendmsg)=split(/\t/,$dzs);
if($sendtime eq $dztime){
if(($username eq $sendname)||($username eq $sendto)){
print "$sendmsg<br>";
}
}
}
}else{
print "$_\n";
}
}
print "</body></html>\n";
exit;
}
sub sendtalk {
&chkkick;
open(PSD,"$psdfile")|| die $!;
@lines=<PSD>;
close(PSD);
foreach $line (@lines) {
$line=~ s/\n//g;
($rdname,$rdpassword)=split(/\t/,$line);
if(($username eq $rdname)&&($userpsd eq $rdpassword)){
$regdb=1;
}
}
if($regdb ne "1"){
&send_html;
print <<EOF;
<html>
<head>
<script>
alert("名字已被使用！请重新输入！");
top.location.href=$cgiurl?id=$id;
</script></head>
<body>
</body>
</html>
EOF
exit;
}
$found=0;
open(USER,"$manyfile")|| die $!;
@lines=<USER>;
close(USER);
foreach $line (@lines) {
$line =~ s/\n//g;
if ($line ne "") {
($suser,$lasttime,$userip)=split(/\t/,$line);
if ($suser eq $username) {
$found=1;
}
}
}
if($found ne "1"){
&send_html;
print <<EOF;
<html>
<head>
<script language="JavaScript">
parent.dz3.location.href="$cgiurl?a_method=reg&id=$id";
</script>
<META HTTP-EQUIV="Refresh" CONTENT="1; url=$cgiurl?a_method=show&username=$username&room=$room&id=$id">
</head>
<body>
<br>
</body>
</html>
EOF
&show;
exit;
}
$messages=lc($message);
$sym = index($messages,'window.open');
$message=~ s/<([^>]|\n)*>//g;
$message=~ s/>/&gt;/g;
$message=~ s/</&lt;/g;
$hasm=1;
open(CHAT,"$chatfile")|| die $!;
@lines=<CHAT>;
close(CHAT);
foreach $_ (@lines){
if(/<!--dz-->/){
$hasm++;
}
}
if($dz eq "1"){
if($dx ne ""){
$newmsg=$username."\t".$dx."\t".$thistime."\t<font color=$color>【私人对话】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>告诉".$dx.":".$message."<font size=1>".$thistime."</font></font>";}else{$newmsg=$username."\t".$dx."\t".$thistime."\t<font color=$color>【闲聊】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>".$dx.":".$message."<font size=1>".$thistime."</font></font>";}
open(dz,"$srltfile");
@dzs=<dz>;
close(dz);
open(dz,">$srltfile");
print dz "$newmsg\n";
for($i=0;$i<$hasm;$i++){
$_=@dzs[$i];
print dz $_;
}
close(dz);
open(CHAT,">$chatfile")|| die $!;
foreach $_ (@lines){
if(/<!--yuzi-->/){
print CHAT "<!--yuzi-->\n";
print CHAT "<!--dz-->\t$thistime\n";
}else{
print CHAT $_;
}
}
close(CHAT);
&show;
exit;
}
if($dx ne ""){
$newmsg="<font color=$color>【闲聊】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>$usersex对着".$dx."$bq:".$message."<font size=1>".$thistime."</font></font>";}else{$newmsg="<font color=$color>【闲聊】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>$usersex".$dx."$bq:".$message."<font size=1>".$thistime."</font></font>";}
if($dz > 1){
if($dx eq ""){$dx="大家";}
if($dz eq "2"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>很慷慨地递给$dx一个大红包，$dx一打开，里面孤零零一个钢蹦。</font>";}
if($dz eq "3"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>春风满面地对$dx说：“新春快乐，给您拜年啦！”</font>";}
if($dz eq "4"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>吃惊地看着$dx，嘴巴张大得足以塞进一个鸡腿汉堡。</font>";}
if($dz eq "5"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>完全同意$dx的看法。</font>";}
if($dz eq "6"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>对$dx鼓掌赞许！</font>";}
if($dz eq "7"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>和在场的人一起向$dx致以衷心的祝福，祝<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>生日快乐，大家一起唱：祝你生日快乐，祝你生日快乐．．．</font>";}
if($dz eq "8"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>对着$dx惊呼：头来了 !开溜）-（-）-（-）</font>";}
if($dz eq "9"){$newmsg="<font color=$color>【动作】其时明月在天，清风吹叶，树巅乌鸦呀啊而鸣，<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>再也忍耐不住，望着$dx的背影，泪珠夺眶而出。</font>";}
if($dz eq "10"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>朝着$dx一抱拳，说道：哈哈哈，这个，今天，... 这个天气真好！</font>";}
if($dz eq "11"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>安慰$dx道：别怕，面包会有的，什么都会有的！ </font>";}
if($dz eq "12"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>问$dx:你说什麽我不懂耶... </font>";}
if($dz eq "13"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>被$dx气得昏了过去。</font>";}
if($dz eq "14"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>终于原谅了$dx，$dx激动地要请大家的客。算了吧，就那点钱．．．</font>";}
if($dz eq "15"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>感叹道：$dx真是我的知音啊！</font>";}
if($dz eq "16"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>凄婉地说道：“世上没有不散的宴席，我先走一步了，大家保重。”</font>";}
if($dz eq "17"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>愉快地跟$dx打招呼：吃了吗？</font>";}
if($dz eq "18"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>对著$dx猛摇头：孺子不可教也！</font>";}
if($dz eq "19"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>的眼中充满泪水，无辜的望著$dx。</font>";}
if($dz eq "20"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>高兴地拉起$dx的小手跳起老高，在空中停了好一会才掉下来。</font>";}
if($dz eq "21"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>一脚把$dx踢出门外：“你真不受欢迎！”</font>";}
if($dz eq "22"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>轻轻地亲了$dx一下，好深情呦．．．．．．</font>";}
if($dz eq "23"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>挥动双手大叫道「哇... $dx,慢得跟蜗牛似的.... 快啊....HURRY UP...」</font>";}
if($dz eq "24"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>指著$dx的鼻子讥笑。</font>";}
if($dz eq "25"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>翻箱倒柜拿出脂粉、眉笔、口红，准备化妆。</font>";}
if($dz eq "26"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>突然觉得一阵恶心，对$dx喊道：“拜托拜托，我都起鸡皮疙瘩了。”</font>";}
if($dz eq "27"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>看著$dx，很无奈地耸了耸肩。</font>";}
if($dz eq "28"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>刮着$dx的鼻子说：不羞，不羞．．．．</font>";}
if($dz eq "29"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>对$dx含情脉脉地唱起歌来! 「我能想到最浪漫的事，就是和你一起慢慢变老....」</font>";}
if($dz eq "30"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>对$dx愉快的笑了笑。</font>";}
if($dz eq "31"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>对$dx说:“我现在有事，等会儿再来！”</font>";}
if($dz eq "32"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>用很奇怪的眼神瞄$dx。</font>";}
if($dz eq "33"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>端出一杯热茶，笑嘻嘻地对$dx说：“来，渴了吧，喝杯热茶暖暖再说”。</font>";}
if($dz eq "34"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>由衷地向$dx道谢。</font>";}
if($dz eq "35"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>开始考虑要杀了$dx。</font>";}
if($dz eq "36"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>向$dx摇摇食指，「小朋友，这样不可以喔！」</font>";}
if($dz eq "37"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>摇著$dx试著把$dx叫醒。大声在$dx耳边大叫：猪！起来了！ </font>";}
if($dz eq "38"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>对著$dx挥了挥手。</font>";}
if($dz eq "39"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>左手拼命挥动着小旗，右手拿着扩音器，语音哽咽地对$dx喊到：欢迎，欢迎，热烈欢迎！</font>";}
if($dz eq "40"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>突然从身后拿出一朵玫瑰献给<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>的心上人$dx。</font>";}
if($dz eq "41"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>从天上召来一道闪电把$dx化为一堆灰烬。</font>";}
if($dz eq "42"){$newmsg="<font color=$color>【动作】<b><A href=javascript:selectwho('$username');><font color=$color>$username</font></A></b>轻轻地拍着$dx,唱道：“睡吧，睡吧...”</font>";}
}
open(CHAT,">$chatfile")|| die $!;
$hasm=$hasm+30;
for ($i=0;$i<=$hasm;$i++) {
$_ = $lines[$i];
if(/<!--yuzi-->/){
print CHAT "<!--yuzi-->\n";
print CHAT $newmsg."<br>\n";
}else{
print CHAT $_;
}
}
close(CHAT);
&show;
}

sub deleteuser{
open(ONLINE,"$manyfile")|| die $!;
@users=<ONLINE>;
close(ONLINE);
open(ONLINE,">$manyfile")|| die $!;
foreach $users (@users) {
$users =~ s/\n//g;
if ($users ne "") {
($bedeluser,$bedeltime,$bedelip)=split(/\t/,$users);
if($bedeluser ne $username){
print ONLINE "$users";
print ONLINE "\n";
}
}
}
close(ONLINE);
}

sub getout{
open(CHAT,"$chatfile")|| die $!;
@lines=<CHAT>;
close(CHAT);
$newmsg="【公告】<b>$username</b>依依不舍地离开了聊天室！<font size=1>".$thistime."</font>";
open(CHAT,">$chatfile")|| die $!;
123

⌨️ 快捷键说明

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