<!-- #include file="conn.asp" --> <!-- #include file="online_users.asp" --> var marqueeContent=new Array(); marqueeContent[0]='<A href="#" onclick="reinitMarquee()">刷新列表</A>'; <% Dim rs,sql CALL online_users sql = "SELECT O.userName,U.realName FROM TBL_ONLINE O left join TBL_USER U on O.userName=U.userName ORDER BY O.loginTime DESC" Set rs = conn.execute(sql) If NOT (rs.eof AND rs.bof) Then count=1 do while not rs.eof %> marqueeContent[<%=count%>]='<A href="postMsg_write.asp?postTo=<%=rs("userName")%>"><%=rs("realName")%></a>'; <% rs.movenext count=count+1 loop End If rs.close set rs=nothing conn.close set conn=nothing %>