<%@ LANGUAGE = VBScript.Encode %>


<html>
<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>-网站搜索</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="link.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=2 
topMargin=4 vLink=#660033 marginheight="0" marginwidth="0" background="image/bj.gif">
  <!--#include file="top.htm" -->
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" class="9p" style="border-left: 1 dotted #000000; border-right: 1 dotted #000000">
  <tr> 
    <td height="42" width="125" valign="top"> 
      <table width="125" border="0" cellspacing="1"  class="9p" cellpadding="0" bgcolor="#CC3366">
        <tr> 
          <td bgcolor="#CC3366"> 
            <div align="center"><font color="#FFFFFF">地域分类</font></div>
          </td>
        </tr>
        <tr> 
          <td bgcolor="#FFFFFF"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="3" class="9p" bgcolor="#CCFFFF" align="center">
              <tr> 
                <td width="53" height="17" bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listdiyu.asp?diyu=1">海口</a></div>
                </td>
                <td width="53" height="17" bgcolor="#EDB7D1"><img src="image/j1.gif" width="9" height="10"> 
                  <a href="listdiyu.asp?diyu=2">琼山</a></td>
              </tr>
              <tr> 
                <td width="53" bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listdiyu.asp?diyu=3">澄迈</a></div>
                </td>
                <td width="53" bgcolor="#EDB7D1"><img src="image/j1.gif" width="9" height="10"> 
                  <a href="listdiyu.asp?diyu=4">临高</a></td>
              </tr>
              <tr> 
                <td width="53" bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listdiyu.asp?diyu=5">儋州</a></div>
                </td>
                <td width="53" bgcolor="#EDB7D1"><img src="image/j1.gif" width="9" height="10"> 
                  <a href="listdiyu.asp?diyu=6">琼海</a></td>
              </tr>
              <tr> 
                <td width="53" bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listdiyu.asp?diyu=7">定安</a></div>
                </td>
                <td width="53" bgcolor="#EDB7D1"><img src="image/j1.gif" width="9" height="10"><a href="listdiyu.asp?diyu=8"> 
                  万宁</a></td>
              </tr>
              <tr> 
                <td width="53" bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listdiyu.asp?diyu=9">屯昌</a></div>
                </td>
                <td width="53" bgcolor="#EDB7D1"><img src="image/j1.gif" width="9" height="10"> 
                  <a href="listdiyu.asp?diyu=10">文昌</a></td>
              </tr>
              <tr> 
                <td width="53" bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listdiyu.asp?diyu=11">昌江</a></div>
                </td>
                <td width="53" bgcolor="#EDB7D1"><img src="image/j1.gif" width="9" height="10"> 
                  <a href="listdiyu.asp?diyu=12">东方</a></td>
              </tr>
              <tr> 
                <td width="53" bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listdiyu.asp?diyu=13">三亚</a></div>
                </td>
                <td width="53" bgcolor="#EDB7D1"><img src="image/j1.gif" width="9" height="10"> 
                  <a href="listdiyu.asp?diyu=14">陵水</a></td>
              </tr>
              <tr> 
                <td width="53" bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listdiyu.asp?diyu=15">保亭</a></div>
                </td>
                <td width="53" bgcolor="#EDB7D1"><img src="image/j1.gif" width="9" height="10"> 
                  <a href="listdiyu.asp?diyu=16">琼中</a></td>
              </tr>
              <tr> 
                <td width="53" bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listdiyu.asp?diyu=17">白沙</a></div>
                </td>
                <td width="53" bgcolor="#EDB7D1"><img src="image/j1.gif" width="9" height="10"> 
                  <a href="listdiyu.asp?diyu=18">乐东</a></td>
              </tr>
              <tr> 
                <td width="53" bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listdiyu.asp?diyu=19">五指山</a></div>
                </td>
                <td width="53" bgcolor="#EDB7D1"><img src="image/j1.gif" width="9" height="10"> 
                  <a href="listdiyu.asp?diyu=20">其它</a></td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      <table width="125" border="0" cellspacing="1" class="9p" cellpadding="0" bgcolor="#CC3366">
        <tr> 
          <td> 
            <div align="center"><font color="#FFFFFF">类型分类</font></div>
          </td>
        </tr>
        <tr> 
          <td bgcolor="#FFFFFF"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="2" class="9p" bgcolor="#CCFFFF" align="center">
              <tr> 
                <td bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=1">电脑网络</a></div>
                </td>
              </tr>
              <tr> 
                <td bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=2">免费资源</a></div>
                </td>
              </tr>
              <tr> 
                <td bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=3">休闲娱乐</a></div>
                </td>
              </tr>
              <tr> 
                <td bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=4">文学艺术</a></div>
                </td>
              </tr>
              <tr> 
                <td bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=5">游戏世界</a></div>
                </td>
              </tr>
              <tr> 
                <td bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=6">音乐天堂</a></div>
                </td>
              </tr>
              <tr> 
                <td bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=7">体育生活</a></div>
                </td>
              </tr>
              <tr> 
                <td bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=8">程序设计</a></div>
                </td>
              </tr>
              <tr> 
                <td bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=9">商贸金融</a></div>
                </td>
              </tr>
              <tr> 
                <td bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=10">科技咨讯</a></div>
                </td>
              </tr>
              <tr> 
                <td bgcolor="#EDB7D1"> <img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=11">社会公益</a></td>
              </tr>
              <tr> 
                <td bgcolor="#EDB7D1"> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=12">另类其它</a></div>
                </td>
              </tr>
              <tr> 
                <td height="17" bgcolor="#EDB7D1"> 
                  <div align="center"></div>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
    <td height="42" width="5" valign="top"></td>
    <td height="42" width="630" valign="top"> 
      <table width="620" border="0" cellspacing="0" cellpadding="0" align="center" class="9p">
        <tr> 
          <td colspan="4" valign="top"> 
            <div align="center"><font color="#FFFFFF"><br>
              <b>搜 索 结 果</b></font><font color="#cc3366"> 
              <%
   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 "没有填写搜索内容！"
	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%>
              </font></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="630" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td bgcolor="#CC3366" height="26"> 
                  <div align="right"><font color="#FFFFFF">共找到<b> <%=Rs.RecordCount%> 
                    </b>个站点   
                    <% 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%>条记录/页</font></div>  
                </td>
              </tr>
              <tr>
                <td bgcolor="#FFFFFF"> 
                  <table width=620 align=center border=0 cellspacing=1 cellpadding=2 bgcolor=#EDB7D1  class="9p">
                    <tr bgcolor=#D7FFDD height=20 style='color:#ffffff' align=center> 
                      <td align=left width="147" bgcolor="#EDB7D1"> 
                        <div align="center"><font color="#666666">站点名称</font></div>
                      </td>
                      <td width="115" bgcolor="#EDB7D1"><font color="#666666">网站所有</font></td>
                      <td width="224" bgcolor="#EDB7D1"> 
                        <div align="center"><font color="#666666">简介</font></div>
                      </td>
                      <td width="52" bgcolor="#EDB7D1"> 
                        <div align="center"><font color="#666666">得票</font></div>
                      </td>
                      <td width="56" bgcolor="#EDB7D1"> 
                        <div align="center"><font color="#666666">浏览数</font></div>
                      </td>
                      <%                                                                                                                                                                                                                                                                                                                                                                                             
NumRows=0                                                                                                                                                                                                                                                                                                                                                                                                  
 do while not rs.eof and NumRows < rs.PageSize                                                                                                                                                                                                                                                                                                                                                                                                      
 %>
                    <tr bgcolor=#FFFFFF > 
                      <td width="147"> 
                        <div align="left"><a href="showinfo.asp?ID=<%=Cstr(rs("pickid"))%>" target="_blank"><%=rs("picksite")%></a></div>
                      </td>
                      <td width="115"><font color="#FFFFFF"><font color="#000000"><%=rs("pickname")%></font></font></td>
                      <td width="224"> 
                        <div align="left"></div>
                        <%=rs("pickmemo")%> </td>
                      <td width="52"><%=rs("pickvote")%></td>
                      <td width="56"><%=rs("pickvisitor")%></td>
                    </tr>
                    <%                                                                                                                                                                                                                                                                                                                                                                                                 
 rs.movenext                                                                                                                                                                                                                                                                                                                                                                                                 
 NumRows=NumRows+1                                                                                                                                                                                                                                                                                                                                                                                                 
 loop                                                                                                                                                                                                                                                                                                                                                                                                 
 %>
                  </table>
                </td>
              </tr>
              <tr>
                <td bgcolor="#EDB7D1" height="20"> 
                  <div align="right"> </div>
                  <div align="right"> <font color="#FFFFFF">共找到<b> <%=Rs.RecordCount%> 
                    </b>个站点   
                    <% 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%>条记录/页</font></div>  
            </td>
              </tr>
            </table>
            <div align="right"></div>
            <%else%>
            <p align="center"><font color="#cc3366">Sorry,没有找到！</font><br>
            </p>
            <%end if%>
            <%                                                                                                                                                                                                                                                                                                                                                                                                         
                                                                                                                                                                                                                                                                                                                                                                                 
rs.close                                                                                                                                                                                                                                                                                                                                                                                     
   set rs=nothing                                                                                                                                                                                                                                                                                                                                                                        
conn.close                                                                                                                                                                                                                                                                                                                             
set conn=nothing                                                                                                                                                                                                                                                                                                                                                                                                         
 %>
            <br>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<div align="center"><!--#include file="bottom.htm" -->
</div>
</body>
</html>
