ASP滚动图片新闻

<DIV id=overDiv style="Z-INDEX: 3; POSITION: absolute"></DIV>


<DIV id=tk
style="Z-INDEX: 1; BACKGROUND: #ffffff; LEFT: 0px; OVERFLOW: hidden; WIDTH: 685px;  HEIGHT: 190px">
<DIV id=sl style="WIDTH: 685px; POSITION: absolute">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  
  <TR align=middle>
   <%
      set rs=server.createobject("adodb.recordset")
      rs.source="Select top 6 * FROM Ok3w_Article where IsPic=1 and IsPlay=1 orDER BY ID DESC"
      rs.Open rs.source,conn,1,1
      do while not rs.eof
     %>
    <TD valign="top">
<!--图片循环部分-->
<table>
<tr><td>
<a href="show.asp?id=<%=rs("ID")%>" target="_blank" title="<%=rs("title")%>">
<img
onMouseOver=javascript:clearInterval(nos);
    onMouseOut="javascript:RunMar('left','sl');" src="<%=rs("picfile")%>" width="200" height="145"></a>
</td></tr>
<tr><td><a href="show.asp?id=<%=rs("ID")%>" target="_blank">
<div align="center"><%=left(rs("title"),11)%></div></a></td></tr>
</table>
<!--图片循环部分-->
</td>
<%
        rs.movenext
        loop
      %>

</tr>



</TBODY></TABLE>
</DIV></DIV></BODY></HTML>
     <%  rs.close
        set rs=nothing
    %>