searchcondition.asp

ASPTest 网络基础网页设计

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
%>
<form method="POST" action="SearchResult.asp">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="63%" align="center" height="226">
  <tr>
    <td width="100%" colspan="2" align="center" height="21" bgcolor="#1E3A75">
    <font color="#FFFFFF">请选择搜索条件</font></td>
  </tr>
  <tr>
    <td width="28%" height="24" bgcolor="#B5C7EC">
    <input type="radio" value="UserID" name="rdSearchType" checked>按作者搜索：</td>
    <td width="72%" height="24" align="center" bgcolor="#B5C7EC">
    <select size="1" name="txtUserID">
      <%
      rs.Open "SELECT DISTINCT UserID FROM Lily_Article",cn
      Do While Not rs.Eof
        Response.Write "<option>"&rs(0)&"</option>"
        rs.MoveNext
      Loop
      rs.Close  
      %>
    </select></td>
  </tr>
  <tr>
    <td width="28%" height="24" bgcolor="#B5C7EC">
    <input type="radio" value="Title" name="rdSearchType">按标题搜索：</td>
    <td width="72%" height="24" align="center" bgcolor="#D8E1F5">
    标题包含<input type="text" name="txtTitle" size="25">的文章</td>
  </tr>
  <tr>
    <td width="28%" height="24" bgcolor="#B5C7EC">
    <input type="radio" value="Board" name="rdSearchType">按版面搜索：</td>
    <td width="72%" height="24" align="center" bgcolor="#B5C7EC">
    <select size="1" name="txtBoardName">
      <%
      rs.Open "SELECT DISTINCT BoardName FROM Lily_Article",cn
      Do While Not rs.Eof
        Response.Write "<option>"&rs(0)&"</option>"
        rs.MoveNext
      Loop
      rs.Close  
      %>
    </select></td>
  </tr>
  <tr>
    <td width="28%" height="24" bgcolor="#B5C7EC">
    <input type="radio" value="PostTime" name="rdSearchType">按发表时间搜索：</td>
    <td width="72%" height="24" align="center" bgcolor="#D8E1F5">
      <select size="1" name="txtYear">
        <%
        For i = 2003 To 2015
          Response.Write "<option>"&i&"</option>"
        Next
        %>
      </select>年
      <select size="1" name="txtMonth">
        <%
        For i = 1 to 12
          Response.Write "<option>"& i &"</option>"
        Next
        %>
      </select>月
      <select size="1" name="txtDay">
        <%
        For i = 1 to 31
          Response.Write "<option>"& i &"</option>"
        Next
        %>
      </select>日之后的全部文章
    </td>
  </tr>
  <tr>
    <td width="28%" height="24" bgcolor="#B5C7EC">
    <input type="radio" value="Content" name="rdSearchType">按文章内容搜索：</td>
    <td width="72%" height="24" align="center" bgcolor="#B5C7EC">
    内容包含<input type="text" name="txtContent" size="20">的文章</td>
  </tr>
  <tr>
    <td width="28%" height="24" bgcolor="#B5C7EC">
    <input type="radio" value="ReadCount" name="rdSearchType">按人气值搜索：</td>
    <td width="72%" height="24" align="center" bgcolor="#D8E1F5">人气值&gt;<input type="text" name="intReadCount" size="12"></td>
  </tr>
  <tr>
    <td width="28%" height="24" bgcolor="#B5C7EC">
    <input type="radio" value="ReplyCount" name="rdSearchType">按回复数搜索：</td>
    <td width="72%" height="24" align="center" bgcolor="#B5C7EC">回复数&gt;<input type="text" name="intReplyCount" size="12"></td>
  </tr>
  <tr>
    <td width="100%" colspan="2" align="center" height="29" bgcolor="#1E3A75">
    <input type="submit" value="确认搜索条件" name="btnSubmit">&nbsp; 
    <input type="reset" value="清空搜索条件" name="btnReset"></td>
  </tr>
</table>
</form>