新微赢技术网

标题: 在线求助，一个显示滚动文字效果。。。 [打印本页]

作者: ＱＱ糖 时间: 2010-1-14 03:59
标题: 在线求助，一个显示滚动文字效果。。。
<%
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效果在这个页面里，我想让中间那段滚动当点击时文字能够一起停止

作者: 可爱 时间: 2010-1-14 03:59
我想是因为你这样会有好几个MARQUEE，而你的鼠标又不能同时在那些MARQUEE上面

作者: 五龙 时间: 2010-1-14 03:59
可我这个是循环显示的啊？而且也包含了为什么只会一个使用了这个效果呢？

作者: 魔舞飞扬 时间: 2010-1-14 03:59
因为鼠标不能同时在那些MARQUEE上面

作者: 想念~！ 时间: 2010-1-14 03:59
MARQUEE

不能放在循环里

作者: 天之骄灵 时间: 2010-1-14 03:59
<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>

作者: 红尘醉 时间: 2010-1-14 03:59
谢啦！问题解决了！

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)