【ASP无间隙滚动】

<div id=demo style="OVERFLOW: hidden; WIDTH: 770px; align: center">
    <table border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#ECE9D8">
    <tbody>
    <tr bgcolor="#FFFFFF">
    <td valign="top" id="marquePic1">
        <table width="770" height="130" border="0" cellpadding="0" cellspacing="0">
          <tr>
        <%set rs=server.createobject("adodb.recordset")
        sql="select top 8 * from SMT_cp where SMT_key=1 and SMT_key1=1 and SMT_key2=1 and SMT_key3=1 order by SMT_id desc"
        rs.open sql,conn,1,1
        n=0
        dowhilenot rs.eof
        n=n+1
        cpname=rs("SMT_cpname")%>
        <td valign=top>
            <table width="190" border="0" cellspacing="0" cellpadding="0" align="center">
            <tr>
            <td align="center"><a href=cp_view.asp?id=<%=rs("SMT_id")%> target="_blank"><img src="<%=rs("SMT_pic")%>" border="0" width=100 height=80 style="border:1px #000000 solid"></a></td>
            </tr>
            <tr>
            <td align="center" bgcolor=#efefef style="border-top:1px #cccccc solid"><strong><a href=cp_view.asp?id=<%=rs("SMT_id")%> target="_blank" class=black><%=LeftT(cpname,12)%></a></strong></td>
            </tr>
            </table>
        </td>
        <%if n mod9=0then response.write"</tr><tr bgcolor=#ffffff>"
        rs.movenext
        loop
        rs.close%>
        </tr>
        </table>
    </td>
    <td valign="top" id="marquePic2"></td>
    </tr>
    </tbody>
    </table>
</div>
<script type=text/javascript> 
var speed=30 
marquePic2.innerHTML=marquePic1.innerHTML 
function Marquee(){ 
if(demo.scrollLeft>=marquePic1.scrollWidth){ 
demo.scrollLeft=0 
}else{ 
demo.scrollLeft++ 
}} 
var MyMar=setInterval(Marquee,speed) 
demo.onmouseover=function() {clearInterval(MyMar)} 
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)} 
</script>  

 

 

 

实例

?

<div id=demo style="OVERFLOW: hidden; WIDTH: 420px; align: center">

    <table border="0" align="center" cellpadding="0" cellspacing="1">

    <tbody>

    <tr bgcolor="#FFFFFF">

    <td valign="top" id="marquePic1">

        <table width="770" border="0" cellpadding="0" cellspacing="0">

          <tr>

        <%set rs_Product=server.createobject("adodb.recordset")

    sqltext="select top 9 * from Product where Passed=True order by UpdateTime desc"

    rs_Product.open sqltext,conn,1,1

        n=0

        do while not rs_Product.EOF

        n=n+1

        %>

        <td valign=top >

            <table border="0" cellspacing="0" cellpadding="0" align="center">

            <tr>

            <td align="center" width="118" height="92" align="center" valign="middle"><a href=ProductShow.asp?ID=<%=rs_Product("id")%> target="_blank"><img src="<%=rs_Product("DefaultPicUrl")%>" border="0" width=118 height=92 style="border:1px #000000 solid"></a></td>

            </tr>

            <tr>

            <td align="center" bgcolor=#efefef style="border-top:1px #cccccc solid"><strong><a href=Product_Show.asp?ID=<%=rs_Product("id")%> target="_blank" class=black><%=rs_Product("Title")%></a></strong></td>

            </tr>

            </table>

        </td>

        <%if n mod 9=0 and n<>9 then response.write"</tr><tr>"

        rs_Product.movenext

        loop

        rs_Product.close%>

        </tr>

        </table>

    </td>

    <td valign="top" id="marquePic2"></td>

    </tr>

    </tbody>

    </table>

</div>

<script type=text/javascript>

var speed=30

marquePic2.innerHTML=marquePic1.innerHTML

function Marquee(){

if(demo.scrollLeft>=marquePic1.scrollWidth){

demo.scrollLeft=0

}else{

demo.scrollLeft++

}}

var MyMar=setInterval(Marquee,speed)

demo.onmouseover=function() {clearInterval(MyMar)}

demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}

</script>