<% dim sql,rs,bookmark,totalput,currentpage,totalpages if isempty(request("ps")) or trim(request("ps"))="" then maxperpage=30 else maxperpage=chknum(left(trim(request("ps"))&" ",3)) end if if maxperpage<10 then maxperpage=10 if maxperpage>100 then maxperpage=100 if isempty(request("tp")) then classid=90 ElseIf trim(request("tp"))="" then classid=11 else classid=chknum(left(trim(request("tp"))&" ",2)) end if if isempty(request("vip")) or trim(request("vip"))="" then v_vip="" vip=" " else v_vip=chknum(left(request("vip")&" ",2)) if v_vip=1 then vip=" and vip >= 70" else vip=" and vip < 70" end if end if if isempty(request("qu")) or trim(request("qu"))="" then v_qu="" diduan=" " quchr=zone else v_qu=htmlencode(replace(request("qu"),"'","")) quchr=returnqu(qustr) If InStr(v_qu,",")=0 then If quchr="市区" Then diduan=" and diduan like '%区' " else diduan=" and diduan ='"&quchr&"' " end if else diduan=" and diduan in( '"&v_qu&"')" end if v_qu=urlencode(v_qu) end if if isempty(request("kwd")) or trim(request("kwd"))="" or instr(request("kwd"),"关键字")>0 then v_kwd="" keyword="" else v_kwd=htmlencode(replace(request("kwd"),"'","")) keyword=" and title like '%"&v_kwd&"%' " v_kwd=urlencode(v_kwd) end if if isempty(request("fx")) or trim(request("fx"))="" then v_fx="" fangx="" else v_fx=htmlencode(replace(lcase(request("fx")),"'","")) fangx=" and fangx ='"&v_fx&"'" v_fx=urlencode(v_fx) end if if isempty(request("hx")) or trim(request("hx"))="" then v_hx="" huxing="" else v_hx=htmlencode(replace(lcase(request("hx")),"'","")) huxing=" and huxing like '%"&v_hx&"%' " v_hx=urlencode(v_hx) end if if isempty(request("m1")) or trim(request("m1"))="" then v_sqrmin=0 Else v_sqrmin=chknum(left(request("m1")&" ",6)) end if if isempty(request("m2")) or trim(request("m2"))="" then v_sqrmax=99999999 else v_sqrmax=chknum(left(request("m2")&" ",6)) end If If v_sqrmax"/" then urlpix=urlpix & "/" end if end if staticfile="datim|filenamepix|zid" tempfield=split(staticfile,"|") customtype="*/**" filetype=".shtml" sitetitle=sitename siteurl="http://"&hosts&"/" imgtitle=Replace(label,"搜索","") imgurl="" description2="" dim tempstr1,tempstr2,tempstr3 Response.clear Response.ContentType = "text/xml" Response.CharSet="gb2312" response.write("") response.write("") response.write("") '这里是网站的标题 response.write("") response.write("") response.write(""&imgurl&"") '网站logo的地址 response.write(""&siteurl&"") '网站的地址 response.write("") response.write(""&description2&"") response.write("zh-cn") response.write(""&sitename&""&sitename&" "&siteurl&"") response.write("5"&siteurl&"zh-cn") set rs = Server.createobject("ADODB.Recordset") If classid<90 Then set rs=conn.execute(SQL) dim tempfile,i,tempstr4,tempstr5,tempyyyy,tempmm,tempdd do while not rs.Eof tempstr1=trim(replace(rs(title)," "," ")) tempstr2=trim(replace(rs(creator)," "," ")) tempstr3=return_RFC822_Date(rs(pubDate),"GMT") tempstr5=rs(pubDate) response.write("") response.write("") if statictype="1" then tempfile=customtype for i=0 to Ubound(tempfield) tempstr4=rs(tempfield(i)) if isdate(tempstr4)="True" and datetype<>0 then tempstr4=datetrans tempyyyy=year(tempstr5) tempmm=month(tempstr5) 'if len(tempmm)=1 then tempmm="0" & tempmm tempdd=day(tempstr5) 'if len(tempdd)=1 then tempdd="0" & tempdd tempstr4=trim(replace(tempstr4,"yyyy",tempyyyy)) tempstr4=trim(replace(tempstr4,"mm",tempmm)) tempstr4=trim(replace(tempstr4,"dd",tempdd)) end if if customtype="" then if left(tempstr4,1)="/" then tempstr4=left(tempstr4,len(tempstr4)-1) if right(tempstr4,1)<>"/" then tempstr4=tempstr4 & "/" tempfile=tempfile & tempstr4 else tempfile=trim(replace(tempfile,"*",tempstr4,1,1)) end if next tempfile=urlpix & tempfile if filetype<>"" then tempfile=tempfile & filetype response.write("") tempfile="" end if response.write("") response.write(""&tempstr3&"") response.write("") response.write("") rs.MoveNext loop set rs=nothing end If response.write("") response.write("") response.write("") response.write("") response.write("Sun, 25 Jul 2003 09:50:54 GMT") response.write(""&zone&"出租房源   RSS订阅
"&zone&"合租房源   RSS订阅
"&zone&"日租房源   RSS订阅
"&zone&"二手房源   RSS订阅
"&zone&"楼盘   RSS订阅
"&zone&"出售厂房仓库   RSS订阅
"&zone&"出租厂房仓库   RSS订阅
"&zone&"转让商铺   RSS订阅
"&zone&"出租商铺   RSS订阅
"&zone&"出售写字楼   RSS订阅
"&zone&"出租写字楼   RSS订阅
"&zone&"求租/求购   RSS订阅
"&zone&"求购二手房   RSS订阅
"&zone&"求租房   RSS订阅
"&zone&"求租房或合租   RSS订阅
"&zone&"合租需求   RSS订阅
"&zone&"求租日租房   RSS订阅
"&zone&"商品房求购   RSS订阅
"&zone&"求购厂房仓库   RSS订阅
"&zone&"求租厂房仓库   RSS订阅
"&zone&"求购商铺   RSS订阅
"&zone&"求租商铺   RSS订阅
"&zone&"求购写字楼   RSS订阅
"&zone&"求租写字楼   RSS订阅
]]>") response.write("") response.write("") response.write("") conn.Close set conn = Nothing Response.end function return_RFC822_Date(byVal myDate, byVal TimeZone) Dim myDay, myDays, myMonth, myYear Dim myHours, myMinutes, mySeconds myDate = DateAdd("h",-8,CDate(myDate)) myDay = EnWeekDayName(myDate) myDays = Right("00" & Day(myDate),2) myMonth = EnMonthName(myDate) myYear = Year(myDate) myHours = Right("00" & Hour(myDate),2) myMinutes = Right("00" & Minute(myDate),2) mySeconds = Right("00" & Second(myDate),2) return_RFC822_Date = myDay&", "& _ myDays&" "& _ myMonth&" "& _ myYear&" "& _ myHours&":"& _ myMinutes&":"& _ mySeconds&" "& _ " " & TimeZone end function function EnWeekDayName(inputDate) Dim Result select Case WeekDay(inputDate,1) Case 1:Result="Sun" Case 2:Result="Mon" Case 3:Result="Tue" Case 4:Result="Wed" Case 5:Result="Thu" Case 6:Result="Fri" Case 7:Result="Sat" end select EnWeekDayName = Result end function function EnMonthName(inputDate) Dim Result select Case Month(inputDate) Case 1:Result="Jan" Case 2:Result="Feb" Case 3:Result="Mar" Case 4:Result="Apr" Case 5:Result="May" Case 6:Result="Jun" Case 7:Result="Jul" Case 8:Result="Aug" Case 9:Result="Sep" Case 10:Result="Oct" Case 11:Result="Nov" Case 12:Result="Dec" end select EnMonthName = Result end function %>