关于多条件搜索的问题

<!--#include file="../zj64_publicfile/Const.asp" -->
<!--#include file="../zj64_publicfile/DB_Conn.asp" -->
<%
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
txt1=request.form("txt1")
txt2=request.form("txt2")
txt3=request.form("txt3")
txt4=request.form("txt4")
txt5=request.form("txt5")
txt6=request.form("txt6")
txt7=request.form("txt7")
txt8=request.form("txt8")
txt9=request.form("txt9")
txt10=request.form("txt10")
set rs=Server.CreateObject("ADODB.RecordSet")
'定义要查询的SQL语句
sql="select * form zj64_house where pass='是'"
'判断是否选择了房屋类型
if txt1="" then
sql=sql
else
sql_name=" and "+"wylx='"& txt1 &"'"
sql=sql+sql_name
end if
'判断是否选择了信息类型
if txt2="" then
sql=sql
else
sql_info=" and "+" fblx="& txt2 &""
sql=sql+sql_info
end if
'判断是否输入了户型数据
if txt3<>"" or txt4<>"" then
sql_hx=" and "+"hx like '"& txt3 & txt4 &"'"
sql=sql+sql_hx
else
sql=sql
end if
'判断是否选择了所在区域
if txt5 <>"" then
sql_qy=" and "+"qy='"& txt5 &"'"
sql=sql+sql_qy
else
sql=sql
end if
'判断是否输入了详细地址  
if txt6<>"" then
sql_address=" and "+"address like '"& txt6 &"'"
sql=sql+sql_address
else
sql=sql
end if
'判断是否输入了房屋面积
if txt7<>"" or txt8<>"" then
sql_area=" and "+"min_area>"& txt7 &" or max_area<"& txt8 &""
sql=sql+sql_area
else
sql=sql
end if
'判断是否输入了成交价格
if txt9<>"" or txt10 <>"" then
sql_price=" and "+"min_pay='"& txt9 &"' or max_pay='"& txt10 &"'"
sql=sql+sql_price
else
sql=sql
end if
sqlb=""&sql
response.write "sqlb="&sql
rs.open sqlb,conn,3,3
if rs.eof then
response.write"<script>alert('没有搜索到您要的任何结果，确定返回重新搜索！');history.back();</script>"
else
%>显示结果
<%end if%>


http://bbs.blueidea.com/thread-2179861-1-1.html

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: