在线求助，一个显示滚动文字效果。。。

[复制链接]

ＱＱ糖

电梯直达

1^#

发表于 2010-1-14 03:59:26 | 只看该作者回帖奖励

|正序浏览 |阅读模式

<%
Dim rsCo, sqlCo
set rsCo = Server.CreateObject("ADODB.RecordSet")
sqlCo = "select * from project where CateID='" & UserLocationID & "' order by ID Asc"
rsCo.Open sqlCo, conn,1,1
%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30">
<%
if rsCo.bof and rsCo.eof then
Response.Write("")
else
do while not rsCo.eof
%>
<a href="co.asp?id=<%=rsco("id")%> " target="_blank"><font color="#996600"><MARQUEE onmouseover=this.stop() onmouseout=this.start() scrollamount="3" scrolldelay="100">
<%=rsCo("title")%></font></a>
<%
rsCo.MoveNext
loop
%>
<%
end if
rsCo.Close
set rsCo=nothing
%></MARQUEE></td></tr>
</table>

<table width="590" height="163" border="0" align="center" cellpadding="3" cellspacing="0">
文字显示为什么点击它时不能同时停止？

http://w2.lypd.net/yuantai/ggjx.asp效果在这个页面里，我想让中间那段滚动当点击时文字能够一起停止

收藏0

使用道具举报

红尘醉

7^#

发表于 2010-1-14 03:59:49 | 只看该作者

谢啦！问题解决了！

回复支持反对

使用道具举报

天之骄灵

6^#

发表于 2010-1-14 03:59:45 | 只看该作者

<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30">
<MARQUEE onmouseover=this.stop() onmouseout=this.start() scrollamount="3" scrolldelay="100">
<%
if rsCo.bof and rsCo.eof then
Response.Write("")
else
do while not rsCo.eof
%>
<a href="co.asp?id=<%=rsco("id")%> " target="_blank"><font color="#996600">
<%=rsCo("title")%></font></a>
<%
rsCo.MoveNext
loop
%>
<%
end if
rsCo.Close
set rsCo=nothing
%>
</MARQUEE>
</td></tr>
</table>