<%@ LANGUAGE = VBScript.Encode %>

<!--#include file="top.htm"-->
<style type="text/css">
<!--
td {  font-family: "宋体"; font-size: 9pt}
body {  font-family: "宋体"; font-size: 9pt}
select {  font-family: "宋体"; font-size: 9pt}
A {text-decoration: none; color: #000000; font-family: "宋体"; font-size: 9pt}
A:hover {text-decoration: underline; color: #cc3366; font-family: "宋体"; font-size: 9pt} 
-->
</style>
              <%
   dim conn   
   dim connstr
   on error resume next
   connstr="DBQ="+server.mappath("hainanweb.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open connstr 
%>
              <%search=request("search")
if search="" or instr(search,"&")>0 or instr(search,"=")>0 then 
response.write "<br><center><font color=#cc3366>没有填写搜索内容！</font></center>"
	response.end
end if


 flag=request("flag")
if flag="" or flag=0 then
flag=0
sql="select * from zkpick where (picksite like '%"&search&"%' or pickname like '%"&search&"%')"
else 
sql="select * from zkpick where (picksite like '%"&search&"%' or pickname like '%"&search&"%' or pickjink like '%"&search&"%')"
end if

Sql=Sql&" order by pickvote desc,pickid asc"

%>

<head>
<style type="text/css">
<!--
td {  font-family: "宋体"; font-size: 9pt}
body {  font-family: "宋体"; font-size: 9pt}
select {  font-family: "宋体"; font-size: 9pt}
A {text-decoration: none; color: #000000; font-family: "宋体"; font-size: 9pt}
A:hover {text-decoration: underline; color: #cc3366; font-family: "宋体"; font-size: 9pt} 
-->
</style>
<title>3鸟设社网站评测-网站搜索</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="STYLE.CSS">
<script language="javascript">
<!--
function validate(){
art="";
art2="";
if (document.login.search.value==""){
    alert("没有填写搜索内容");
    return false;
    }

}

//-->
</script>
<style type="text/css">
</style>
</head>
<BODY aLink=#000000 leftMargin=0 
topMargin=0 vLink=#660033 marginheight="0" marginwidth="0" bgcolor="#FFFFFF">
<table width="764" border="0" cellspacing="2" cellpadding="0" align="center" class="9p">
  <tr> 
    <td width="164" valign="top" bgcolor="#EDB7D1"> 
      <table width="100%" border="0" class="9p" cellpadding="0" cellspacing="0" align="center">
        <tr> 
          <td bgcolor="#CC3366" height="22"> 
            <div align="center"><font color="#FFFFFF">类 型 分 类</font></div>
          </td>
        </tr>
        <tr> 
          <td> 
            <table width="90%" border="0" cellspacing="1" cellpadding="2" class="9p" align="center">
              <tr> 
                <td> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=1">电脑网络</a></div>
                </td>
                <td><img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=12">综合网站</a></td>
              </tr>
              <tr> 
                <td> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=2">免费资源</a></div>
                </td>
                <td><img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=11">社会公益</a></td>
              </tr>
              <tr> 
                <td> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=3">休闲娱乐</a></div>
                </td>
                <td><img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=10">科技咨讯</a></td>
              </tr>
              <tr> 
                <td> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=4">文学艺术</a></div>
                </td>
                <td><img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=9">商贸金融</a></td>
              </tr>
              <tr> 
                <td> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=5">游戏世界</a></div>
                </td>
                <td><img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=8">程序设计</a></td>
              </tr>
              <tr> 
                <td> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=6">音乐天堂</a></div>
                </td>
                <td><img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=7">体育生活</a></td>
              </tr>
              <tr> 
                <td> 
                  <div align="left"></div>
                </td>
                <td>&nbsp;</td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
    <td width="594" valign="top">
      <table width="594" border="0" cellspacing="0" cellpadding="0" align="center" class="9p">
        <tr> 
          <td colspan="4" valign="top"> 
            <div align="left"></div>
                         <%                                                              
               CurrentPage=Request.QueryString("pages")                                                              
 if  CurrentPage="" then                                                             
  CurrentPage=1                                                            
  end if                                                                                                                                                                          
                                                                                                                                                                      
   set rs=server.createobject("adodb.recordset")                                                              
   rs.open sql,conn,1,1                                                                                                                                                                                                                                                   
rs.PageSize=20                                                                
%>
                    <%if not rs.eof then                                                                                                                                                                                                                                                                                
  rs.AbsolutePage=CurrentPage                                                                                                                                                                                                                                                                                                                                                      
prevCurrentPage=CurrentPage-1                                                                                                                                                                                                                                                                                                                                                                                     
    nextCurrentPage=CurrentPage+1  %>
	<table width="100%" border="0" cellpadding="0" cellspacing="2" align="center">
          <tr> 
                <td bgcolor="#CC3366" height="20"> 
                  <div align="left"><font color="#FFFFFF">你搜索的关键字是<font color="#FFFFFF">：<font color="#cc3366"><%=search%></font></font>，以下是搜索结果：<font color="#cc3366"> 
                    </font> 
           
                    共找到<b> <%=Rs.RecordCount%> </b>个站点</font> </div>
                </td>
              </tr>
              <tr> 
                <td bgcolor="#FFFFFF"> 
                  <table width=100% align=center border=0 cellspacing=1 cellpadding=2 bgcolor=#BDE2B4  class="9p">
                    <tr bgcolor=#EDB7D1 height=20 style='color:#ffffff' align=center> 
                      <td align=left width="163"> 
                        <div align="center"><font color="#999999">站点名称</font></div>
                      </td>
                      <td width="128"><font color="#009900">网站所有</font></td>
                      <td width="254"> 
                        <div align="center"><font color="#006600">简介</font></div>
                      </td>
                      <td width="54"> 
                        <div align="center"><font color="#999999">得票数</font></div>
                      </td>
                      <%                                                                                                                                                                                                                                                                                                                                                                                             
NumRows=0                                                                                                                                                                                                                                                                                                                                                                                                  
 do while not rs.eof and NumRows < rs.PageSize                                                                                                                                                                                                                                                                                                                                                                                                      
 %>
                    <tr bgcolor=#FFFFFF > 
                      <td width="163"> 
                        <div align="left"><a href="showinfo.asp?ID=<%=Cstr(rs("pickid"))%>" target="_blank"><%=rs("picksite")%></a></div>
                      </td>
                      <td width="128"><font color="#FFFFFF"><font color="#000000"><%=rs("pickname")%></font></font></td>
                      <td width="254"> 
                        <div align="left"></div>
                        <%=rs("pickmemo")%> </td>
                      <td width="54"><%=rs("pickvote")%></td>
                    </tr>
                    <%                                                                                                                                                                                                                                                                                                                                                                                                 
 rs.movenext                                                                                                                                                                                                                                                                                                                                                                                                 
 NumRows=NumRows+1                                                                                                                                                                                                                                                                                                                                                                                                 
 loop                                                                                                                                                                                                                                                                                                                                                                                                 
 %>
                  </table>
                </td>
              </tr>
              <tr> 
                <td bgcolor="#CC3366" height="20"> 
                  <div align="right"> </div>
                  <div align="right"> <font color="#FFFFFF">共找到<b> <%=Rs.RecordCount%> 
                    </b>个站点</font> 
                    <% if CurrentPage <=1 and   RS.PageCount<>1 then %>
                    上一页&nbsp;<a href="search.asp?search=<%=search%>&flag=<%=flag%>&pages=<%=nextCurrentPage%>">[下一页]</a> 
                    <% elseif CurrentPage>1 and CLng(CurrentPage) < RS.PageCount then %>
                    <a href="search.asp?search=<%=search%>&flag=<%=flag%>&pages=<%=prevCurrentPage%>">[上一页]</a> 
                    &nbsp; <a href="search.asp?search=<%=search%>&flag=<%=flag%>&pages=<%=nextCurrentPage%>">[下一页]</a> 
                    <% elseif (CLng(CurrentPage) = RS.PageCount) and RS.PageCount<>1 then %>
                    <a href="search.asp?search=<%=search%>&flag=<%=flag%>&pages=<%=prevCurrentPage%>">[上一页]</a>&nbsp;下一页 
                    <% end if%>
                    &nbsp;页次：<%=CurrentPage%>/<%=RS.PageCount%>页&nbsp; <%=Rs.PageSize%>条记录/页</div>
                </td>
              </tr>
            </table>
            <div align="right"></div>
            <%else%>
            <p>&nbsp;</p><p align="center"><font color="#cc3366">Sorry,没有找到！</font><br>
            </p>
            <%end if%>
            <%                                                                                                                                                                                                                                                                                                                                                                                                         
                                                                                                                                                                                                                                                                                                                                                                                 
rs.close                                                                                                                                                                                                                                                                                                                                                                                     
   set rs=nothing                                                                                                                                                                                                                                                                                                                                                                        
conn.close                                                                                                                                                                                                                                                                                                                             
set conn=nothing                                                                                                                                                                                                                                                                                                                                                                                                         
 %>
           
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<div align="center"><!--#include file="bottom.htm" -->
</div>
</body>
</html>
