list.asp

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

<!--#include file="top.asp"-->
<%
sitetypeid=cint(request("sitetypeid"))
if sitetypeid<>empty and isNumeric(sitetypeid) then
session("temp1")="sitetypeid="&sitetypeid&""
whereto="sitetype="&sitetypeid&" and "
end if
sql = "select * from [user] where "&whereto&"state=1 order by logindate desc"
rs.open sql,conn,1,1
pagesetup=20 '设定每页的显示数量
rs.pagesize=pagesetup
TotalPage=rs.pagecount  '总页数
PageCount = cint(Request.QueryString("ToPage"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then rs.absolutepage=PageCount '跳转到指定页数
%><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 width="586" height="500" valign="top" class="tableright"><table width="575" border="0" align="center" cellpadding="0" cellspacing="0">
        
        <tr>
          <td width="130" height="30" bgcolor="#EFEFEF"><img src="images/search.gif" width="120" height="26"></td>
          <td width="445" bgcolor="#EFEFEF"><%call search()%>            <!--搜索表单-->              </td>
        </tr>
        <tr>
          <td height="5" colspan="2"></td>
        </tr>
      </table>
<%
i=0
Do While Not RS.EOF and i<pagesetup
i=i+1  
%>
      <table width="96%" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="100%" height="60"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="22%" align="center">
                  <%
	  if rs("siteimg")<>"" then
	  	response.write "<a href=view.asp?username="&rs("username")&" target=_blank><img src="&rs("siteimg")&" width=120 height=90 border=0 alt="&rs("sitename")&"></a>"
	  else
	  	response.write "<a href=view.asp?username="&rs("username")&" target=_blank><img src=images/nopic.gif width=120 height=90 border=0 alt="&rs("sitename")&"></a>"
	  end if
	  %></td>
                <td width="78%"><table width="100%" border="0" cellspacing="0" cellpadding="3">
                    <tr>
                      <td width="50%"><a href="view.asp?username=<%=rs("username")%>" title="<%=rs("sitename")%>" target="_blank"><%=rs("sitename")%></a> <img src="<%=rs("star")%>" border="0"></td>
                      <td width="50%">注册日期：<%=rs("regdate")%></td>
                    </tr>
                    <tr>
                      <td>网站分类：<%
							set rstype=conn.Execute("select * from [siteclass] where id="&cint(rs("sitetype")))
							Response.Write "<a href=?sitetypeid="&rstype("id")&">"&rstype("sitetype")&"</a>"
							rstype.close
set rstype=nothing
							%></td>
                      <td>最后登录：<%=rs("logindate")%></td>
                    </tr>
                    <tr valign="top">
                      <td height="30" colspan="2"><%if len(rs("intro"))>30 then
					  Response.Write left(rs("intro"),25)+"..."
					  else
					  Response.Write rs("intro")
					  end if
					  %></td>
                    </tr>
                </table></td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td height="22"><hr size="1" noshade="noshade"></td>
        </tr>
      </table>
      <%
	  rs.movenext
loop
rs.close
set rs=nothing 
%> 
      <table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td>[<b>共有
<font color="990000"><%=TotalPage%></font> 页
<script>
ShowPage(<%=TotalPage%>,<%=PageCount%>,"<%=session("temp1")%>")
</script>
</b>]</td>
        </tr>
      </table>  
</td>
    <td width="188" align="right" valign="top" class="tableleft"><table width="99%" border="0" cellpadding="4" cellspacing="0">
        <tr>
          <td align="center" class="titleback2">酷站推荐</td>
        </tr>
        
    </table>
      <table width="99%" border="0" cellspacing="1" cellpadding="4">
        <tr>
          <td class="showbody1"><%call coolshow()%></td>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include file="links.asp"-->
<!--#include file="bottom.asp"-->