常用

来源：互联网发布：远光软件亦庄编辑：程序博客网时间：2024/05/01 19:50

<%set rs=server.createobject("adodb.recordset")
   sql="select * from img "
   rs.open sql,conn,1,1
   if rs.bof and rs.eof then
   response.write("暂无任何图片信息")
   end if
   %>
<table width=700 border=0 cellpadding=0 cellspacing=0>
<tr><td>
<div id=demo style=overflow:hidden;height:120px;width:700px;color:#ff0000><table align=left cellpadding=0 cellspace=0 border=0><tr><td id=demo1 valign=top>
<table border=0 cellpadding=0 cellspacing=0>
<tr>

<%do while not rs.eof %>
<td><a href="Show.asp?ID=<%=rs("ID")%>" onClick="window.open(this.href,'', 'height=240,width=400,toolbar=no,location=no,status=no,menubar=no');return false"><img src=<%=rs("img")%> width=126 height="118" border=0></a></td>
<%rs.movenext
loop
%>

</tr>
</table>
</td><td id=demo2 valign=top></td></tr></table></div>
<script>
var speed=10
demo2.innerHTML=demo1.innerHTML
function Marquee(){
if(demo2.offsetWidth-demo.scrollLeft<=0)
demo.scrollLeft-=demo1.offsetWidth
else{
demo.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed)
demo.onmouseover=function() {clearInterval(MyMar)}
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>
</td></tr>
</table>