如何实现滚动窗口问题?

tenderknight 2002-12-09 10:25:28
请问各位如何实现滚动窗口象这个网站右边的公告栏一样?
http://www.hljedu.com/
...全文
70 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
tenderknight 2002-12-11
  • 打赏
  • 举报
回复
好的,我去试试:)那怎么确定滚动方向呢?
annkie 2002-12-09
  • 打赏
  • 举报
回复
我上面是用数据库实现的。你可以不要数据库部分(实现动态更新),直接在marquee里面放一个表,把你的内容放在里面。
annkie 2002-12-09
  • 打赏
  • 举报
回复
use marquee

<marquee direction=up scrollamount=1 scrolldelay=20 scrollleft="0" border="0" scrolltop="0" onmouseover='this.stop()' onmouseout='this.start()'>
<%
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open "Select * from news where Class='Èȵ㹫¸æ' order by AnnounceID desc","DSN=dsnGuestbook;UID=sa;",3,1

%>
<table class=tableBorder1 width=100% cellspacing=0 border=0 bordercolordark=black bordercolorlight=white>
<%
i=0
Do While Not rs.Eof And i<10

i = i + 1

Response.Write "<tr>"

%>
<td class=TableBody1 width=100%><img src="image/bullet.gif" height="10" width=20><a href=# onClick="window.open('shownoticefile.asp?id=<%=rs("AnnounceID")%>','¾ÍÒµÖ¸µ¼ÐÅÏ¢','scrollbars=yes,width=500,height=450')"><span style="LINE-HEIGHT: 15px"><%=rs("Subject")%></span></a>
<%
If DateDiff("d",rs("Date"),Now)<2 or rs("AnnounceID")=682 or rs("AnnounceID")=683 or rs("AnnounceID")=684 then
'´Ë´¦ÓÚ2002¡£7¡£10 ÐÞ¸Ä
%>
<img src="image/new11.gif" width="23" height="13">
<%
end if
response.write rs("Date")
rs.MoveNext

Loop
%>
</table>
<%
rs.Close
set rs=nothing
%>
</marquee>

87,996

社区成员

发帖
与我相关
我的任务
社区描述
Web 开发 JavaScript
社区管理员
  • JavaScript
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧