<div align='center' id='demo' style='overflow:hidden;height:130px;width:433px;'>
<%
    set RsPic=server.createobject("adodb.recordset")
    sql="select top 6 * from Info where Ispic=1 and Pw_Good=True ORDER BY id DESC"
    RsPic.open sql,conn,1,1
    if RsPic.eof or RsPic.bof then
    Call NoPic("暂无图文新闻")
    end if
%>
<table align='left' cellpadding='0' cellspace='0' border='0'>
<tr>
    <td  valign='top' id='demo1'>
        <table width='100%' cellpadding='0' cellspacing='0' border='0' align='center'>
        <tr valign='top'>
    <%
    do while not RsPic.eof
        %>
            <td align='center' ><%   Call zf11_NewsShowPic(RsPic("Pic"),RsPic(0),RsPic("Title"),110,90,18)%></td>
            
           
      <%
    RsPic.movenext
    loop
    RsPic.CLOSE
    SET RsPic=Nothing
    %>
        </tr>
        </table>
    </td>
    <td  valign='top'  id='demo2'>  </td>
</tr>
</table>
<script>
var speed=20
demo2.innerHTML=demo1.innerHTML //innerHTML:设置或获取位于对象起始和结束标签内的 HTML
function Marquee1(){
if(demo2.offsetWidth-demo.scrollLeft<=0)//scrollLeft:设置或获取位于对象左边界和窗口中目前可见内容的最左端之间的距离
//offsetWidth:获取对象相对于版面或由父坐标 offsetParent 属性指定的父坐标的宽度

demo.scrollLeft-=demo1.offsetWidth
else{
demo.scrollLeft++
}
}
var MyMar1=setInterval(Marquee1,speed)
demo.onmouseover=function() {clearInterval(MyMar1)}
demo.onmouseout=function() {MyMar1=setInterval(Marquee1,speed)}

</script>

</div>
主要是在人家的网站中能正常使用
我用来调试确执行一次循环后就停止？