📄 logline.cgi
字号:
################################################
#显示聊天室内的用户
################################################
sub disp_line {
&write_online("line");
@online=&getlinedata;
@online=sort @online;
print <<eof;
<html>
<head><title>$roomtitle在线人员</title>
<META HTTP-EQUIV=REFRESH CONTENT='180;URL=$cgiurl$login?job=disp_line'>
<style type="text/css"><!-- .p14 {font-size: 14px ; line-height:12pt; }--></style>
</head><body bgcolor=$bg_color topmargin="0" leftmargin="0"><center><br>
eof
print " <font face='隶书' color=red><big><big>$roomtitle</big></big></font><br><br><br>\n";
print "<center><table width=90% border=1>\n";
$lineboy = 0;
$linegirl = 0;
foreach (@online) {
&readlinedata($_);
if ($mark eq "online") {
if (($chkusername eq $superuser)&&($superhidden)) { next; }
$mycolor = $usersexcolor{"Boy"};
if ($chkusersex eq "Girl") { $mycolor = $usersexcolor{"Girl"}; $linegirl = $linegirl + 1; }
else { $lineboy = $lineboy + 1; }
print "<tr>\n" if ($i == 0);
$i++;
$pline = "<td bgcolor=MistyRose><font color=$mycolor><span class=p14>$chkusername</span></font></td>";
print "$pline\n";
if ($i == 5) { print "</tr>\n"; $i = 0;}
}
}
if ($i > 0) {
for ($k=$i;$k<5 ;$k++) { print "<td bgcolor=MistyRose> </td>\n"; }
print "</tr>\n";}
print "</table></center><br>\n";
if ($lineboy > 0 ) { print "<br><br><span class=p14>帅哥 " . $lineboy . " 人 </span>\n"; }
if ($linegirl > 0 ) { print " <span class=p14>美媚 " . $linegirl . " 人</span> \n"; }
print "</center></body></html>\n";
}
################################################
#显示聊天室内的用户,第二种格式
################################################
sub disp_line2 {
&write_online("line");
$onhtml = "";
$k=0;
@linetem=();
$linedir=$linehead;
chop $linedir;
opendir (MEMBERDIR, "$linedir");
@linelist = readdir(MEMBERDIR);
closedir (MEMBERDIR);
foreach $tline (@linelist) {
if (($tline ne "\.")&&($tline ne "\.\.")) {
if (($tline eq $superuser)&&($superhidden)) { next; }
$k++;
$onhtml .= "<tr><td>$tline</td></tr>";
}
}
print <<_dnchat;
<html><head><META HTTP-EQUIV=REFRESH CONTENT="120;URL=$cgiurl$login?job=online">
<STYLE>
TABLE { FONT-SIZE: 9pt; LINE-HEIGHT: 11pt}
TR { FONT-SIZE: 9pt}
TD { FONT-SIZE: 9pt}
</STYLE>
</head>
<body topmargin="0" leftmargin="0" >
<div align="center">
<table border=1 cellpadding="0" cellspacing="0">
<tr><td>在线 <font color=green>$k</font> 人</td></tr>
$onhtml
</table></div><br></body></html>
_dnchat
} ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -