index.asp

it is a good thing i think you will like it

k=k+1%>
                  <tr>
                    <td width="28" bgcolor="#FFFFFF" height="1">
                    <p align="center"><%=k%></td>
                    <td width="88" bgcolor="#FFFFFF" height="1">
                    <p align="center">
                    <a href="out.asp?user=<%=rsu("user")%>&url=<%=rsu("url")%>" target="_blank">
                    <img src="<%if rsu("logo")="" then%>img/nologo.gif<%else%><%=rsu("logo")%><%end if%>" width="88" height="31" border="0"></a></td>
                    <td width="396" bgcolor="#FFFFFF" valign="top" height="1">
                    <a href="out.asp?user=<%=rsu("user")%>&url=<%=rsu("url")%>" target="_blank">
                    <b><%=rsu("web")%></b></a><%if rsu("best")=1 then%>
                    <img border="0" src="img/recommend.gif"><%end if%><br>
                    <%=rsu("txt")%></td>
                    <td width="65" bgcolor="#FFFFFF" valign="middle" height="1">
                    <p align="center"><%if rsu("star")=0 then%>待评 <%else%><img border="0" src="img/<%=rsu("star")%>STAR.GIF"><%end if%></td>
                    <td width="34" bgcolor="#FFFFFF" align="center" height="1">
                    <%=rsu("incount")%></td>
                    <td width="32" bgcolor="#FFFFFF" align="center" height="1">
                    <%=rsu("outcount")%></td>
                  </tr>
                  <tr>
                    <td width="628" bgcolor="#DFDFDF" colspan="6" height="1">
                    </td>
                  </tr>
                  <%i=i+1          
if i>=MaxPerPage then exit do          
rsu.movenext          
loop          
end if%>
                </table>
                </center>
              </div>
              </td>
            </tr>
            <tr>
              <td width="697" bgcolor="#DFDFDF" colspan="5">
              <p align="center">统计数据每天(24:00)重置一次，上次重置时间：<%=rsadm("update")%>
              </td>
            </tr>
          </table>
          </td>
        </tr>
      </table>
      </center></td>
      <td width="532" valign="top" bgcolor="#B58800" height="82">
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber1" height="151">
        <tr>
          <td width="100%" align="center" height="20" valign="top">
          <p align="right"><img border="0" src="img/ere.gif"></td>
        </tr>
        <tr>
          <td width="100%" align="center" height="60">
          <img border="0" src="img/love34.gif"></td>
        </tr>
        <tr>
          <td width="100%" align="center" height="16"></td>
        </tr>
        <tr>
          <td width="100%" align="center" height="1">
          <p align="center">本榜禁止色情、反动、含恶意代码等一切违法站点加入,违者立即删除,也请网友监督,有此类站点,<a href="mailto:[e-mail]">立即通知我们</a>。</td>
        </tr>
        <tr>
          <td width="100%" align="center" height="16">
          <div align="center">
            <center>
            <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="95%" id="AutoNumber2" bordercolor="#000000">
              <tr>
                <td width="100%">
                <p align="center">最新加入</td>
              </tr>
            </table>
            </center>
          </div>
          </td>
        </tr>
        <%sqlq="select top 10 user,url,web from link order by id desc"                                                     
Set rsq= Server.CreateObject("ADODB.Recordset")                                                                                                                          
rsq.open sqlq,conn,1,1
do while not rsq.eof               
%>
        <tr>
          <td width="100%" align="center" height="16">
          <p align="left">☉<a href="out.asp?user=<%=rsq("user")%>&url=<%=rsq("url")%>" target="_blank"><%=rsq("web")%></a></td>
        </tr>
        <%
rsq.movenext
loop
rsq.close
seq rst=nothing
%>
        <tr>
          <td width="100%" align="center" height="16">
          <div align="center">
            <center>
            <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="95%" id="AutoNumber2" bordercolor="#000000">
              <tr>
                <td width="100%">
                <p align="center">影响本站评级的几大因素</td>
              </tr>
            </table>
            </center>
          </div>
          </td>
        </tr>
        <tr>
          <td width="100%" align="center" height="8">
          <p align="left">1.弹出窗出是否过多<br>
          2.内容是否丰富<br>
          3.浏览速度是否快<br>
          4.美工制作是否好<br>
          5.介绍与内容是否相符</td>
        </tr>
        <tr>
          <td width="100%" align="center" height="8">以上每一项代表一个星如果五项全通过增加一个推荐。</td>
        </tr>
      </table>
      </td>
    </tr>
  </table>
  </center>
</div>
<div align="center">
  <center>
  <table border="0" width="630" cellspacing="0" cellpadding="0" height="7">
    <tr>
      <td width="100%"></td>
    </tr>
    <tr>
      <td width="100%"></td>
    </tr>
  </table>
  </center>
</div>
<div align="center">
  <center>
  <table border="0" width="630" cellspacing="0" cellpadding="0">
    <tr>
      <td width="100%">
      <p align="center"><%=rsadm("ad2")%></td>
    </tr>
  </table>
  </center>
</div>
<%end if
rs.close
set rs=nothing
rsu.close
set rsu=nothing
conn.close
set conn=nothing
%> </td>
</tr>
</table>
</center>
</div>

</body>

</html>