var marqueeContent=new Array();
marqueeContent[0]='
刷新列表';
<% 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%>]='
"><%=rs("realName")%>';
<% rs.movenext
count=count+1
loop
End If
rs.close
set rs=nothing
conn.close
set conn=nothing
%>