search.asp

一个超市管理系统

<!-- #include file="setup.asp" -->
<%
if Request.Cookies("username")="" then
error("<li>您还还未<a href=login.asp>登陆</a>社区")
end if

top
%>
<title>搜索帖子</title>
<script>
var i=0;
function formCheck(){i++;if (i>1) {document.form.submit1.disabled = true;}return true;}
</script>
<table width=97% align="center" border="0">
<tr>
<td vAlign="top" width="30%">
<img src="images/logo.gif" border="0"></td>
<td vAlign="center" align="top">　<img src="images/closedfold.gif" border="0">　<a href=Default.asp?menu=listtitle><%=clubname%></a><br>
　<img src="images/bar.gif" border="0"><img src="images/openfold.gif" border="0">　搜索帖子</td>
</tr>
</table>




<form method="post" action="searchok.asp" name=form>


<div align="center">
<center>
<table height="207" cellSpacing="1" cellPadding="0" width="718" class=a2 border="0">
<tr>
<td width="708" colSpan="2" height="22" class=a1>
<p align="center">请输入要搜索的关键字</td>
</tr>
<tr>
<td vAlign="top" width="714" bgColor="#FFFFFF" colSpan="2" height="8">
<p align="center"><input size="40" name="content"></td>
</tr>
<tr>
<td width="714" class=a1 colSpan="2" height="22">
<p align="center">搜索选项</td>
</tr>
<tr>
<td width="210" height="24" bgcolor="#FFFFFF">
<p align="right"><font style="FONT-SIZE: 9pt">作者搜索</font><input type="radio" value="author" name="search"></td>
<td vAlign="top" width="501" height="22" bgcolor="#FFFFFF">
&nbsp;<select size="1" name="searchxm">
<option selected value="username">搜索主题作者</option>
<option value="lastname">搜索最后回复作者</option>
</select></td>
</tr>
<tr>
<td width="210" height="21" bgcolor="#FFFFFF">
<p align="right"><span style="FONT-SIZE: 9pt">　　 关键字搜索</span><input type="radio" value="key" name="search" checked></td>
<td  vAlign="top" height="22" width="501" bgcolor="#FFFFFF">
&nbsp;<select size="1" name="searchxm2">
<!--<option value="topic&content">全部搜索</option>-->
<option selected value="topic">在主题中搜索关键字</option>
</select></td>
</tr>
<tr>
<td width="210" height="23" bgcolor="#FFFFFF">
<p align="right"><font style="FONT-SIZE: 9pt" color="#000000">日期范围</font></td>
<td vAlign="top" width="501" height="22" bgcolor="#FFFFFF">
&nbsp;<select size="1" name="TimeLimit">
<option value="">所有日期</option>
<option value="1">昨天以来</option>
<option value="5" selected>5天以来</option>
<option value="10">10天以来</option>
<option value="30">30天以来</option>
</select></td>
</tr>
<tr>
<td width="210" height="26" align="right" bgcolor="#FFFFFF"><font style="FONT-SIZE: 9pt" color="#000000">请选择要搜索的论坛</font></td>
<td vAlign="center" width="501" height="26" bgcolor="#FFFFFF">


&nbsp;<select name="forumid">
<option value="" selected>全部论坛</option>

<%

sql="select id,bbsname,classid from bbsconfig order by classid,id"
rs.Open sql,Conn
do while not rs.eof
Classid=Trim(Rs("classid"))
		if TClass <> Classid Then
		Response.write "<option style=BACKGROUND-COLOR:ECF5FF value=''>╋ "&Conn.Execute("Select classname From class where id="&Classid)(0)&"</option>"
		TClass = Classid
		end if
		
if Request("forumid")=""&rs("id")&"" then
selected=" selected"
else
selected=""
end if
		
	Response.write "<option value="&rs("id")&""&selected&">　├『"&rs("bbsname")&"』</option>"
	rs.movenext
loop
rs.close
%>
</select>




&nbsp; <input type="submit" name=submit1 value="开始搜索" onclick="return formCheck()"></td>
</tr>
<tr>
<td width="714" colSpan="2" height="22" class=a1>
<p align="center">　</td>
</tr>
</table>
</center>
</div>







<%


htmlend
%>