!-- #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 %>