一个不错的从数据库读取图片的跑马灯代码

<TABLE cellSpacing=0 cellPadding=0 width="50%" align=center
border=0>
            <TBODY>
              <TR>
                <TD colSpan=2 height=10></TD>
              </TR>
              <TR>
                <TD colSpan=2 height=136 style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px">
<DIV id=demo style="OVERFLOW: hidden; WIDTH: 700px; HEIGHT: 190px">
                              <TABLE cellSpacing=0 cellPadding=0 width="100%"
                              border=0>
                                <TBODY>
                                <TR>
                                <TD id=demo1 vAlign=top>
                                <TABLE cellSpacing=0 cellPadding=0 border=0>
                                <TBODY>
                                <TR>
                                <TD>
                                <TABLE border=1 cellPadding=0 cellSpacing=0 bordercolor="#000000">
                                <TBODY>
                                <TR><td>
                               <%
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.open "Select top 20 * from 123 where tj=1",conn,1,1
Do while not rs.eof
%></td>
<td width="700" align="center"><table width="200" border="0" cellspacing="0" cellpadding="0">
                            <tr>
                              <td height="130" align="center"><table border="0" cellpadding="0" cellspacing="1" >
                                  <tr>
                                    <td width="200" height="150" align="center" bgcolor="#FFFFFF"><a href='product1.asp?id=<%=rs("id")%>' target="_blank" title='<%=rs("title")%>'> <img border="0" height="150" src="<%if rs("pic1")="" then%>no.gif<%else%>admin/<%=rs("pic")%><%end if%>" width="200" alt="<%=rs("title")%>" align="center" /></a></td>
                                  </tr>
                              </table></td>
                            </tr>
                            <tr>
                              <td height="5" align="center"></td>
                            </tr>
                            <tr>
                              <td align="center"><table width="100%" border="0" cellpadding="0" cellspacing="1" >
                                  <tr>
                                    <td height="27" align="center" bgcolor="#FFFFFF" style="font-size:12px"><%=rs("title")%></td>
                                  </tr>
                              </table></td>
                            </tr>
                        </table>     </td>
 <%
rs.movenext
loop
rs.close
Set rs=nothing
%>       
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
                                <TD id=demo2
                              vAlign=top></TD>
        
         </TR>
                 </TBODY></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.οnmοuseοver=function() {clearInterval(MyMar)}
demo.οnmοuseοut=function() {MyMar=setInterval(Marquee,speed)}
</SCRIPT>
</TD>
<td width="10" ></td>
              </TR>
              <TR>
                <TD width=38 bgColor=#F1F1F1 height=1></TD>
                <TD width=300 bgColor=#F1F1F1 height=1></TD>
              </TR>
              <TR>
                <TD colSpan=2
      height=10></TD>
              </TR>
            </TBODY>
          </TABLE>