query.asp

8款下载系统源代码 2003-3-11 21:37:45 433 949k · 都很常见： 猛虎山庄、燕衔泥（飞扬的软件第二版用的就是他

<form method="post" action="ru_query.asp">
软件搜索：
<select name="action" size="1" style='background-color:#CCCCFF'>
<option value="title">程序名称</option>
<option value="content">程序简介</option>
</select>
<select name="classid" size="1" style='background-color:#CCCCFF'>
<%
 	set rs=server.createobject("adodb.recordset")
	sql="select * from Dclass"
	rs.open sql,conn,1,1
	if rs.bof and rs.eof then
%>
<option value="">未指定条件</option>
<%else%>
<option value="" selected>未指定条件</option>
<%
	do while not rs.eof
%>
<option value="<%=rs("classid")%>"><%=rs("class")%></option>
<%
	rs.movenext
	loop
	end if
	rs.close
%>
</select>
<select name="Nclassid" size="1" style='background-color:#CCCCFF'>
<%
	sql="select * from DNclass"
	rs.open sql,conn,1,1
	if rs.bof and rs.eof then
%>
<option value="" selected>未指定条件</option>
<%else%>
<option value="" selected>未指定条件</option>
<%
	do while not rs.eof
%>
<option value="<%=rs("Nclassid")%>"><%=rs("Nclass")%></option>
<%
	rs.movenext
	loop
	end if
%>
</select>
<input type="text" name="keyword" class=smallinput size=10 value="关键字" maxlength="50" style='background-color:#CCCCFF'>
<input type="submit" name="Submit" value="搜索" class="buttonface">
</form>