slf3.asp

来自「此程序为网上下载」· ASP 代码 · 共 20 行

<%@ LANGUAGE=VBScript.Encode codepage ="936" %>
<%Response.Expires=0
if Session("xf_sl_ok")<>"1" then
 Response.Write "你现在不能查看私聊！"
 Response.End
end if
amn=Application("wsaxhxf_c_automanname")
online=Application("wsaxhxf_c_onlinelist")%>
<Script Language="JavaScript">
parent.f3.document.open();
parent.md1();
parent.f3.document.writeln("<font color=red><b><%=Application("wsaxhxf_c_chatrs")%></b></font><font color=blue style=\"font-size:10.5pt\"><span class=p9>(<%=Application("wsaxhxf_c_active")%>)</span>人在线</font><br></div>");
parent.md2();
parent.ma("<%=amn%>","");
<%for i=1 to UBound(online) step 8
Response.Write "parent.ma(" & chr(34) & online(i+1) & chr(34) & "," & chr(34) & online(i+3) & chr(34) & ");"
next%>
parent.md3();
function re(){this.location.reload();}var tid=null;tid=setTimeout('re()',30000);
</Script>