📄 hs.asp
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp" -->
<!--#include file="../inc/onlinecount.asp"-->
<!--#include file="../inc/config.inc"-->
<!--#include file="../top.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>房产信息-<%=homepage_title%></TITLE>
<%opendataconn%>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK
href="../img1/css.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.3790.2706" name=GENERATOR></HEAD>
<BODY class=bg1 text=#000000 bgColor=#ffffff leftMargin=0 topMargin=1>
<TABLE height=28 cellSpacing=0 cellPadding=0 width=980 align=center
background=../img/headbg4.gif border=0>
<TBODY>
<TR>
<TD align=right width=35>
<IMG height=13 src="../img/headarrow.gif"
width=17></TD>
<TD align=middle width=10></TD>
<TD class=TD_Place width=935><font color="#FFFFFF">您现在的位置：</font><a href="../index.aspx"><FONT color=#ffffff><%=homepage_title%> </FONT> </a>
<FONT color=#ffffff>>></FONT><font color="#FFFFFF"> 房产信息</font></TD></TR></TBODY></TABLE>
<TABLE height=7 cellSpacing=0 cellPadding=0 width=980 align=center
background=img/headbg5.gif border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<TABLE height=100 cellSpacing=0 cellPadding=0 width=970 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top width=260 height=100>
<!--#include file="left.asp"--></TD>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR></TR>
<TR>
</TR></TBODY></TABLE>
<TABLE height=28 cellSpacing=0 cellPadding=0 width=710 border=0 background="../img1/fj.jpg">
<TBODY>
<TR>
<TD width=5></TD>
<TD width=150 valign="middle" >
<b> </b><font color="#FF711B">房产信息</font></TD>
<TD width=5></TD>
<TD >区域：<%set rscyte=server.CreateObject("adodb.recordset")
sqlcyte= "select top 10 * from cyte"
rscyte.Open sqlcyte,conn,1,1
if not rscyte.eof then
do while not rscyte.eof
%><a href="hs.asp?fangwei=<%=rscyte("cyte")%>"><font color="#FF711B"><%=rscyte("cyte")%></a> </font><%
rscyte.movenext
loop
end if
rscyte.close
set rscyte=nothing
%></TD>
<TD width=5><IMG height=30 src="../img/news3a.gif"
width=5></TD></TR></TBODY></TABLE>
<TABLE height=3 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<div align="center">
<table width="98%" border="1" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="main" bordercolordark="#FFE2BB">
<tr class="p13">
<td width="14%" height="25" align="center" ><font color="#000000">
<strong style="font-weight: 400">类别</strong></font></td>
<td width="16%" height="25" align="center" ><font color="#000000">
<strong style="font-weight: 400">区域</strong></font></td>
<td width="15%" height="25" align="center" ><font color="#000000">
<strong style="font-weight: 400">户型</strong></font></td>
<td width="16%" height="25" align="center" >
<strong style="font-weight: 400">面积</strong></td>
<td width="13%" height="25" align="center"><font color="#000000">
<strong style="font-weight: 400">房价</strong></font></td>
<td width="12%" height="25" align="center" >
<font color="#000000">
<strong style="font-weight: 400">时间</strong></font></td>
<td width="11%" height="25" align="center"><font color="#000000">
<strong style="font-weight: 400">详情</strong></font></td>
</tr>
<%
userid=session("loginid")
dim curpage
if request("curpage")="" then
curpage=1
else
curpage=request("curpage")
end if
const numperpage=22
lflx=changechr(trim(request("lflx")))
xxlb=changechr(trim(request("xxlb")))
fangwei=changechr(trim(request("fangwei")))
fclx=changechr(trim(request("fclx")))
area=changechr(trim(request("area")))
reg_type=changechr(Trim(Request("reg_type")))
mj1=RtnReplaceInt(trim(request("mj1")),0)
mj2=RtnReplaceInt(trim(request("mj2")),9999)
jg1=RtnReplaceInt(trim(request("jg1")),0)
jg2=RtnReplaceInt(trim(request("jg2")),99999999)
set rs=server.createobject("adodb.recordset")
sql="select * from house where sh='1' "
if xxlb<>"" then
sql=sql & " and xxlb='"&xxlb&"'"
end if
if lflx<>"" then
sql=sql & " and lflx='"&lflx&"'"
end if
if mj1<>0 then
sql=sql & " and mianji>="&mj1&""
end if
if mj2<>9999 then
sql=sql & " and mianji<="&mj2&""
end if
if jg1<>0 then
sql=sql & " and jyprice>="&cint(jg1)&""
end if
if jg2<>99999999 then
sql=sql & " and jyprice<"&jg2&""
end if
if fangwei<>"" then
sql=sql & " and fangwei='"&fangwei&"'"
end if
if fclx<>"" then
sql=sql & " and fclx='"&fclx&"'"
end if
if area<>"" then
sql=sql & " and area like '%"&area&"%'"
end if
sql=sql & " order by dateandtime desc "
rs.open sql,conn,1,1
if rs.eof then
response.write "<p align=center style=line-height: 500% ><font size=2 color=#FF0000>对不起，没有符合条件的记录！</font>"
else
rs.pagesize=numperpage
dim totalpages
totalpages=rs.pagecount
rs.absolutepage=curpage
end if
dim count
count=0
do while not rs.eof and count<numperpage
If count mod 2=0 Then
bgcolor="#FEFAEE"
Else
bgcolor="#FFFFFF"
End If
%>
<tr onMouseOver="this.style.backgroundColor='#FEEAD3';" onMouseOut="this.style.backgroundColor='<%=bgcolor%>'" ><a href=hs_open.asp?id=<%=trim(rs("id"))%>></a> <style="cursor:hand" bgcolor="<%=bgcolor%>">
<td width="14%" height="24" align="center"> <div align="center">
<font color="#FF711B"><%xxlb_1=trim(rs("xxlb"))%></font>
<!--#include file="xxlb.asp"-->
</div></td>
<td width="16%" height="24" align="center"><font color="#FF711B"><%=left(rs("fangwei"),15)%></font></td>
<td width="15%" height="24" align="center"><font color="#FF711B"><%=left(rs("fclx"),15)%></font></td>
<td width="16%" height="24" align="center"><font color="#FF711B"><%=rs("mianji")%>㎡</font></td>
<td width="13%" height="24" align="center"><font color="#FF711B"><%=rs("jyprice")%><%=rs("jgdw")%></font></td>
<td width="12%" height="24" align="center"> <font color="#FF711B">
<%response.write year(rs("dateandtime")) & "-" & month(rs("dateandtime")) & "-" & day(rs("dateandtime"))%>
</font></td>
<td width="11%" height="24" align="center"><a href=hs_open.asp?id=<%=trim(rs("id"))%> class="linkone"><font color="#FF711B">查看</font></a></td>
</tr>
<%
rs.movenext
count=count+1
loop
rs.close
set rs=nothing
%>
<tr valign="middle">
<td height="30" colspan="7" align="center" bgcolor="#FFFFFF">
<div align="center">
<% if cint(curpage)<>1 then %>
<a href="hs.asp?curpage=1&xxlb=<%=xxlb%>&fangwei=<%=fangwei%>&fclx=<%=fclx%>&area=<%=area%><%=Server.HTMLEncode("®_type")%>=<%=reg_type%>" class="linkone">首页 </a>
<% else %>
首页
<% end if %>
<% if cint(curpage)>1 then %>
<a href="hs.asp?curpage=<%=curpage-1%>&xxlb=<%=xxlb%>&fangwei=<%=fangwei%>&fclx=<%=fclx%>&area=<%=area%><%=Server.HTMLEncode("®_type")%>=<%=reg_type%>" class="linkone">上一页 </a>
<% else %>
上一页
<% end if %>
<%if cint(curpage)<cint(totalpages) then %>
<a href="hs.asp?curpage=<%=curpage+1%>&xxlb=<%=xxlb%>&fangwei=<%=fangwei%>&fclx=<%=fclx%>&area=<%=area%><%=Server.HTMLEncode("®_type")%>=<%=reg_type%>" class="linkone"> 下一页
<% else %>
下一页
<% end if %>
<% if cint(curpage)<cint(totalpages) then %>
</a><a href="hs.asp?curpage=<%=totalpages%>&xxlb=<%=xxlb%>&fangwei=<%=fangwei%>&fclx=<%=fclx%>&area=<%=area%><%=Server.HTMLEncode("®_type")%>=<%=reg_type%>" class="linkone"> 末页
<% else %>
末页
<% end if %>
</a>
<input name="xxlb" type="hidden" id="xxlb" value="<%=xxlb%>">
第<font color="#FF0000"><%=curpage%></font>页/共<%=totalpages%>页 </div></td>
</tr>
</table>
</div>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE>
<!--#include file="../end.asp"-->
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -