%
' 分页显示
set adorst=server.createobject("adodb.recordset")
dim lngwhichpage
dim lngpagecount
dim lngpreviouspage
dim lngnextpage
dim adoprovider
lngwhichpage=request("whichpage")
'若为空,则转换为1
if lngwhichpage="" then
lngwhichpage=1
end if
'若输入的为非字数,则转换为1
if not isnumeric(lngwhichpage) then
lngwhichpage=1
end if
lngwhichpage=cint(lngwhichpage)
if lngwhichpage<1 then
lngwhichpage=1
end if
strsql="select * from house where (horse_type='门脸' or horse_type='库房' or horse_type='底商' or horse_type='大院' or horse_type='自建房' or horse_type='四合院' or horse_type='其他') and id_type='出租' order by datetime desc"
Adorst.open strsql, conn, 1 ,3
%>