%
Trentway=htmlencode(trim(request("Trentway")))
Tmoney=trim(request("Tmoney"))
Tmoney2=trim(request("Tmoney2"))
Ttype=htmlencode(trim(request("Ttype")))
Tarea=trim(request("Tarea"))
Troom=htmlencode(trim(request("Troom")))
Treference=htmlencode(trim(request("Treference")))
Tdate=trim(request("Tdate"))
Tkeyword=htmlencode(trim(request("Tkeyword")))
if Tmoney<>"" then Tmoney=numencode(Tmoney)
if Tmoney2<>"" then Tmoney2=numencode(Tmoney2)
if Tarea<>"" then Tarea=numencode(Tarea)
if Tdate<>"" then Tdate=numencode(Tdate)
sql = "select top 2500 *,(select E_class from E_city where E_city.ID=E_rent.E_area) as Tarea from E_rent where E_get=0 and E_city="& cint("021") &""
if Trentway<>"" then sql = sql & " and E_rentway='"& Trentway &"'"
if Tmoney<>"" then sql = sql & " and E_money>="& Tmoney &""
if Tmoney2<>"" then sql = sql & " and E_money<="& Tmoney2 &""
if Ttype<>"" then sql = sql & " and E_type='"& Ttype &"'"
if Tarea<>"" then sql = sql & " and E_area="& Tarea &""
if Tdate<>"" then
if Tdate=0 then
sql = sql & " and E_addtime<'"& (date-14) &"'"
else
sql = sql & " and E_addtime>='"& (date-Tdate+1) &"'"
end if
end if
if Tkeyword<>"" then sql = sql & " and (E_address like '%"&Tkeyword&"%' or E_xiaoqu like '%"&Tkeyword&"%' or E_company like '%"&Tkeyword&"%' or E_contact like '%"&Tkeyword&"%' or E_tel like '%"&Tkeyword&"%' or E_mobile like '%"&Tkeyword&"%' or E_email like '%"&Tkeyword&"%')"
sql = sql & " order by E_addtime desc,ID"
set rs = server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
rs.pagesize = 30
page = clng(request("page"))
if page<1 then page=1
if page>rs.pagecount then page = rs.pagecount
Tstr = "page#" & page & "#Trentway#" & request("Trentway") & "#Tmoney#" & request("Tmoney") & "#Tmoney2#" & request("Tmoney2") & "#Ttype#" & request("Ttype") & "#Tarea#" & request("Tarea") & "#Troom#" & request("Troom") & "#Treference#" & request("Treference") & "#Tdate#" & request("Tdate") & "#Tkeyword#" & request("Tkeyword")
%>