searchbar.asp

广告策划中心整站程序

<%
sqlsearch="select distinct LarCode,LarSeq from ProdClass order by LarSeq asc"
set rssearch=Server.Createobject("ADODB.RecordSet")
rssearch.Open sqlsearch,conn,1,1
%>
<TABLE cellpadding=2 cellspacing=0 border=0 width=100% align=center height="8">
  <form name=fmsearch action="search.asp" method=post><TR>
	  <TD align=right width="92%" height="2"> 
        <select name="LarCode">
          <%
if rssearch.bof and rssearch.eof then
	response.write "<option value='' selected>目前还没分类</option>"
else
response.write "<option value='' selected>搜索商品类别</option>"
	Do While Not rssearch.eof %>
			  <option value="<%=rssearch("LarCode")%>"><%=rssearch("LarCode")%></option>
	<% if rssearch.eof then
		 exit do
	 end if
	rssearch.movenext
	Loop
end if
rssearch.close
set rssearch=nothing
%>
        </select>
        <INPUT TYPE="text" NAME="keywords" >
      </TD>
      <TD align="center" width="8%" height="2"> 
        <input type=image src="images/search.gif" border=0 name="search">
      </TD>
</TR></form>
</TABLE>