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
do while not 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 mod 8=0 and n<>8 then 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.οnmοuseοver=function() {clearInterval(MyMar)} 
demo.οnmοuseοut=function() {MyMar=setInterval(Marquee,speed)} 
</script>