search.asp

浪人文章系统

<table border="0" width="196" height="10">
 <form method="get" name="ListSearch" action="List.asp">
  <tr>
	<td width="64" height="26" align="center"><font class="BlackS12">选择分类</font></td>
	<td width="132" height="26" colspan="2"><select name="So" size="1" class="CSS_Select"><option value="" selected>所有分类</option>
<%
dim rsLS,GuKeyword
set rsLS=Server.CreateObject("Adodb.RecordSet")
GuSQL="select * from "&GuTablePrefix&"_Sort where So_Type='Sort' order by So_Order asc"
rsLS.open GuSQL,GuConn,1,1
do while not rsLS.eof
	Response.write "<option value="""&rsLS("So_ID")&""">"&rsLS("So_Name")&"</option>"
rsLS.movenext
loop
rsLS.close
set rsLS=Nothing
%></select></td>
  </tr>
  <tr>
	<td width="64" height="26" align="center"><font class="BlackS12">关键字词</font></td>
	<td width="94" height="26"><input name="GuKeyword" MaxLength="50" onFocus="JavaScript:GuKeyword.select();" style="width:80;" class="CSS_InputText" value="<%if GuKeyword<>"" then Response.write ""&GuKeyword&"" else Response.write ""&GuKeywordDefault&"" end if%>" title="输入关键字词"></td>
	<td width="38" height="26"><input type="submit" class="Button_Search" value="" title="搜索"></td>
  </tr>
 </form>
 </table>