<!-- #include file="Setup.asp" -->
<%
ForumID=int(Request("ForumID"))
if 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
content=""&content&"<a href=Profile.asp?UserName="&Rs("UserName")&">"&Rs("UserName")&"</a>　"
Rs.Movenext
loop
Rs.close

'----------------隐藏特殊贴----------------
if Instr(content,"[replyview]")>0 or Instr(content,"[ybbtopic=")>0 or Instr(content,"[ybbexp=")>0 or Instr(content,"[ybbfaction]")>0 then
content="<font color=red>此贴为特殊贴，已经设置为隐藏</font>"
end if
'----------------隐藏特殊贴----------------
%>
<SCRIPT>
var parentfollowTd=parent.document.getElementById("followTd<%=id%>")
parentfollowTd.innerHTML='<%=content%>';
</SCRIPT>
