跑马灯不间断循环(网站首页)
<TABLE width="96%" border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD >
<div id=demo style='overflow:hidden;height:135px;width:550px;'>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD id=demo1>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<%...
set rs_news=server.createobject("adodb.recordset")
sqltext4="select * from Product where Passed=True And Elite=True order by articleid desc"
rs_news.open sqltext4,conn,1,1
if rs_news.eof then
response.Write("没有新产品上架!")
end if
%>
<%...i=0
do while not rs_news.eof%>
<TD width=139><TABLE cellSpacing=0 cellPadding=0 width=150
align=center border=0>
<TBODY>
<TR>
<TD><div align="center"><a href=ArticleShow.asp?articleid=<% =rs_news("articleid") %> title="<%=rs_news("Title")%>"><img border=0 src="<%=rs_news("DefaultPicUrl")%>" width=72 height=96></a></div></TD>
</TR>
<TR>
<TD height=23><DIV align=center><a href="ArticleShow.asp?ArticleID=<%=rs_news("articleid")%>" title="<%=rs_news("Title")%>"><%=cutstr(rs_news("Title"),8)%></a> </DIV></TD>
</TR>
</TBODY>
</TABLE></TD>
<%... rs_news.movenext
i=i+1
if i=8 then exit do
loop
rs_news.close %>
</TR>
</TBODY>
</TABLE>
</TD>
<TD id=demo2></TD>
</TR>
</TBODY>
</TABLE>
</div>
<script>...
var speed=15
demo2.innerHTML=demo1.innerHTML
function Marquee()...{
if(demo2.offsetWidth-demo.scrollLeft<=0)
demo.scrollLeft-=demo1.offsetWidth
else...{
demo.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed)
demo.onmouseover=function() ...{clearInterval(MyMar)}
demo.onmouseout=function() ...{MyMar=setInterval(Marquee,speed)}
</script>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE width="96%" border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD >
<div id=demo style='overflow:hidden;height:135px;width:550px;'>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD id=demo1>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<%...
set rs_news=server.createobject("adodb.recordset")
sqltext4="select * from Product where Passed=True And Elite=True order by articleid desc"
rs_news.open sqltext4,conn,1,1
if rs_news.eof then
response.Write("没有新产品上架!")
end if
%>
<%...i=0
do while not rs_news.eof%>
<TD width=139><TABLE cellSpacing=0 cellPadding=0 width=150
align=center border=0>
<TBODY>
<TR>
<TD><div align="center"><a href=ArticleShow.asp?articleid=<% =rs_news("articleid") %> title="<%=rs_news("Title")%>"><img border=0 src="<%=rs_news("DefaultPicUrl")%>" width=72 height=96></a></div></TD>
</TR>
<TR>
<TD height=23><DIV align=center><a href="ArticleShow.asp?ArticleID=<%=rs_news("articleid")%>" title="<%=rs_news("Title")%>"><%=cutstr(rs_news("Title"),8)%></a> </DIV></TD>
</TR>
</TBODY>
</TABLE></TD>
<%... rs_news.movenext
i=i+1
if i=8 then exit do
loop
rs_news.close %>
</TR>
</TBODY>
</TABLE>
</TD>
<TD id=demo2></TD>
</TR>
</TBODY>
</TABLE>
</div>
<script>...
var speed=15
demo2.innerHTML=demo1.innerHTML
function Marquee()...{
if(demo2.offsetWidth-demo.scrollLeft<=0)
demo.scrollLeft-=demo1.offsetWidth
else...{
demo.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed)
demo.onmouseover=function() ...{clearInterval(MyMar)}
demo.onmouseout=function() ...{MyMar=setInterval(Marquee,speed)}
</script>
</TD>
</TR>
</TBODY>
</TABLE>