📄 line.cgi
字号:
#返回线上名单
#########################################
sub return_online {
$linecolor =&get_var('linecolor' ,'\n|‖');
$onlineback = $linecolor if ($linecolor ne "");
print "<html><head><title>online</title>\n";
print "<META HTTP-EQUIV=REFRESH CONTENT=\"$reloadxx;URL=$cgiurl$chat?job=online$userinfo&linecolor=$linecolor\">\n";
print <<_dnchat;
<style><!--
BODY {bgcolor:$onlineback; color:$onlineword;font-family:宋体;font-size: 9pt ; line-height:12pt }
A:link {text-decoration: none; color: '#CC33FF'; font-family:宋体;font-size: 9pt ; line-height:12pt;}
A:visited {text-decoration: none; color: '#CC33FF'; font-family:宋体;font-size: 9pt ; line-height:12pt;}
A:active {text-decoration: none; color: '#ffffff';font-family:宋体;font-size: 9pt ; line-height:12pt;}
A:hover {text-decoration: underline; color: '#FFFF00';font-family:宋体;font-size: 9pt ; line-height:12pt;}
.text1 { color:ffffff; font-family: 宋体;font-size: 9pt; line-height: 150%}
a.name1 { color:ffffff; font-family:宋体;font-size: 9pt ; line-height:12pt; }
-->
</style>
<script language="JavaScript">
<!--
function rclick() { if (event.button==2) { alert("Hi,您好! http://deen.126.com"); } }
document.onmousedown=rclick;
//-->
</script>
_dnchat
print "</head>\n";
print "<body bgcolor=$onlineback text=$onlineword >\n";
print "<center><font size=2>\n";
print "<br><a href=\"$cgiurl$chat?$userinfo&job=online&linecolor=$linecolor\" target=\"online\"><font color=red>刷新名单</font></a><br><font size=-1>$userlevel级</font></font><br><br>\n";
@online = &getlinedata;
@online =sort @online;
$lineboy = 0;
$linegirl = 0;
$linenum = $#online + 1 ;
print "<table border=0><tr><td align=center><tr><td align=left><font size=2>共<font color=red>[$linenum]</font>人</font><br><hr>\n";
print "<a class=name1 href=\"javascript:parent.selectwho('大家');\" ><ACRONYM TITLE='选取 大家 为谈话对象'><font color=$usersexcolor{'Boy'}>大 家</font></ACRONYM></a><br>\n";
foreach (@online) {
&readlinedata($_);
if ($mark eq "online") {
$dn_level = "";
$dn_level = "<font size=-1>[$chkuserlevel]</font>" if (($userlevel>=$level_seelevel)&&($line_level == 1));
if ($chkusersex eq "Girl") { $linegirl++; }
else { $lineboy++; }
if ($chkstat eq "") { print "<a class=name1 href=\"javascript:parent.selectwho('$chkusername');\" ><ACRONYM TITLE='选取 $chkusername 为谈话对象'><font color=$usersexcolor{$chkusersex}>$chkusername</font></ACRONYM></a>$dn_level<br>\n"; }
else { print "<a class=name1 href=\"javascript:parent.selectwho('$chkusername');\" ><ACRONYM TITLE='选取 $chkusername 为谈话对象'><font color=$usersexcolor{$chkusersex}><strike>$chkusername</strike></font></ACRONYM></a>$dn_level<br>\n"; }
}
}
if ($linenum < $linecount ) {
print "<a class=name1 href=\"javascript:parent.selectwho('$bchatgenius');\" ><ACRONYM TITLE='选取 $bchatgenius 为谈话对象'><font color=$bchatcolor>$bchatgenius</font></ACRONYM></a><br>\n";
if ($bchatgenius ne $gchatgenius) {
print "<a class=name1 href=\"javascript:parent.selectwho('$gchatgenius');\" ><ACRONYM TITLE='选取 $gchatgenius 为谈话对象'><font color=$gchatcolor>$gchatgenius</font></ACRONYM></a><br>\n" ;
}
}
print "</td></tr></table></center>\n";
print "<br><br><br><br>\n";
print "<div align=center>\n";
print "<br>主页地址<br><a href=\"javascript:window.external.AddFavorite('http://$lookurl', '$lookmess')\" >$lookurl</a>\n";
print "<br><br>友情链接<br><a href=\"http://61.139.42.112/97star/deen/\" target=_blank>网缘聊天室</a><br><a href=\"http://61.139.42.112/\" target=_blank>新光聊天室</a></div></body></html>\n";
}
#########################
#刷新用户的广告窗口
sub return_adver {
$linecolor =&get_var('linecolor' ,'\n|‖');
$onlineback = $linecolor if ($linecolor ne "");
@adver=&readtxtfile($adverfile,1);
srand;
$ram=int(rand($#adver+1));
($mark,$chkadverfile,$markend,$last)=split(/‖/,$adver[$ram]);
@adverfile=&readtxtfile("./adver/$chkadverfile");
print <<_dnchat;
<HTML><HEAD><TITLE> 广告画面 </TITLE>
<script language="JavaScript">
<!--
function rclick() { if (event.button==2) { alert("Hi,您好! http://deen.126.com"); } }
document.onmousedown=rclick;
//-->
</script>
</HEAD><body bgcolor=$onlineback text=$onlineword>
_dnchat
print "@adverfile\n";
print "</BODY></HTML>\n";
}⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -