📄 alllist.asp
字号:
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
if not IsArray(Session("info")) then Response.Redirect "err1.asp?kind=01"
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
id=Trim(Request("id"))
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>在线名单</title>
<style>
<!--
a:active { font-size: 10pt; color:#0000FF }
a:link { font-size: 10pt; color:#0000FF }
a:visited { font-size: 10pt; color:#0000FF }
a { font-size: 10pt; color:#0000FF }
body { font-size: 10pt }
-->
</style>
<Script Language="JavaScript">
var v;
var fc=0;
var ufc=0;
var friendlist="<%=info(13)%>";
var unfriendlist="<%=info(14)%>";
function sele(nowname)
{parent.opener.call.towho.value=nowname;
top.window.close();}
</Script>
</head>
<body bgcolor="buttonface" topmargin="2" leftmargin="8">
<div align="center">在线聊友名单<%
if id="1" then
Response.Write"(好友)"
else
Response.Write"(所有)"
end if
%></div>
<%
roominfo=Application("roominfo")
for j=0 to ubound(roominfo)
namelist=Application("online" & roominfo(j,0))
%>
<hr>
<font color="#008000">【</font><%if info(6)=roominfo(j,1) then%><font color="0000FF"><%else%><font color="#FF0000"><%end if%><%=roominfo(j,1)%></font><font color="#008000">】
(<font color="#FF0000"><%=ubound(namelist)%></font>人在线)</font>
<span style="font-size: 9pt">(进入限制:<font color="#FFFF00"></font><font color="#800000"> <%=roominfo(j,2)%> </font>人,<font color="#800000"> <%=roominfo(j,4)%> </font>级)</span>
<br>
<Script Language="JavaScript">
v = "<%=Application("zzbird_name_" & roominfo(j,0))%>";
if(v!="")
{
v = v.substring(1,v.length-1);
lis = v.split(",,")
for(t=0;t<lis.length;t++)
{
if(friendlist.indexOf(","+lis[t]+",")!=-1)
{
document.write (" <a href=\"javascript:sele('" + lis[t] + "')\"><font color=\"red\">" + lis[t] + "</font></a>");
fc++;
}
else
{
if(unfriendlist.indexOf(","+lis[t]+",")!=-1)
{
document.write (" <a href=\"javascript:sele('" + lis[t] + "')\"><font color=\"#000000\">" + lis[t] + "</font></a>");
ufc++;
}
<%if id<>"1" then%>
else
{
document.write (" <a href=\"javascript:sele('" + lis[t] + "')\"><font color=\"blue\">" + lis[t] + "</font></a>");
}
<%end if%>
}
}
}
</Script>
<br>
<%next%>
<br>
<%
if id="1" then
Response.Write "共有"
else
Response.Write "其中搜索到"
end if
%><Script Language="JavaScript">
document.writeln("好友");
document.writeln("<font color=\"red\">" + fc + "</font>");
document.writeln("个(好友用红色显示)");
<%if id<>"1" then%>
document.writeln("，坏人");
document.writeln("<font color=\"red\">" + ufc + "</font>");
document.writeln("个(坏人用黑色显示)");
<%end if%>
document.write("。");
</Script> </font>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -