注册 登录
编程论坛 ASP技术论坛

无间隙图片向上滚动代码问题

fjhtf 发布于 2011-04-27 20:29, 518 次点击
我的代码向上滚动两圈就停了,刷新又可以,每次都那样,是哪里出问题?帮我改下,谢谢!
程序代码:
      <div id=sdemo style="OVERFLOW: hidden; WIDTH: 230px; HEIGHT: 530px">
         <div id=sdemo1>
          <table height="137" border=0 align=left cellpadding=0 cellspacing="0" cellspace=0>
                    <% Do While Not rs.EOF%>
            <tr>
              <td valign="middle"><table width="95%" border="0" cellspacing="5" cellpadding="0">
                  <tr>
                    <td align="center"><table width="230" border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td height="94" align="center" background="images/pro_bk.gif"><a href="productshow.asp?id=<%=trim(rs("id"))%>&amp;mnid=<%=strCurrMenu%>&amp;classname=<%=trim(rs("c_name"))%>&amp;uppage=<%=ThisPage%>" target="_blank"><img src="UpFile/<%=trim(rs("p_smallpic"))%>" width="200" border="0" /></a></td>
                        </tr>
                        <tr>
                          <td height="25" align="center"><a href="productshow.asp?id=<%=trim(rs("id"))%>&amp;mnid=<%=strCurrMenu%>&amp;classname=<%=trim(rs("c_name"))%>&amp;uppage=<%=strCurrmenuHref%>" target="_blank"><strong><font color="#006699"><%=trim(rs("p_name"))%></font></strong></a></td>
                        </tr>
                      </table>
                    </td>
                  </tr>
         </table></td>
              <td id=sdemo2></td>
            </tr>
<%     
rs.MoveNext     
Loop
%>               </table>
      </div></div>
        <script>  
var speed1=30  
sdemo2.innerHTML
=sdemo1.innerHTML  
function Marquee1(){  
if(sdemo2.offsetTop-sdemo.scrollTop<=0)  
sdemo.scrollTop
-=sdemo1.offsetHeight  
else{  
sdemo.scrollTop
++  
}  
}  
var MyMar1=setInterval(Marquee1,speed1)  
sdemo.onmouseover
=function() {clearInterval(MyMar1)}  
sdemo.onmouseout
=function() {MyMar1=setInterval(Marquee1,speed1)}  
</script>

2 回复
#2
renxiaoyi2011-04-28 10:47
网上搜索有的是,
#3
DanYang_dan2011-04-29 14:21
对那个不懂 ..
1