📄 f5.asp

📁 做好的小系统工程。急需求助站长...........希望能快点开通

💻 ASP

字号:

<%
online=Application("onlinelist")
online=split(online," ")
Response.Write "<script language=javascript>parent.f6.document.open();"
Response.Write "var winbgcolor = parent.cbg();var winbgimage = parent.cbi();"
Response.Write "parent.f6.document.writeln(""<meta http-equiv=refresh content=10;url=f5.asp>"");"
Response.Write "parent.f6.document.writeln(""<body bgcolor="" + winbgcolor + "" background="" + winbgimage + "" bgproperties=fixed >"");"
Response.Write "parent.f6.document.writeln(""<style type='text/css'>A:visited{TEXT-DECORATION: none;Color:#000000}A:active{TEXT-DECORATION: none;Color:#000000}A:hover{TEXT-DECORATION: underline;Color:#000000}A:link{text-decoration: none;Color:#000000}BODY{FONT-FAMILY: '宋体'; FONT-SIZE: 12px;}</style>"");"
Response.Write "msg='<a href=javascript:parent.seluser(\'大家\'); target=f2>大家</a><br><br>';parent.f6.document.writeln('当前在线( "&ubound(online)&" )人<br><br>');"
for i=lbound(online) to ubound(online)-1
on error resume next
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("dachat.asp")
conn.open connstr
set rs=conn.execute("select admin from [user] where name='"&online(i)&"'")
if rs(0)=True then
Response.Write "msg=msg+'<a href=javascript:parent.seluser(\'"&online(i)&"\'); target=f2><font color=#ff0000>"&online(i)&"</font></a><br><br>';"
else
Response.Write "msg=msg+'<a href=javascript:parent.seluser(\'"&online(i)&"\'); target=f2>"&online(i)&"</a><br><br>';"
end if
next
Response.Write "parent.f6.document.writeln(msg);"
Response.Write "</script>"
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -