loading.asp

来自「感谢您使用BBSXP」· ASP 代码 · 共 39 行

<!-- #include file="Setup.asp" -->
<%
id=int(Request("id"))
ForumID=int(Request("ForumID"))

if Request("ForumID")="0" then
sql="select * from [BBSXP_UsersOnline] where UserName<>'' and eremite<>1"
else
sql="select * from [BBSXP_UsersOnline] where ForumID="&ForumID&" and UserName<>'' and eremite<>1"
end if

Set Rs=Conn.Execute(sql)

do while not Rs.eof

if NO_count < 5 then
NO_count=NO_count+1
else
NO_count=1
end if


allline=""&allline&"<td width=16% style=word-break:break-all><img src=images/membercode/"&Rs("Userface")&".gif> <a href=Profile.asp?UserName="&Rs("UserName")&">"&Rs("UserName")&"</a></td>"

if NO_count = 5 then allline=""&allline&"</tr><tr>"

Rs.Movenext
loop
Rs.close

%>
<SCRIPT>
parent.followImg0.loaded="yes";
parent.followTd0.innerHTML="<TABLE cellSpacing=3 cellPadding=0 width=100% border=0><TR><%=allline%></TR></TABLE>";
</SCRIPT>
<%

responseend
%>