search.asp

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

<!--#include file="top.asp"-->
<%
if request("isWeb")="0" and request("keyword")<>empty then
%>
<SCRIPT language=JavaScript> 
//function winopen(){ 
window.open('http://www.baidu.com/s?tn=9cool_pg&ct=&lm=&z=&rn=&word=<%=request("keyword")%>&_sv=1', '9coolsearch', '') 
//} 
</SCRIPT>
<%end if%>
<%
sql="select * from [user] where state=1 order by logindate"
if request("keyword")<>empty then
session("temp2")="keyword="&request("keyword")&""
sql = "select * from [user] where sitename like '%"&Request("keyword")&"%' or intro like '%"&Request("keyword")&"%' and state=1 order by logindate"
end if
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; 主页查找</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">
  <tr>
    <td width="586" height="500" valign="top" bgcolor="#FFFFFF"><table width="575" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="5" colspan="2"></td>
        </tr>
        <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%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td height="30"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td width="50%"><a href="view.asp?username=<%=rs("username")%>" title="<%=rs("sitename")%>" target="_blank"><%=Replace(rs("sitename"),request("keyword"),"<b>"&request("keyword")&"</b>")%></a></td>
                            <td width="50%"><img src="<%=rs("star")%>" border="0"></td>
                          </tr>
                      </table></td>
                    </tr>
                    <tr>
                      <td valign="top"><%=Replace(rs("intro"),request("keyword"),"<b>"&request("keyword")&"</b>")%></td>
                    </tr>
                    <tr>
                      <td align="right">最后登录时间：[<%=rs("logindate")%>]</td>
                    </tr>
                    <tr>
                      <td align="right"><hr size="1" noshade="noshade"></td>
                    </tr>
      </table>
      <br>   
<%
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("temp2")%>")
</script>
</b>]</td>
        </tr>
    </table></td>
    <td width="188" valign="top" bgcolor="#FFFFFF"><table width="95%" border="0" align="center" cellpadding="4" cellspacing="0">
      <tr>
        <td align="center" class="titleback2">酷站推荐</td>
      </tr>
      <tr>
        <td><%call coolshow()%></td>
      </tr>
    </table></td>
  </tr>
</table>
<!--#include file="bottom.asp"-->