?? userlist.asp
字號:
<!--#include file="cfg.asp"-->
<!--#include file="usercheck.asp"-->
<%Response.Buffer=true
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = 0
set ds=server.createobject("adodb.recordset")
ds.open "select user_info.user_name,user_info.user_sex,user_info.user_ph,user_info.user_level,user_info.user_image,active.talk from user_info,active where active.name=user_info.user_name and active.roomid='"&session("room_id")&"' and active.talk=0",conn,1,1
set rs=server.createobject("adodb.recordset")
rs.open "select user_info.user_name,user_info.user_sex,user_info.user_ph,user_info.user_level,user_info.user_image,active.talk from user_info,active where active.name=user_info.user_name and active.roomid='"&session("room_id")&"' and active.talk=1",conn,1,1
%>
<script language="javascript">
var myonline=parent.online.document;
myonline.close();
myonline.writeln("<head><LINK href=style.css type=text/css rel=stylesheet></head>");
myonline.writeln("<body bgproperties=fixed background=");
myonline.write(parent.sd.document.body.background);
myonline.writeln(".jpg text=#000000 topmargin=0 leftmargin=0 oncontextmenu=self.event.returnValue=false>");
myonline.writeln("<center><table border=0 cellspacing=0 cellpadding=0>");
myonline.writeln("<tr><td valign=top><table width=84 border=0 cellspacing=0 cellpadding=0 align=center height=75><tr><td height=31> </td></tr>");
myonline.writeln("<tr><td height=20><div align=center><font color=#ffffff>在線(<%=ds.recordcount+rs.recordcount%>)名單</font></div></td></tr>");
myonline.writeln("<tr><td height=20><img src=images/35.gif align=absmiddle><font color=#ffffff><a href=javascript:// onclick=parent.sd.towho('大家');>大家</a></font></td></tr>");
<%do while not rs.eof
user_name=trim(rs("user_name"))
if user_name=username then user_name="<font color=#ff0000>"&user_name&"</font>"%>
myonline.writeln("<tr><td height=20><img src=<%="images/"&trim(rs("user_image"))%> align=absmiddle><a href=javascript:// title=<%=rs("user_level")%> onclick=parent.sd.towho('<%=trim(rs("user_name"))%>');><%=user_name%></a><img src=<%="images/spk"&trim(rs("talk")&".gif")%> align=absmiddle></td></tr>");
<%rs.movenext
loop%>
<%do while not ds.eof
user_name=trim(ds("user_name"))
if user_name=session("user_name") then user_name="<font color=#ff0000>"&user_name&"</font>"%>
myonline.writeln("<tr><td height=20><img src=<%="images/"&trim(ds("user_image"))%> align=absmiddle><a href=javascript:// title=<%=ds("user_level")%> onclick=parent.sd.towho('<%=trim(ds("user_name"))%>');><%=user_name%></a><img src=<%="images/spk"&trim(ds("talk")&".gif")%> align=absmiddle></td></tr>");
<%ds.movenext
loop%>
myonline.writeln("</table></td></tr></table></div></body>");
function userfresh(){
setTimeout("document.location.reload();",3000);
}
userfresh();
</script>
<%set ds=nothing
set rs=nothing
call db_close()
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -