site_top.asp

使用Asp+Access+FSO+Jmail+Servu开发

<!--#include file="top.asp"-->
<table width="770" height="254" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="158" height="254" align="center" valign="top" bgcolor="#66ccff"><img src="images/top.gif" width="52" height="234"><br> 
    </td>
    <td width="8" height="254" valign="top"></td>
    <td width="604" height="254" valign="top"> <table border="0" width="100%" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="100%"></td>
        </tr>
      </table>
      <table border="0" width="100%" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="100%" height="55"><img src="images/sitetop.jpg" width="550" height="42"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#dbdbdb">
        <tr bgcolor="#fec955">
          <td height="25" align="center"><strong>排名</strong></td>
          <td height="25" align="center"><strong>网站名称</strong></td>
          <td height="25" align="center"><strong>开始日期</strong></td>
          <td height="25" align="center"><strong>总访问量 </strong></td>
        </tr>
        <%
sql="select top 100 * from counter order by counter desc"
rs.open sql,conn,1,1
count=rs.recordcount
	 if rs.eof and rs.bof then   
     response.write"<br>" 
	 response.write "<center>暂时还没有网站加入排名！</center>"
	 end if
if count>100 then count=100
for i=1 to count
%>
        <tr>
          <td width="6%" height="25" align="center" bgcolor="#FFFFFF"><b><%=i%></b></td>
          <td width="40%" height="25" align="center" bgcolor="#FFFFFF"><a href="view.asp?username=<%=rs("username")%>" target="_blank">
            <%set rs22=Server.CreateObject("adodb.recordset")
sql22="select * from [user] where username='"&rs("username")&"'"
rs22.open sql22,conn,1,1
Response.Write rs22("sitename")%>
            </a></td>
          <td width="14%" height="25" align="center" bgcolor="#FFFFFF"><%=formatdatetime((rs("date")),1)%></td>
          <td width="14%" height="25" align="center" bgcolor="#FFFFFF"><%=rs("counter")%></td>
        </tr>
        <%
rs.movenext
next
rs.close
set rs=nothing
rs22.close
set rs22=nothing
%>
      </table></td>
  </tr>
</table>
<!--#include file="copyright.asp"-->