<!--#include file="bbstop.asp"-->
<%	if memberclass = user_level7 or memberclass = user_level8 or memberclass = user_level9 then
		guestlist=""
	else
		guestlist=" where lockboard<>2"
	end if

   boardid=1
   if not (isNUll(request("boardid")) or isEmpty(request("boardid")) or (request("BoardID")="") ) then
      boardid=request("boardid")
   end if

   set rs=server.createobject("adodb.recordset")
   sql="select * from bbs_board "&guestlist&""
   rs.open sql,conn,1,1
   if rs.eof and rs.bof then
	Errmsg=Errmsg+"<br>"+"<li>还没有任何版面。"
	Founderr=true
   end if
   if Founderr=true then
	call Error()
   else
%>
<table cellpadding=0 cellspacing=0 border=0 width=762 bgcolor=#f9f9f9 align=center class=pian>
    <tr><td align=center>
<table cellpadding=6 cellspacing=1 border=0 width=500>
  <TBODY>
  <TR align=middle bgColor=#efefef>
    <TD colSpan=3 height=25><font color=red>论坛搜索(主题搜索支持多条件模糊查询)</font></TD></TR>
<form name="queryTopic" method="POST" action="queryResult.asp?type=1">
  <TR bgColor=#ffffff>
    <TD width=80 height=32>主　题：</TD>
    <TD height=32>
<input type="text" name="txtTopic" size="13"> 版面：<select class="smallSel" name="selBoard" size="1">
		  	  <%
			  rs.movefirst
			  do while not rs.eof
                             if boardid=cstr(rs("boardid")) then
                                sel="selected"
                             else
                                sel=""
                             end if		    
                             response.write "<option " & sel & " value='"+CStr(rs("BoardID"))+"'>"+rs("Boardtype")+"</option>"+chr(13)+chr(10)
		             rs.movenext
		      loop
			  %>        
          </select></td><td><input type="submit" value="查 询" name="cmdTopic">
    </TD></tr>
</form>
<form name="queryUser" method="POST" action="queryResult.asp?type=2">
  <TR bgColor=#ffffff>
    <TD width=80 height=32>发言人：</TD>
    <TD height=32>
<input type="text" name="txtUser" size="13"> 版面：<select name="selBoard" size="1">
		  	  <%
			  rs.movefirst
			  do while not rs.eof
                             if boardid=cstr(rs("boardid")) then
                                sel="selected"
                             else
                                sel=""
                             end if		    
		             response.write "<option " & sel & " value='"+CStr(rs("BoardID"))+"'>"+rs("Boardtype")+"</option>"+chr(13)+chr(10)
		             rs.movenext
    		          loop

			  %>        
          </select></td><td><input type="submit" value="查 询" name="cmdTopic">
    </TD></TR>
</form>
<form name="queryUser" method="POST" action="queryResult.asp?type=3">
  <TR bgColor=#ffffff>
    <TD width=80 height=32>内　容：</TD>
    <TD height=32>
<input type="text" name="txtCon" size="13"> 版面：<select name="selBoard" size="1">
		  	  <%
			  rs.movefirst
			  do while not rs.eof
                             if boardid=cstr(rs("boardid")) then
                                sel="selected"
                             else
                                sel=""
                             end if		    
		             response.write "<option " & sel & " value='"+CStr(rs("BoardID"))+"'>"+rs("Boardtype")+"</option>"+chr(13)+chr(10)
		             rs.movenext
    		          loop
			  %>        
</select></td><td><input type="submit" value="查 询">
    </TD></TR>
</form>
<form name="queryUser" method="POST" action="queryResult.asp?type=4">
  <TR bgColor=#ffffff>
    <TD width=80 height=32><b> I&nbsp;D：</b></TD>
    <TD height=32>
<select name="selCompare" size="1">
 <option selected value="=">=</option>
 <option value=">">></option>
 <option value=">=">>=</option>
 <option value="<"><</option>
 <option value="<="><=</option>
 </select>
<input type="text" name="aid" size="6">  版面：<select name="selBoard" size="1">
		  	  <%
			  rs.movefirst
			  do while not rs.eof
                             if boardid=cstr(rs("boardid")) then
                                sel="selected"
                             else
                                sel=""
                             end if		    
		             response.write "<option " & sel & " value='"+CStr(rs("BoardID"))+"'>"+rs("Boardtype")+"</option>"+chr(13)+chr(10)
		             rs.movenext
    		          loop

			  %>        
</select></td><td><input type="submit" value="查 询"></TD></TR>
</form>
<form name="queryUser" method="POST" action="queryResult.asp?type=5">
  <TR bgColor=#ffffff>
    <TD width=80 height=32>新　贴：</TD>
    <TD height=32>
<select name="selTimeLimit" size="1">    <option value="一天">一天内&nbsp;</option>    <option value="一周">一周内</option>    <option value="一月">一月内</option>    <option value="一年">一年内</option>  </select>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;版面：<select class="smallSel" name="selBoard" size="1">		  	  
		  	  <%
			  rs.movefirst
			  do while not rs.eof
                             if boardid=cstr(rs("boardid")) then
                                sel="selected"
                             else
                                sel=""
                             end if		    
		             response.write "<option " & sel & " value='"+CStr(rs("BoardID"))+"'>"+rs("Boardtype")+"</option>"+chr(13)+chr(10)
		             rs.movenext
    		          loop
			rs.close
			set rs=nothing %>        
</select></td><td><input type="submit" value="查 询"></TD></TR>
</form>
<form name="queryUser" method="POST" action="queryResult.asp?type=6">
  <TR bgColor=#ffffff>
    <TD width=80 height=32>其他查询：</TD>
    <TD height=32>
<select name="selCompare" size="1">
          <option value="2">查询最新的50个帖子</option><option value="1">查询点击数为前10位的帖子</option></select></td><td><input type="submit" value="查 询" name="cmdTopic"></td>
</TR>
<TR><TD colSpan=3 height=25 bgColor=#efefef></TD></TR>
</TBODY></TABLE>
</td>
</TR>
</TBODY></TABLE>
<%end if%>
<!--#include file="bbsend.asp"-->