|
| |
 精品推荐 |
 |
|
| |
|
|
|
|
Perl实例:
|
日期：2008年3月31日 作者： 查看:[大字体
中字体 小字体]
|
@online = <ONLINE>;
#flock(ONLINE,8);
close(ONLINE);
@online = sort @online;
$online_total=0;
foreach $online_line (@online) {
($mark,$chkuserip,$chkusername,$chkuserlevel,$chkusersex,$chktime,$chksec,$chkkickout,$chkkickoutway,$markend,$last)=split(/‖/,$online_line);
$online_total++;
}
if ($return_online_subject eq "online") {
if ($adverfile ne "") {$temp="adver";}
else {$temp="online";}
print "<html><head><title>online</title>\n";
print "<META HTTP-EQUIV=REFRESH CONTENT="$reload_online;URL=$cgiurl?room=$room&job=$temp$userinfo">\n";
print<<STYLE;
<style type="text/css">
<!--
td { font-size: 9pt;font-family:"宋体";}
.boy { color: #0000FF}
.girl { color: #FF0000}
.mask { color: #000000}
a:link { text-decoration: none}
a:hover { background-color: #666666; color: #FFFFFF}
a:visited { text-decoration: none}
-->
</style>
<script language="JavaScript">
<!--
function selectwho(list){
parent.frames[2].document.forms[0].tObject.value=list;
parent.frames[2].document.forms[0].tWords.focus();
parent.frames[2].document.forms[0].Private.checked=true;
parent.overselectenable=false;
}
function selectwho2(list){
parent.frames[2].document.forms[0].tObject.value=list;
parent.frames[2].document.forms[0].tWords.focus();
}
-->
</script>
</head>
STYLE
print "<body bgcolor=$onlineback text=$onlineword>\n";
print "<basefont size=2>\n";
print " <table border="0" cellpadding="2" width="100%"><td width="29%" valign="top" align="center">\n";
#print "<tbody>\n";
print " <tr>\n";
print " <td width="100%" align="center" bgcolor="#FFFFFF" colspan="2">\n";
print " <table border="1" width="100%" bordercolor="#8985D8" cellspacing="0" cellpadding="2">\n";
print " <tr>\n";
print " <td bgcolor="#8985D8" bordercolor="#FFFFFF" align="center" colspan="2"><span style="font-family: 宋体; font-size: 9pt"><font color="#FFFFFF">线上名单</font></span></td>\n";
print " </tr>\n";
print " <tr>\n";
print " <td COLSTART="1" bordercolor="#FFFFFF"><div align="center"><center>\n";
上一篇:Cgi入门教程之：7 回应脚本
下一篇:使用脚本下载网页
|
| 相关文章： |
|
|
|
| 相关软件： |
|
| |
|
