张家港圆顺经纪有限公司

<% const iPageSize = 16 Dim strPage Dim iPage Dim iPageCount strPage=trim(request("ipage")) if strPage="" or (not IsNumeric(strPage)) then ipage=1 else iPage=Cint(strPage) end if Function FormatTime(intime) Dim strtime strtime=Year(intime)&"年"&Month(intime)&"月"&Day(intime)&"日 "&Hour(intime)&":" if len(cstr(Minute(intime)))=1 then strtime=strtime&"0" strtime=strtime&Minute(intime) FormatTime=strtime End Function Function FormatMJ(str_MJ) Dim tmp_mj Dim tmp_bol tmp_mj=split(str_MJ,"+") if tmp_mj(0)="0" or tmp_mj(1)="0" then tmp_bol=false else tmp_bol=true end if if tmp_mj(0)="0" and tmp_mj(1)="0" then FormatMJ="-" Exit Function else FormatMJ="" end if if tmp_mj(0)<>"0" then FormatMJ=FormatMJ&tmp_mj(0) end if if tmp_bol then FormatMJ=FormatMJ&"+" if tmp_mj(1)<>"0" then FormatMJ=FormatMJ&tmp_mj(1) end if End Function Dim str_search,str_class Dim z_class,z_dd,z_lx Dim bol_search Dim str_nv1 str_nv1="" str_search=trim(request("str_search")) str_class=trim(request("str_class")) z_class=trim(request("z_class")) z_dd=trim(request("z_dd")) z_lx=trim(request("z_lx")) bol_search=false if str_search<>"" then if bolCN(str_search) then if strlen(str_search)>10 then str_search=strleft(str_search,10) bol_search=true end if end if if bol_search then str_nv1=str_nv1&"&str_search="&str_search str_nv1=str_nv1&"&str_class="&str_class end if if z_class="" or z_class="-" then z_class="-" else str_nv1=str_nv1&"&z_class="&z_class end if if z_dd="" or z_dd="-" then z_dd="-" else str_nv1=str_nv1&"&z_dd="&z_dd end if if z_lx="" or z_lx="-" then z_lx="-" else str_nv1=str_nv1&"&z_lx="&z_lx end if if z_class<>"-" or z_dd<>"-" or z_lx<>"-" then bol_search=true if not bol_search then str_search="" str_class="" end if Dim ThisPage_Name ThisPage_Name = Request.ServerVariables("URL") & "?" Dim rs Dim sql set rs = Server.CreateObject("ADODB.Recordset") sql="select * from db_data where z_show=1 and z_del=0 and z_yx>{fn now()} " if bol_search then if str_search<>"" then if str_class="z_xxbh" then sql=sql&"and z_xxbh='"&str_search&"' " else sql=sql&"and (z_dz LIKE '%"&str_search&"%') " end if end if if z_class<>"-" then sql=sql&"and z_class='"&z_class&"' " if z_dd<>"-" then sql=sql&"and z_dd='"&z_dd&"' " if z_lx<>"-" then sql=sql&"and z_lx='"&z_lx&"' " end if sql=sql&"order by z_id desc" 'response.write sql 'response.end rs.Open sql,conn,1,1 Dim strList Dim i,j Dim str_nv,str_nv2 strList="" str_nv="" str_nv2="" i=0 j=0 strList=strList&""&vbcrlf strList=strList&" "&vbcrlf strList=strList&" "&vbcrlf strList=strList&" "&vbcrlf strList=strList&" "&vbcrlf strList=strList&" "&vbcrlf strList=strList&" "&vbcrlf strList=strList&" "&vbcrlf strList=strList&" "&vbcrlf strList=strList&" "&vbcrlf strList=strList&" "&vbcrlf strList=strList&" "&vbcrlf if (not rs.eof) then rs.pagesize = iPageSize iPageCount = rs.pagecount if iPage = "" or iPage<1 then iPage = 1 end if if iPage>iPageCount then iPage = iPageCount end if str_nv2="共"&iPageCount&"页当前第"&iPage&"页　" if iPage>1 then str_nv=str_nv&" [第一页]" str_nv=str_nv&" [上一页]" end if if iPage下一页]" str_nv=str_nv&" [最后一页]" end if rs.move (iPage-1)*iPageSize while (not rs.eof) and j"&vbcrlf else strList=strList&""&vbcrlf end if strList=strList&""&vbcrlf strList=strList&""&vbcrlf strList=strList&""&vbcrlf strList=strList&""&vbcrlf strList=strList&""&vbcrlf strList=strList&""&vbcrlf strList=strList&""&vbcrlf strList=strList&""&vbcrlf rs.movenext j=j+1 wend else strList=strList&""&vbcrlf end if strList=strList&"

信息编号	类别	地段	房屋地址	户型	楼层	面积	价格	更多
"&trim(rs("z_xxbh"))&"
"&trim(rs("z_xxbh"))&"	"&trim(rs("z_class"))&"	"&right(trim(rs("z_dd")),2)&"	"&trim(rs("z_dz"))&"	"&trim(rs("z_hx"))&"	"&trim(rs("z_lc"))&"	"&FormatMJ(trim(rs("z_mj")))&"	"&trim(rs("z_jg"))&"	详细
没有找到信息...

"&vbcrlf rs.close set rs=Nothing db_close %> 张家港圆顺经纪有限公司