无标题文档
正在载入,请稍后...
    正在载入,请稍后...
博客公告
    正在载入,请稍后...
时间记忆
    正在载入,请稍后...
博客登陆
最新日志
    正在载入,请稍后...
最新评论
    正在载入,请稍后...
最新留言
    正在载入,请稍后...
博客相册
博客好友
    正在载入,请稍后...
友情连接
博客统计
    正在载入,请稍后...
asp 连续滚动代码 | 2007-8-9 16:47:00
<div id="demo" style="overflow:hidden;width:582px;color:#ffffff;">
      <table cellpadding="0" cellspacing="0" border="0">
        <tr><td id="demo1" valign="top" align="center">
          <table cellpadding="2" cellspacing="0" border="0">
            <tr align="center">
 <%
set rs=server.CreateObject("adodb.recordset")
sql="select * from xypic order by id desc"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.End()
end if
i=0
do while not rs.eof
for x=1 to rs.recordcount
if not rs.eof and not rs.bof then
%>
<td><table width="100" height="90" border="0" cellspacing="2">
<tr>
<td height="90"><div align="center"><a target=_blank href="admin/<%=rs("pic")%>"><img src="admin/<%=rs("pic")%>"; width=100 height=90 border='1' class='bk'  style="border: 1px solid #000000"></a></div></td>
</tr>
</table></td>
<%rs.movenext
end if
next%>
<% i=i+1
loop 
%>  </tr>
          </table>
        </td>
        <td id="demo2" valign="top"></td>
        </tr>
      </table>
    </div>
  <script>
  var speed=1//速度数值越大速度越慢
  demo2.innerHTML=demo1.innerHTML
  function Marquee(){
  if(demo.scrollLeft<=0)
  demo.scrollLeft+=demo2.offsetWidth
  else{
  demo.scrollLeft--
  }
  }
  var MyMar=setInterval(Marquee,speed)
  demo.onmouseover=function() {clearInterval(MyMar)}
  demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
  </script>
  • 标签:asp 
  • Re:asp 连续滚动代码 | 2007-8-22 15:43:43
    若水(游客)不错,真正的连续无间断滚动啊!
    By:若水(游客) | 个人主页 | 引用 | 返回 | 删除 | 回复
    发表评论:
    正在载入,请稍后...

    中国博客秀
    博客秀 版权所有