search.asp

三鸟个人网站源码。

                    <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>