图片无缝滚动 asp动态网页

来源：互联网发布：淘宝登陆名称怎么改编辑：程序博客网时间：2024/05/16 19:32

<div id=gundongpic style="BACKGROUND: #ffffff; OVERFLOW: hidden; WIDTH: 496px; COLOR: #ffffff; HEIGHT: 116px">
                <table width="132" height="115" border=0 align=center cellpadding=0 cellspacing="0"
cellspace="0">
                  <tbody>
                    <tr>
                      <td id=gundongpic1 valign=top><%
set rs=server.createobject("adodb.recordset")
sqltext="select top 10 * from nwyews where BigClassName='宝贝在成长' and smallClassName='宝贝作品' ORDER BY ID DESC"
rs.open sqltext,conn,1,1
%>
                          <%i=1 %>
                          <table width="100%" border="0" cellspacing="1" cellpadding="0">
                            <tr>
                              <% Do While Not rs.EOF%>
                              <td align="center" valign="middle"><table width="110" border="0" align="center" cellpadding="2" cellspacing="0">
                                  <tr>
                                    <td class="formkuang2"><%
      if rs("FileName2")="Null" then
      response.write("<a href=Article.asp?id="&rs("id")&" target=_blank title="&rs("title")&"><img src='upload/nopic.jpg' width='110' height='85' border='0' align='absmiddle'> <a>")
      else
      response.write("<a href=Article.asp?id="&rs("id")&" target=_blank title="&rs("title")&"><img src='upload/"&rs("FileName2")&"' width='110' height='85' border='0' align='absmiddle'> <a>")
      end if
      %></td>
                                  </tr>
                                  <tr>
                                    <td height="24"><div align="center"><a href=Article.asp?id=<%=rs("id")%> target=_blank title=<%=rs("title")%>><%=left(rs("title"),10)%></a></div></td>
                                  </tr>
                              </table></td>
                              <td width="15" align="center" valign="middle"> </td>
                              <% if i mod 2 = 0 then%>
                            </tr>
                            <tr>
                              <%
end if
rs.MoveNext
loop
rs.close
%>
                            </tr>
                        </table></td>
                      <td width="1" valign=top id=gundongpic2></td>
                    </tr>
                  </tbody>
                </table>
                <script>
             var speed=30
             gundongpic2.innerHTML=gundongpic1.innerHTML
             function Marquee(){
             if(gundongpic2.offsetWidth-gundongpic.scrollLeft<=0)
             gundongpic.scrollLeft-=gundongpic1.offsetWidth
             else{
             gundongpic.scrollLeft++
             }
             }
             var MyMar=setInterval(Marquee,speed)
             gundongpic.onmouseover=function() {clearInterval(MyMar)}
             gundongpic.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
                      </script>
              </div>