会移动的文字(Marquee)(2)

[Ctrl+A 全选 注:引入外部Js需再刷新一下页面才能执行]

[Ctrl+A 全选 注:引入外部Js需再刷新一下页面才能执行]

[Ctrl+A 全选 注:引入外部Js需再刷新一下页面才能执行]

复制代码 代码如下:

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

[Ctrl+A 全选 注:引入外部Js需再刷新一下页面才能执行]

[Ctrl+A 全选 注:引入外部Js需再刷新一下页面才能执行]