无间隙图片向上滚动代码问题 - ASP技术论坛

fjhtf

等　级：新手上路
帖　子：83
专家分：0
注　册：2006-4-29
结帖率：46.67%

楼主

已结贴√ 问题点数：20 回复次数：2

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

我的代码向上滚动两圈就停了，刷新又可以，每次都那样，是哪里出问题？帮我改下，谢谢！

程序代码：

      <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>