<!--#include file="conn.asp"-->
<%Call head()
Call saycarda("站内搜索")
%>
<!--#INCLUDE file="../bbs/sy1.asp"-->

搜索内容：<br/>
<input name="findch" title="搜索内容" maxlength="20"/><br/>
<%Response.write "<select name='yxq' value='商品'>"
Response.write "<option value='价格'>价格</option>"
Response.write "<option value='二手'>二手</option>"
Response.write "<option value='商品'>商品</option>"
Response.write "<option value='货到付款'>货到付款</option>"
Response.write "<option value='中介'>中介</option>"
Response.write "<option value='特价'>特价</option>"
Response.write "</select>"%>
<anchor>搜
<go method='post' href='searchok.asp?sid=<%=sid%>'>
<postfield name='tj' value='$(tj)'/>
<postfield name='title' value='$(title)'/>
</go>
</anchor><br/><br/>
<%
set rsxl=Server.CreateObject("ADODB.Recordset")
rspl="select * from shop_lm order by pid asc"
rsxl.open rspl,connshop,1,2
if rsxl.eof then
   Response.write "暂无栏目！<br/>"
Else
dim j
j=1
do while ((not rsxl.EOF) and j <=cint(500))
%>
<a href='list.asp?dlid=<%=rsxl("id")%>&amp;sid=<%=sid%>'><%=ubb(rsxl("name"))%></a>
<%if j mod 4 =0 and j<>rsxl.RecordCount then response.write "<br/>"%>
<%
rsxl.Movenext  
j=j+1
loop
end if
%><br/><!--#include file="fanhui.asp"-->

<%Call headsay()
connshop.close
set connshop=nothing
%>