<%
'=============================推荐照片
sub index_pic()%>

<!--最新图文代码开始-->
<%   
set rs=server.createobject("adodb.recordset")
      sql="Select top 10 * from pic order by sentdate desc"
   rs.open sql,conn,1,3
if not rs.EOF then%>

       <!--定义第一个ID:demo-->

<div align='center' id='demo' style='overflow:hidden;height:125px;width:545px;'>
  <table width="157" height="42" border="0">     <!--第一个table-->
    <tr>

        <!--定义第二个ID:demo-->
      <td width="147" id='demo1'>
        <table width="147" height="39" border="0">   <!--第二个table-->
        <tr>

         <% '-------------------循环开始
 while not rs.EOF
 %>
  
 
   <td width="200" height="35">          
      <table width="131" border="0">          <!--第三个table-->
            <tr>
              <td width="125"><div align="center"><a href='jj' target=_blank ><img border="0" height="100" src=<%=rs("content")%> width="100" alt="<%=rs("title")%>"></a></div></td>
            </tr>
            <tr>
              <td><div align="center"><a href='<%=rs("content")%>>' target=_blank title='<%=rs("title")%>'><%=rs("title")%></a></div></td>
            </tr>
        </table>  
      </td>

<% rs.MoveNext
 wend
 '-------------------循环结束 %>
        </tr>
      </table>
   </td>

      <td width="43" valign=top id=demo2></td>
    </tr>
  </table>
</div>

<script>
var Picspeed=15
demo2.innerHTML=demo1.innerHTML
function Marquee1(){
if(demo2.offsetWidth-demo.scrollLeft<=0)
demo.scrollLeft-=demo1.offsetWidth
else{
demo.scrollLeft++
}
}
var MyMar1=setInterval(Marquee1,Picspeed)
demo.onmouseover=function() {clearInterval(MyMar1)}
demo.onmouseout=function() {MyMar1=setInterval(Marquee1,Picspeed)}
</script>
 <%
else
 Response.Write "暂 无 最 新 图 文"
end if
rs.close
set rs=nothing
%>
<!--最新图文代码结束-->
<%end sub  %>