rank.asp

九酷网络个人主页系统破解版

<!--#include file="top.asp"-->
<TABLE class=tableborder cellSpacing=0 cellPadding=0 width=778 align=center 
border=0>
  <TBODY>
    <TR>
      <TD bgColor=#efefef height=22>
        <TABLE cellSpacing=2 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR>
              <TD align=middle width="4%"><IMG height=13 
            src="images/class_ar.gif" width=13></TD>
              <TD width="74%">您当前的位置：<A href="<%=siteurl%>"><%=site%></A> -&gt; <a href="news.asp">主页排行</a></TD>
              <TD align=middle width="22%">&nbsp;</TD>
            </TR>
          </TBODY>
      </TABLE></TD>
    </TR>
    <TR>
      <TD bgColor=#d9d9d9 height=1></TD>
    </TR>
    <TR>
      <TD height=5></TD>
    </TR>
  </TBODY>
</TABLE>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" class="tableborder">
  <tr>
    <td height="500" valign="top" class="tableleft"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td class="titleback2">分类排名</td>
      </tr>
      <tr>
        <td height="100" valign="top">
<table width="90"  border="0" align="center" cellpadding="4" cellspacing="0" class=tabmenubar>
            <tr>
              <td class=tdmenubar><img src="images/plus.gif"> <a href="?">总排名</a></td>
            </tr>
            <%
			Set rstp=conn.Execute("select * from [siteclass]") 
do while not rstp.eof
%>
            <tr>
              <td class=tdmenubar><%
response.write "<img src=""images/plus.gif""> <a href=?type="&rstp("id")&">"&rstp("sitetype")&"</a>"
%></td>
            </tr>
            <%
  rstp.movenext
loop
rstp.close
set rstp=nothing
%>
          </table>
          </td>
      </tr>
      <tr>
        <td height="2" bgcolor="#FFFFFF"></td>
      </tr>
    </table></td>
    <td valign="top" class="tableright">
<%
set rstop=Server.CreateObject("ADODB.Recordset")
if request("type")<>empty and isNumeric(request("type")) then
whereto="where sitetype="&cint(request("type"))&" "
else
whereto="where counter>0 "
end if
sqltop="select top 100 * from [counter] "&whereto&"order by counter desc"
rstop.open sqltop,conn,1,1
count=rstop.recordcount
	 if rstop.eof and rstop.bof then   
	 response.write "<br><center>暂时还没有网站加入排名！</center>"
	 else
	 %>
	<table width="96%" border="0" align="center" cellpadding="0" cellspacing="1">
      <tr class=showtitle3>
        <td height="25" align="center">排名</td>
        <td height="25" align="center">网站名称</td>
        <td height="25" align="center">开始日期</td>
        <td height="25" align="center">总访问量</td>
      </tr>
      <%
j=0
if count>100 then count=100
for h=1 to count
if j mod 2 = 0 then
titleclass="showbody1"
else
titleclass="showbody3"
end if
%>
      <tr>
        <td width="12%" height="25" align="center" class=<%=titleclass%>><strong><font face="Arial"><%=h%></font></strong></td>
        <td width="46%" height="25" align="center" class=<%=titleclass%>><a href="view.asp?username=<%=rstop("username")%>" target="_blank"> <%=rstop("sitename")%> </a></td>
        <td width="20%" height="25" align="center" class=<%=titleclass%>><%=rstop("date")%></td>
        <td width="22%" height="25" align="center" class=<%=titleclass%>><%=rstop("counter")%></td>
      </tr>
      <%
j=j+1
rstop.movenext
next
rstop.close
set rstop=nothing
%>
    </table>
	<%end if%></td>
  </tr>
</table>
<!--#include file="links.asp"-->
<!--#include file="bottom.asp"-->