index.asp

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

<!--#include file="top.asp"-->
<%
if request("id")<>empty then
if not conn.execute("select * from [user] where username='"&request("id")&"'").eof then
Response.Cookies("9cool_agentid").Expires=Date+1
Response.Cookies("9cool_agentid")=request("id")
end if
end if

%>
<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="2%"><IMG height=13 
            src="images/class_ar.gif" width=13></TD>
          <TD width="20%"><A href="<%=siteurl%>"><%=site%></A> 
            -&gt; </TD>
          <TD align=middle width="74%"><iframe name="gg" src="announce.asp" frameborder="0" scrolling="no" height="20" width="100%"></iframe></TD>
        </TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD bgColor=#d9d9d9 height=1></TD></TR>
  <TR>
    <TD height=5></TD></TR></TBODY></TABLE>
<TABLE class=tableborder cellSpacing=0 cellPadding=0 width=778 align=center 
border=0>
  <TBODY>
  <TR vAlign=top>
    <TD class=tableleft width=188>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD vAlign=top><%call ShowUserLogin()%> </TD></TR>
        <TR>
          <TD bgColor=#ffffff height=2></TD></TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD class=titleback1>站内统计</TD></TR>
        <TR>
          <TD vAlign=top><FONT face=Webdings color=darkorange>1 
            </FONT>共有注册会员：
            <%=Application(CacheName&"Countuser")%>            <br>
            <FONT face=Webdings color=darkorange>1 </FONT>今天注册会员：
            <%=Application(CacheName&"Counttoday")%>
            <br>
            <FONT face=Webdings color=darkorange>1 </FONT>当前在线会员：
            <%=online%>            <br>
            <FONT face=Webdings color=darkorange>1 </FONT>最新注册会员：
            <%
response.write "<b><a href=view.asp?username="&Application(CacheName&"newuser")&" target=_blank>"&Application(CacheName&"Newsite")&"</a></b>"
%><BR></TD>
        </TR></TBODY></TABLE></TD>
    <TD class=tableright align=right width=588>
      <TABLE width=575 height="230" border=0 cellPadding=2 cellSpacing=0>
        <TBODY>
        <TR>
          <TD class=titleback3 width=406 height=25>最新消息</TD>
          <TD width=3 rowspan="2"></TD>
          <TD class=titleback2 width=152>星站推荐</TD>
        </TR>
        <TR>
          <TD class=showbody2 vAlign=top height=181><script language="JavaScript" src="new.asp?id=1&num=8"></script></TD>
          <TD class=showbody1 vAlign=top>
            <%
			Randomize 
Set rs1=conn.Execute("select top 1 * from [user] where isgood=True order by rnd(-(userid+" & rnd() & "))")
if rs1.eof and rs1.bof then
response.write "<br><br><center>暂无星站推荐！</center>"
else
%>
		  <table width="96%" border="0" align="center" cellpadding="5" cellspacing="0">
              <tbody>
                <tr> 
                  <td> </td>
                </tr>
                <tr>
                  <td align="center"><%
	  if rs1("siteimg")<>empty then
	  	response.write "<a href=view.asp?username="&rs1("username")&" target=_blank><img src="&rs1("siteimg")&" border=0 alt="&rs1("sitename")&" width=120 height=90></a>"
	  else
	  	response.write "<a href=view.asp?username="&rs1("username")&" target=_blank><img src=images/nopic.gif border=0 alt="&rs1("sitename")&"></a>"
	  end if
	  %></td>
                </tr>
                <tr> 
                  <td>网站名称：<a href=view.asp?username=<%=rs1("username")%> title="<%=rs1("sitename")%>" target="_blank"><%=rs1("sitename")%></a></td>
                </tr>
                <tr> 
                  <td>网站简介：<%=left(rs1("intro"),15)%>...</td>
                </tr>
                <tr> 
                  <td nowrap>推荐等级：<img src="<%=rs1("star")%>" border="0"></td>
                </tr>
              </tbody>
            </table>
	<%

	end if
rs1.close
set rs1=nothing
%></TD></TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width=575 border=0>
        <TBODY>
          <TR>
            <TD colSpan=2 height=5></TD>
          </TR>
          <TR>
            <TD width=130 bgColor=#efefef height=30><IMG height=26 
            src="images/search.gif" width=120></TD>
            <TD bgColor=#efefef><%call search()%>
                <!--搜索表单-->
            </TD>
          </TR>
          <TR>
            <TD colSpan=2 height=5></TD>
          </TR>
        </TBODY>
      </TABLE></TD>
  </TR></TBODY></TABLE>
<TABLE class=tableborder cellSpacing=0 cellPadding=0 width=778 align=center 
border=0>
  <TBODY>
  <TR vAlign=top>
    <TD width=188 valign="top" class=tableleft>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD class=titleback2>网站访问排行</TD>
        </TR>
        <TR>
          <TD vAlign=top height=160><table width="100%" border="0" align="center" cellpadding="4" cellspacing="1">
            <%
			set rstop=Server.CreateObject("ADODB.Recordset")
sqltop="select top 10 * from [counter] where counter>0 order by counter desc"
rstop.open sqltop,conn,1,1
count=rstop.recordcount
	 if rstop.eof and rstop.bof then   
	 response.write "<center>暂时还没有网站加入排名！</center>"
	 else
if count>10 then count=10
for h=1 to count
%>
            <tr>
              <td width="23%" height="20" align="center" class="showbody1"><b><%=h%></b></td>
              <td width="77%" height="20" class="showbody1"><a href="view.asp?username=<%=rstop("username")%>" target="_blank"><%=rstop("sitename")%></a></td>
            </tr>
            <%
rstop.movenext
next
end if
rstop.close
set rstop=nothing
%>
          </table>
      </TD>
        </TR></TBODY></TABLE></TD>
    <TD width=588 align="right" class=tableright><TABLE cellSpacing=0 cellPadding=0 width=575 border=0>
      <TBODY>
        <TR>
          <TD class=showtitle3>优秀站点推荐</TD>
        </TR>
        <TR>
          <TD class=showbody1 height=120><%call rndshow()%></TD>
        </TR>
        <TR>
          <TD height=3></TD>
        </TR>
      </TBODY>
    </TABLE>
<%
dim j,all
j=1
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from siteclass"
rs.open sql,conn,1,1
if rs.recordcount>1 then
all=rs.recordcount
else
all=1
end if
%>
      <table width="575" border="0" cellpadding="3" cellspacing="1" class="showbody3">
        <tbody>
          <tr> 
		  <%do until rs.eof%>
            <td height="25"  class=showbody1><font face="wingdings">v</font> <%
				  response.write "<a href='list.asp?sitetypeid="&rs("id")&"'>"&rs("sitetype")&"</a>"
				  %><font color="#666666"> [<%if Application(CacheName&"Countuser"&rs("id"))=empty then Application(CacheName&"Countuser"&rs("id"))=conn.Execute("select count(*) from [user] where sitetype="&rs("id")&"")(0)
				  Response.Write Application(CacheName&"Countuser"&rs("id"))
				  %>]</font></td>
		 <%
		 if j mod 5=0 then response.write "</tr>"
         rs.movenext
         j=j+1
         loop
		 rs.close
		 set rs=nothing
        %>
          </tr>
        </tbody>
      </table>
      <br></TD>
  </TR></TBODY></TABLE>
<!--#include file="links.asp"-->
<!-- 页面底部开始 -->
<!--#include file="bottom.asp"-->