<!--#include file="conn.asp"--> 
<table border="0" cellpadding="0" cellspacing="0" width="27%" height="51">
  <% set rshot=server.createobject("adodb.recordset")
sql="SELECT * from pic order by pichits desc"
rshot.open sql,conn,1,1 
if rshot.eof and rshot.bof then
%>
  <li>请管理员到后台添加图片
    <%else%>
    <tr > 
      <td align="center" height="8" background="images/zuo-bg.gif">
        <div align="left"><img src="images/top10.gif" width="203" height="31"></div>
      </td>
    </tr>
    <%do while not rshot.eof%>
    <tr> 
      <td background="images/zuo-bg.gif">　<a title="点击：<%=rshot("pichits")%>·排名：<%=top+1%>"  target="_blank" href="picshow.asp?id=<%=rshot("id")%>"><%=Left(rshot("picname"),9)%></a> 
        <%if not rshot("pictime") < date then%>
        &nbsp;<img border="0" src="IMAGEs/NEW.gif" title="点击排行中最新发布"> 
        <%end if%>
        <font color="#FF0000"><%=rshot("pichits")%></font></td>
    </tr>
    <% dim top
top=top+1
rshot.movenext
if top>=10 then exit do
loop 
end if
rshot.close
%>
</table>
