search.asp

使用说明： --- --- --- --- --- --- --- --- --- --- --- --- ---- 1：这是本人最早用过的

for x=page to rs.pagecount
Response.Write("&nbsp;<a href='"&request.servervariables("document_name")&"?Search="&Request("Search")&"&text="&Request("text")&"&page="&x&"'>"&Replace("["&x&"]","["&page&"]","<font color=#FF0000>"&page&"</font>")&"</a>&nbsp;")
next
Else
for x=page to page+10
Response.Write("&nbsp;<a href='"&request.servervariables("document_name")&"?Search="&Request("Search")&"&text="&Request("text")&"&page="&x&"'>"&Replace("["&x&"]","["&page&"]","<font color=#FF0000>"&page&"</font>")&"</a>&nbsp;")
next
End if
End if
End if
%><a href="?Search=<%=Request("Search")%>&text=<%=Request("text")%>&page=<%=page+1%>">下一页</a>
                <a href="?Search=<%=Request("Search")%>&text=<%=Request("text")%>&page=<%=rs.pagecount%>">最后一页</a></td>
              </tr>
            </table>
            </td>
          </tr>
        </table>
        </td>
        <td width="25%" valign="top">
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #CCCCCC; padding: 3" width="100%">
          <tr>
            <td width="100%">
            <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
              <tr>
                <td width="100%" height="27" background="img/bj_8.gif" align="center">
                <img border="0" src="img/sbbslogo_13.gif"></td>
              </tr>
            </table>
            </td>
          </tr>
          <tr>
            <td width="100%" align="center" height="60">
            <form method="GET" action="bbs/login.asp">
              <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
                <tr>
                  <td width="39%" align="center" height="25">用户名</td>
                  <td width="61%" height="25">
                  <input type="text" name="T1" size="12"></td>
                </tr>
                <tr>
                  <td width="39%" align="center" height="25">密&nbsp; 码</td>
                  <td width="61%" height="25">
                  <input type="password" name="T2" size="12"></td>
                </tr>
                <tr>
                  <td width="100%" align="center" colspan="2" height="25">
                  <input border="0" src="img/bbslogin.gif" name="I1" type="image">
                  <a href="bbs/reg.asp" target="_blank">
                  <img border="0" src="img/bbsreg.gif"></a> </td>
                </tr>
              </table>
              </td>
          </tr>
         </form>
        </table>
        </td>
      </tr>
      <tr>
        <td width="25%" valign="top">
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #CCCCCC; padding: 3" width="100%">
          <tr>
            <td width="100%">
            <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
              <tr>
                <td width="100%" height="27" background="img/bj_8.gif" align="center">
                <img border="0" src="img/s1_9.gif" width="132" height="27"></td>
              </tr>
            </table>
            </td>
          </tr>
          <tr>
            <td width="100%" style="padding: 5">
            <form method="GET" action="Search.asp">
              <p style="margin-top: 5; margin-bottom: 5" align="center">
              <select size="1" name="Search">
              <option selected value="按文档名搜索">按文档名搜索</option>
              <option value="按作者名搜索">按作者名搜索</option>
              <option value="按文档内容搜索">按内容搜索</option>
              </select></p>
              <p style="margin-top: 5; margin-bottom: 5" align="center">
              <input type="text" name="text" size="20"></p>
              <p style="margin-top: 5; margin-bottom: 5" align="center">
              <input border="0" src="img/search.gif" name="I1" type="image" width="64" height="23"></p>
            </td>
          </tr>
         </form>
            </td>
          </tr>
          </table>
        </td>
      </tr>
      <tr>
        <td width="25%" valign="top">
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #CCCCCC; padding: 3" width="100%">
          <tr>
            <td width="100%">
            <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
              <tr>
                <td width="100%" height="27" background="img/bj_8.gif" align="center">
                其它栏目</td>
              </tr>
            </table>
            </td>
          </tr>
          <tr>
            <td width="100%" style="padding: 5">
            　</td>
          </tr>
          </table>
        </td>
      </tr>
      <tr>
        <td width="25%" valign="top">
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #CCCCCC; padding: 3 ;word-break:break-all" width="100%">
          <tr>
            <td width="100%">
            <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse ;word-break:break-all" width="100%">
              <tr>
                <td width="100%" height="27" background="img/bj_8.gif" align="center">
                <img border="0" src="img/s2_9.gif" width="132" height="27"></td>
              </tr>
            </table>
            </td>
          </tr>
          <tr>
            <td width="100%" style="padding: 5">
            <%
            set rsnew = Server.CreateObject("adodb.recordset")
            rsnew.open "select Top 20 id,title from title where tshow=true order by id desc ",conn,1,3
            if not rsnew.eof then
            for inew = 1 to rsnew.recordcount
            %>
            <font size="1" color="#808080">●</font><a href="article.asp?id=<%=rsnew("id")%>&title=<%=rsnew("title")%>"><%=rsnew("title")%></a><br>
            <%
            rsnew.movenext
            if rsnew.eof then exit for 
            next
            End if
            rsnew.close
            set rsnew = nothing
            %>
            </td>
          </tr>
          </table>
        </td>
      </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td width="100%" height="15" style="padding-left: 5; padding-right: 5">
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #C0C0C0; padding-left: 3; padding-right: 3; padding-top: 3; padding-bottom: 3" width="100%">
      <tr>
        <td width="100%" height="30">
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bgcolor="#F0F0F0" height="100%">
          <tr>
            <td width="9%" bgcolor="#666666">
            <p align="center"><font color="#FFFFFF">推荐主题</font></td>
            <td width="91%">　</td>
          </tr>
        </table>
        </td>
      </tr>
      <tr>
        <td width="100%">
        <%
        set rsx = Server.CreateObject("adodb.recordset")
        rsx.open "select Top 5 id,title from title where tshow=true order by top desc ",conn,1,3
        if not rsx.eof then
        for ix = 1 to rsx.recordcount
        Response.Write("<a herf=article.asp?id="&rsx("id")&"&title="&rsx("title")&"><font size='1' color='#808080'>●</font>"&rsx("title")&"</a>")
        rsx.movenext
        if rsx.eof then exit for
        next
        end if
        rsx.close
        set rsx = nothing
        rs.close
        set rs = nothing
        %>
        </td>
      </tr>
    </table>
    </td>
  </tr>
  <tr>
    <td width="100%" height="15"><hr noshade color="#C0C0C0" size="1"></td>
  </tr>
  <tr>
    <td width="100%" height="50">
    <p align="center" style="margin-top: 5; margin-bottom: 5; line-height:100%">建议使用：1024×768 或 
    800×600 分辨率 IE 5.0 以上版本浏览本网站</p>
    <p align="center" style="margin-top: 5; margin-bottom: 5; line-height:100%">
    <font face="Arial">Copyright &copy; 2004 - 2006 <font color="#FF0000">
    www.9y.com.cn</font> Inc. All Rights Reserved</font>&nbsp; 版权所有：九亿网</p>
    </td>
  </tr>
</table>

  </center>
</div>

</body>

</html>