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
%>
<table style="border:1px black solid;"><tr><td> <!-- Marquee Body Head --> 這個是廣告~~~~~~~~~ 這個也是廣告~~~~~~~~~~~~~~~~ 這個怎麼還是廣告?????? Windy2000 也給自己做個廣告~~~~~~~~~~ <!-- Marquee Body Bottom --> </td></tr></table>
[Ctrl+A 全選 注:如需引入外部Js需重新整理才能執行]
<table style="border:1px black solid;"><tr><td> <table style="border:0px;padding:0px;"><tr><td> <!-- Marquee Body Head --> 經典論壇 163.com 21cn.com Happy new year <!-- Marquee Body Bottom --> </td></tr></table> </td></tr></table> Direction1: <input type="button" value="↑" onclick="obj_marquee.direction='up'"> <input type="button" value="↓" onclick="obj_marquee.direction='down'"> <input type="button" value="←" onclick="obj_marquee.direction='left'"> <input type="button" value="→" onclick="obj_marquee.direction='right'"> <input type="button" value=" X " onclick="obj_marquee.direction=''"> Direction2: <input type="button" value="↑" onclick="obj_marquee.direction2='up'"> <input type="button" value="↓" onclick="obj_marquee.direction2='down'"> <input type="button" value="←" onclick="obj_marquee.direction2='left'"> <input type="button" value="→" onclick="obj_marquee.direction2='right'"> <input type="button" value=" X " onclick="obj_marquee.direction2=''">
[Ctrl+A 全選 注:如需引入外部Js需重新整理才能執行]