會移動的文字(Marquee)

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