<% CnSohoChinaButton7="a" uploadDir="../../upload/file/" iType=request.QueryString("iType") %> <%EnSohoChinaButton7="a"%>

<% Set objRs=Server.CreateObject("Adodb.RecordSet") if iType="" then iType=1 end if SqlStr="select * from tbRent where iClassId=4 and lang=2 and iType="&iType&" Order By isSubHome desc, iRentId desc" objRs.Open SqlStr,conn,1,1 If isEmpty(Request("DjjIntPcnt")) or Request("DjjIntPcnt")="" Then DjjIntPcnt=1 Else DjjIntPcnt=Cint(Request("DjjIntPcnt")) objRs.Pagesize =2'设定Pagesize属性的值 Total=objRs.PageCount '计算可显示页面的总数 objRs.AbsolutePage=DjjIntPcnt For I=1 to objRs.pagesize If objRs.EOF Then Exit For End If %> <% If objRs("vPhoto")<>"" Then %> " target="_blank">" width="188" height="121" border="0"> <% End If %> " target="_blank"><%=objRs("vTitle")%> <%=char(objRs("vNote"))%> <%If objRs("vUrl")<>"" Then Response.Write ""&objRs("vUrl")&""%> <% objRs.MoveNext next call PageControlEn(objRs.RecordCount,objRs.PageCount,DjjIntPcnt,"","") objRs.Close Set objRs=Nothing %>