VB查询

 <%
  dim leixing,didian,szsq,zhuangxiu,chaoxiang,hot,riqi,jiage1,jiage2,mianji1,mianji2,louceng1,louceng2,huxing,huxing1,xqmc,id,bigclassname
  bigclassname=trim(request.Form("jyfs"))
leixing = trim(request.Form("leixing"))
didian = trim(request.Form("didian"))
szsq = trim(request.Form("szsq"))
zhuangxiu = trim(request.Form("zhuangxiu"))
chaoxiang = trim(request.Form("chaoxiang"))
hot = trim(request.Form("hot"))
riqi = trim(request.Form("riqi"))
jiage1 = trim(request.Form("jiage1"))
jiage2 = trim(request.Form("jiage2"))
mianji1 = trim(request.Form("mianji1"))
mianji2 = trim(request.Form("mianji2"))
mianji = trim(request.Form("mianji"))
louceng1 = trim(request.Form("louceng1"))
louceng2 = trim(request.Form("louceng2"))
huxing = trim(request.Form("huxing"))
huxing1 = trim(request.Form("huxing1"))
xqmc = trim(request.Form("xqmc"))
id = trim(request.Form("id"))
danjia=trim(request.Form("danjia"))
 %>

 

 

 <select
      style="FONT-SIZE: 9pt; HEIGHT: 20px"
      οnchange="selectMenuUrl(this.value,this.name)" size="1" name="zhuangxiu">
        <option value="" <%if(zhuangxiu="") then response.Write("selected") %>>装修程度</option>
        <option value="清水房"  <%if(zhuangxiu="清水房") then response.Write("selected") %>>清水房</option>
        <option value="简单装修" <%if(zhuangxiu="简单装修") then response.Write("selected") %>>简单装修</option>
        <option value="中等装修" <%if(zhuangxiu="中等装修") then response.Write("selected") %>>中等装修</option>
        <option value="高级装修" <%if(zhuangxiu="高级装修") then response.Write("selected") %>>高级装修</option>
        <option value="豪华装修" <%if(zhuangxiu="豪华装修") then response.Write("selected") %>>豪华装修</option>
        <option value="其他" <%if(zhuangxiu="其他") then response.Write("selected") %>>--其他--</option>
      </select>
      <select
      style="FONT-SIZE: 9pt" οnchange="selectMenuUrl(this.value,this.name)"
      name="chaoxiang">
        <option value="" selected="selected" <%if(chaoxiang="") then response.Write("selected") %>>房屋朝向</option>
        <option
        value="南北" <%if(chaoxiang="南北") then response.Write("selected") %>>南北</option>
        <option value="东西" <%if(chaoxiang="东西") then response.Write("selected") %>>东西</option>
        <option
        value="双阳" <%if(chaoxiang="双阳") then response.Write("selected") %> >双阳</option>
        <option value="双东" <%if(chaoxiang="双东") then response.Write("selected") %>>双东</option>
        <option
        value="双西" <%if(chaoxiang="双西") then response.Write("selected") %>>双西</option>
        <option value="双北" <%if(chaoxiang="双北") then response.Write("selected") %>>双北</option>
        <option
        value="东南" <%if(chaoxiang="东南") then response.Write("selected") %>>东南</option>
        <option value="东北" <%if(chaoxiang="东北") then response.Write("selected") %>>东北</option>
        <option
        value="西南" <%if(chaoxiang="西南") then response.Write("selected") %>>西南</option>
        <option value="西北" <%if(chaoxiang="西北") then response.Write("selected") %>>西北</option>
        <option
        value="其他" <%if(chaoxiang="其他") then response.Write("selected") %>>--其他--</option>
      </select>
      <select style="FONT-SIZE: 9pt"
      οnchange="selectMenuUrl(this.value,this.name)" size="1" name="hot">
      <option value="">是否推荐</option>
        <option value="1" <%if(hot="1") then response.Write("selected") %>>推荐房源</option>
        <option value="2" <%if(hot="2") then response.Write("selected") %>>精品房源</option>
      </select>
      <select
      style="FONT-SIZE: 9pt" οnchange="selectMenuUrl(this.value,this.name)" size="1"
      name="riqi">
        <option value="180" <%if(riqi="180") then response.Write("selected") %>>180天内</option>
        <option
        value="1" <%if(riqi="1") then response.Write("selected") %>>1天内</option>
        <option value="3" <%if(riqi="3") then response.Write("selected") %>>3天内</option>
        <option
        value="7" <%if(riqi="7") then response.Write("selected") %>>7天内</option>
        <option value="30" <%if(riqi="30") then response.Write("selected") %>>30天内</option>
        <option value="365" <%if(riqi="365") then response.Write("selected") %>>365天内</option>
      </select>
    </span></td>
  </tr>
  <tr  height="30px">
    <td><strong>房屋座落：</strong>
    <select name="didian" style="width:90px;">
      <option value="">不限</option>
      <option value="沈河区" <%if(didian="沈河区") then response.Write("selected") %>>沈河区</option>
      <option value="和平区" <%if(didian="和平区") then response.Write("selected") %>>和平区</option>
      <option value="大东区" <%if(didian="大东区") then response.Write("selected") %>>大东区</option>
      <option value="铁西区" <%if(didian="铁西区") then response.Write("selected") %>>铁西区</option>
      <option value="皇姑区" <%if(didian="皇姑区") then response.Write("selected") %>>皇姑区</option>
      <option value="东陵区" <%if(didian="东陵区") then response.Write("selected") %>>东陵区</option>
      <option value="于洪区" <%if(didian="于洪区") then response.Write("selected") %>>于洪区</option>
      <option value="浑南" <%if(didian="浑南") then response.Write("selected") %>>浑南</option>
      <option value="苏家屯" <%if(didian="苏家屯") then response.Write("selected") %>>苏家屯</option>
      <option value="其他" <%if(didian="其他") then response.Write("selected") %>>其他</option>
    </select> 　
    <strong>价&nbsp;&nbsp;&nbsp;&nbsp;格：</strong>
    <select name="danjia" id="danjia">
      <option value="">不限</option>
      <option value="499" <%if(danjia="499") then response.Write("selected") %>>500元以下</option>
      <option value="500" <%if(danjia="500") then response.Write("selected") %>>500元-1000元</option>
      <option value="1000" <%if(danjia="1000") then response.Write("selected") %>>1000元-2000元</option>
      <option value="2000" <%if(danjia="2000") then response.Write("selected") %>>2000元-4000元</option>
      <option value="4000" <%if(danjia="4000") then response.Write("selected") %>>4000元-6000元</option>
      <option value="6000" <%if(danjia="6000") then response.Write("selected") %>>6000元-8000元</option>
      <option value="8000" <%if(danjia="8000") then response.Write("selected") %>>8000元以上</option>
    </select> 　
    <strong>户&nbsp;&nbsp;&nbsp;&nbsp;型：</strong>
    <select name="huxing">
      <option value="">不限</option>
      <option value="1" <%if(huxing="1") then response.Write("selected") %>>一室</option>
      <option value="2" <%if(huxing="2") then response.Write("selected") %>>二室</option>
      <option value="3" <%if(huxing="3") then response.Write("selected") %>>三室</option>
      <option value="4" <%if(huxing="4") then response.Write("selected") %>>四室</option>
      <option value="5" <%if(huxing="5") then response.Write("selected") %>>五室</option>
      <option value="6" <%if(huxing>"5") then response.Write("selected") %>>五室以上</option>
    </select>　
    <select name="huxing1" id="huxing1">
      <option value="">不限</option>
      <option value="1" <%if(huxing1="1") then response.Write("selected") %>>1厅</option>
      <option value="2" <%if(huxing1="2") then response.Write("selected") %>>2厅</option>
    </select>

 

 

 <strong>面　 积：</strong>
  <select name="mianji" id="mianji">
    <option value="">不限</option>
    <option value="49" <%if(mianji="49") then response.Write("selected") %>>50平以下</option>
    <option value="50" <%if(mianji="50") then response.Write("selected") %>>50平-70平</option>
    <option value="70" <%if(mianji="70") then response.Write("selected") %>>70平-90平</option>
    <option value="90" <%if(mianji="90") then response.Write("selected") %>>90平-110平</option>
    <option value="110" <%if(mianji="110") then response.Write("selected") %>>110平-200平</option>
    <option value="200" <%if(mianji="200") then response.Write("selected") %>>200平-300平</option>
    <option value="300" <%if(mianji="300") then response.Write("selected") %>>300平以上</option>
    </select>
  　　<strong>房屋类型：</strong>
 
  <select name="leixing" id="leixing">
    <option value="">不限</option>
    <option value="住宅" <%if(leixing="住宅") then response.Write("selected") %>>住宅 </option>
    <option value="半越住宅" <%if(leixing="半越住宅") then response.Write("selected") %>>半越住宅 </option>
    <option value="全越住宅" <%if(leixing="全越住宅") then response.Write("selected") %>>全越住宅</option>
    <option value="门市房" <%if(leixing="门市房") then response.Write("selected") %>>门市房</option>
    <option value="商住" <%if(leixing="商住") then response.Write("selected") %>>商住</option>
    <option value="综合" <%if(leixing="综合") then response.Write("selected") %>>综合</option>
    <option value="酒店公寓" <%if(leixing="酒店公寓") then response.Write("selected") %>>酒店公寓</option>
    <option value="写字间" <%if(leixing="写字间") then response.Write("selected") %>>写字间</option>
    <option value="别墅" <%if(leixing="别墅") then response.Write("selected") %>>别墅</option>
    <option value="厂房" <%if(leixing="厂房") then response.Write("selected") %>>厂房</option>
    <option value="仓库" <%if(leixing="仓库") then response.Write("selected") %>>仓库</option>
    <option value="车库" <%if(leixing="车库") then response.Write("selected") %>>车库</option>
    <option value="其他" <%if(leixing="其他") then response.Write("selected") %>>其他</option>
  </select>
  <span style="PADDING-LEFT: 6px">
  <input id="xqmc"
      οnblur="searchOnblur(this,false)" style="COLOR: #cccccc"
      οnclick="searchClick(this)" value="<%response.Write(xqmc)%>" name="xqmc" />
  </span>  <input class=button style="POSITION: relative" type=submit value=" 搜索小区 " name=B122 /></td>
  </tr>
</table>
</form>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="text-align:center;" class="ge1">
  <tr>
    <td bgcolor="#0099FF" class="ge">编号</td>
    <td bgcolor="#0099FF" class="ge">城区</td>
    <td bgcolor="#0099FF" class="ge">小区</td>
    <td bgcolor="#0099FF" class="ge">类型</td>
    <td bgcolor="#0099FF" class="ge">方式</td>
    <td bgcolor="#0099FF" class="ge">户型</td>
    <td bgcolor="#0099FF" class="ge">朝向</td>
    <td bgcolor="#0099FF" class="ge">面积</td>
    <td bgcolor="#0099FF" class="ge">楼层</td>
    <td bgcolor="#0099FF" class="ge">价格</td>
    <td bgcolor="#0099FF" class="ge">年限</td>
    <td bgcolor="#0099FF" class="ge">装修程度</td>
    <td bgcolor="#0099FF" class="ge">详情</td>
  </tr>
  <% dim lx
lx=request.QueryString("lx")
if bigclassname<>" " then
sql="select * from good1 where bigclassname='"&bigclassname&"' "
end if
if bigclassname="" then
sql="select * from good1 where (bigclassname='出租'or bigclassname='合租')"
end if
if leixing<>"" then
sql=sql&"and fwlx='"&leixing&"'"  
end if
if didian<>"" then
sql=sql&"and didian='"&didian&"'"  
end if
if szsq<>"" then
sql=sql&"and szsq='"&szsq&"'"  
end if
if zhuangxiu<>"" then
sql=sql&"and zxcd='"&zhuangxiu&"'"  
end if
if chaoxiang<>"" then
sql=sql&"and cx='"&chaoxiang&"'"  
end if
if hot="1" or lx="1" then
sql=sql&"and Firsttop=0"  
end if
if hot="2" or lx="2" then
sql=sql&"and FirstPage=0"  
end if
if riqi<>"" then
riqi=-riqi
riqi=dateadd("d",now(),riqi)
a=now()
sql=sql&"and AddDate between #"&riqi&"# and #"&a&"#"  
end if

if jiage1<>"" and jiage2<>"" then
if   IsNumeric(jiage1)   then  
      jiage1=cint(jiage1)
 
end if
if   IsNumeric(jiage2)   then  
      jiage2=cint(jiage2)
   end if
sql=sql&"and zongjia between "&jiage1&" and "&jiage2&""   
end if
if mianji1<>"" and mianji2<>"" then
if   IsNumeric(mianji1)   then  
      mianji1=cint(mianji1)
 
end if
if   IsNumeric(mianji2)   then  
      mianji2=cint(mianji2)
   end if

sql=sql&"and mianji between "&mianji1&" and "&mianji2&""   
end if
if louceng1<>"" and louceng2<>"" then
if   IsNumeric(louceng1)   then  
      louceng1=cint(louceng1)
 
end if
if   IsNumeric(louceng2)   then  
      louceng2=cint(louceng2)
   end if
sql=sql&"and louceng between "&louceng1&" and "&louceng2&""  
end if
if huxing<>"" then
sql=sql&"and jishi='"&huxing&"'"  
end if
if huxing1<>"" then
sql=sql&"and jiting='"&huxing1&"'"  
end if
if danjia<>"" then
if danjia="499" then
sql=sql&"and danjia between 0 and 499 " 
end if

if danjia="500" then
sql=sql&"and danjia between 500 and 1000 " 
end if

if danjia="1000" then
sql=sql&"and danjia between 1000 and 2000 " 
end if

if danjia="2000" then
sql=sql&"and danjia between 2000 and 4000 " 
end if

if danjia="4000" then
sql=sql&"and danjia between 4000 and 6000 " 
end if

if danjia="6000" then
sql=sql&"and danjia between 6000 and 8000 " 
end if

if danjia="8000" then
sql=sql&"and danjia > 8000 " 
end if

end if

if mianji<>"" then

if mianji="49" then
sql=sql&"and mianji between 0 and 49 " 
end if

if mianji="50" then
sql=sql&"and mianji between 50 and 70 " 
end if

if mianji="70" then
sql=sql&"and mianji between 70 and 90 " 
end if

if mianji="90" then
sql=sql&"and mianji between 90 and 110 "
end if

if mianji="110" then
sql=sql&"and mianji between 110 and 200 " 
end if

if mianji="200" then
sql=sql&"and mianji between 200 and 300 " 
end if 

if mianji="300" then
sql=sql&"and mianji >300 " 
end if

end if

if xqmc<>"" then
sql=sql&"and Title like '%"&xqmc&"%'"  
end if
sql=sql&"and shenhe=1 order by id desc"
if id<>"" then
sql="select * from good1 where id like '"&id&"' and shenhe=1"
end if