📄 chat-displayuser.pl
字号:
sub displayuser {
#显示对象
@online =&readtxtfile($onlinefile,2);
@online =sort @online;
print "<html><head><title>type</title>\n";
print "<meta http-equiv=refresh content='$reloadxx;$cgiurl?job=displayuser$userinfo'></meta>";
print "</head><body bgcolor=$typeback text=$typeword>\n";
local($temp1)="";
print "<center><form name=user><select multiple size=20 name='towho'>\n";
print "<option value=''>全部\n";
foreach (@online) {
($mark,$chkuserip,$chkusername,$chkuserlevel,$chkusersex,$chktimen,$chksecn,$markend,$last)=split(/↑/,$_);
if (($mark eq "online") && ($markend eq "end")) {
if ("$chkuserip↑$chkusername↑$chkuserlevel" ne $temp1) {
print "<option value='$chkusername'";
print " selected" if ($chkusername eq $towho);
print ">$chkusername\n" if ($chkusername ne $username);
print ">自己\n" if ($chkusername eq $username);
}
$temp1="$chkuserip↑$chkusername↑$chkuserlevel";
}
}
print "</select></form></center>\n";
print "</body></html>";
}
1;⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -