typeto=trim(request("type")) %>
房源信息查询
Dim rs__myDiduan
rs__myDiduan = "%"
if(Request("txtDiduan") "") then rs__myDiduan = Request("txtDiduan")
Dim rs__myFangx
rs__myFangx = "%"
if(Request("txtFangx") "") then rs__myFangx = Request("txtFangx")
Dim rs__myTaox
rs__myTaox = "%"
if(Request("txtTaox") "") then rs__myTaox = Request("txtTaox")
Dim rs__myMianj
rs__myMianj = "%"
if(Request("txtMianj") "") then rs__myMianj = Request("txtMianj")
Dim rs__myJiag
rs__myJiag = "%"
if(Request("txtJiag") "") then rs__myJiag = Request("txtJiag")
%>
ssj=date
xzsj=request("txtsj")
sj=DateAdd("d",-xzsj,ssj)
%>
dim SearchValue,PagetoValue
SearchValue = "txtDiduan="&rs__myDiduan&"&txtFangx="&rs__myFangx&"&txtTaox="&rs__myTaox&"&txtMianj="&rs__myMianj&"&txtJiag="&rs__myJiag&"&txtsj="&xzsj
PagetoValue = rs__myDiduan&"&txtFangx="&rs__myFangx&"&txtTaox="&rs__myTaox&"&txtMianj="&rs__myMianj&"&txtJiag="&rs__myJiag&"&txtsj="&xzsj
%>
function newpage(htmlurl) {
var newwin=window.open(htmlurl,"newWin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,top=2,left=2,width=600,height=350");
newwin.focus();
return false;
}
dim MaxPerPage
dim sql
dim rs
dim gstBookID
dim totalPut
dim CurrentPage
dim TotalPages
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
{ }
.9size { font-family: "宋体"; font-size: 9pt; color: #000000; text-decoration: none}
.txt { font-family: "宋体"; font-size: 9pt; color: #000000; text-decoration: none; background-color: #FFFFFF}
.link { font-family: "宋体"; font-size: 9pt; color: #000000; text-decoration: underline; cursor: hand; page-break-before: auto; page-break-after: auto?, OffX=20, OffY=30, Positive=50); page-break-before: auto; page-break-after: auto}
a:hover { font-family: "宋体"; font-size: 9pt; color: #FFFFFF}
.10size { font-family: "宋体"; font-size: 8pt; color: #000000; text-decoration: none }
-->
set rs=server.createobject("adodb.recordset")
sql= "SELECT zid,Num,Diduan, Fangx, Taox, Mianj, M, Lc,Jiag, J, Xiaoqm, Tele, Content,Dat,fangshi,dj, "& typeto &".Dat FROM "& typeto &" WHERE Diduan LIKE '" + Replace(rs__myDiduan, "'", "''") + "' AND Fangx LIKE '" + Replace(rs__myFangx, "'", "''") + "' AND Taox LIKE '" + Replace(rs__myTaox, "'", "''") + "' AND M LIKE '" + Replace(rs__myMianj, "'", "''") + "' AND J LIKE '" + Replace(rs__myJiag, "'", "''") + "' AND Dat>=#" & sj& "# order by dat Desc "
rs.open sql,conn,1,1
if rs.eof and rs.bof then %> 还没有房源！
rs.pagesize=25
totalPut=rs.recordcount '记录总数
totalPage=rs.pagecount
MaxPerPage=rs.pagesize
if currentpage currentpage=1
end if
if currentpage>totalPage then
currentpage=totalPage
end if
if currentPage=1 then
showpages
showContent
showpages1
else
if (currentPage-1)*MaxPerPage rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark '移动到开始显示的记录位置
showpages
showContent
showpages1
else
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i,j
%>
编 号
所属区域
地 点
类 别
套 型
楼层
面积(M2)
response.Write("价 格")
else
response.Write("租 金")
end if %>
登记时间
详细内容
do while not (rs.eof or err)%>
查阅详情
if i>=MaxPerPage then exit do '循环时如果到尾部则先退出，如果记录达到页最大显示数，也退出
i=i+1
rs.movenext
loop
%>
符合条件的房源共页/条
end sub
sub showpages1()
dim n
n=totalPage
%>
共页/条房源
[首页]
[上一页]
[下一页]
[尾页]
第页/共页 转到：
selected
>
