hs.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 413 行 · 第 1/2 页
ASP
413 行
<td width="19" height="20"> <div align="center">
<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
<td width="235" height="20" style="CURSOR: hand" ><font color="#FFFFFF">
<style="CURSOR: hand" ><a href=liuchen_detail.asp?newsid=<%=trim(rs("newsid"))%>&sort=9>
<font color=#FFFFFF><%=left(trim(rs("topic")),15)%></a></font></td>
</tr>
<tr class="trline" height="1">
<td background="../img/back.gif" colspan="2" height="1"></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table></TD></TR>
<TR>
<TD colspan="2" height="22">
<p align="right"><a href="liuchen_more.asp?sort=9"><font color="#FFFFFF">更多</font></a></TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR></TR>
<TR>
</TR></TBODY></TABLE>
<TABLE height=30 cellSpacing=0 cellPadding=0 width=710 border=0>
<TBODY>
<TR>
<TD width=5><IMG height=30 src="../img/news1a.gif" width=5></TD>
<TD width=150 background=../img/news4a.gif>
<IMG height=9
src="../img/arr_w2.gif" width=9> <font color="#FFFFFF"><b>房产信息</b></font></TD>
<TD width=5><IMG height=30 src="../img/news2a.gif" width=5></TD>
<TD background=../img/news5a.gif> </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="0" cellpadding="0" cellspacing="1" bgcolor="#E7F7E6" class="main">
<tr bgcolor="#FFE1A4" class="p13">
<td width="6%" height="25" align="center" bgcolor="#D9F2D7"><font color="#000000"><strong>类别</strong></font></td>
<td width="11%" height="25" align="center" bgcolor="#D9F2D7"><font color="#000000"><strong>类型</strong></font></td>
<td width="11%" height="25" align="center" bgcolor="#D9F2D7"><font color="#000000"><strong>区域</strong></font></td>
<td width="11%" height="25" align="center" bgcolor="#D9F2D7"><font color="#000000"><strong>户型</strong></font></td>
<td width="27%" height="25" align="center" bgcolor="#D9F2D7"><font color="#000000"><strong>地段名</strong></font></td>
<td width="11%" height="25" align="center" bgcolor="#D9F2D7"><font color="#000000"><strong>房价</strong></font></td>
<td width="12%" height="25" align="center" bgcolor="#D9F2D7"><font color="#000000"><strong>登记时间</strong></font></td>
<td width="11%" height="25" align="center" bgcolor="#D9F2D7"><font color="#000000"><strong>详细信息</strong></font></td>
</tr>
<%
userid=session("loginid")
dim curpage
if request("curpage")="" then
curpage=1
else
curpage=request("curpage")
end if
const numperpage=22
xxlb=trim(request("xxlb"))
fangwei=trim(request("fangwei"))
fclx=trim(request("fclx"))
area=trim(request("area"))
reg_type=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 house.*,company.reg_type from house,company where house.sh='1' and house.id<>0 "
if xxlb<>"" then
sql=sql & " and xxlb='"&xxlb&"'"
end if
if mj1<>0 then
if datebasetype=1 then
sql=sql & " and cast(mianji as int)>='"&mj1&"'"
else
sql=sql & " and cint(mianji)>='"&mj1&"'"
end if
end if
if mj2<>9999 then
if datebasetype=1 then
sql=sql & " and cast(mianji as int)>='"&mj2&"'"
else
sql=sql & " and cint(mianji)=<'"&mj2&"'"
end if
end if
if jg1<>0 then
if datebasetype=1 then
sql=sql & " and cast(jyprice as int)>='"&jg1&"'"
else
sql=sql & " and cint(jyprice)>='"&jg1&"'"
end if
end if
if jg2<>99999999 then
if datebasetype=1 then
sql=sql & " and cast(jyprice as int)>'"&jg2&"'"
else
sql=sql & " and cint(jyprice)<'"&jg2&"'"
end if
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
if reg_type<>"" Then
sql=sql&" and company.reg_type='"®_type&"'"
end if
sql=sql & " and company.userid=house.userid 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>"
end if
if not rs.eof then
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="6%" height="24" align="center"> <div align="center">
<%xxlb_1=trim(rs("xxlb"))%>
<!--#include file="xxlb.asp"-->
</div></td>
<td width="11%" height="24" align="center"> <font color="#272727">
<% if rs("reg_type")="1" then response.write "单位" else response.write "个人" end if%>
</font></td>
<td width="11%" height="24" align="center"><font color="#272727"><%=left(rs("fangwei"),15)%></font></td>
<td width="11%" height="24" align="center"><font color="#272727"><%=left(rs("fclx"),15)%></font></td>
<td width="27%" height="24" align="center"><font color="#272727"><%=left(rs("area"),12)%></font></td>
<td width="11%" height="24" align="center"><font color="#272727"><%=left(rs("jyprice"),15)%>元</font></td>
<td width="12%" height="24" align="center"> <font color="#272727">
<%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="#272727">详细信息</font></a></td>
</tr>
<%
rs.movenext
count=count+1
loop
rs.close
set rs=nothing
%>
<tr valign="middle">
<td height="30" colspan="8" 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>
<TABLE cellSpacing=0 cellPadding=0 width=708
background=../img/bomgreen2.gif border=0>
<TBODY>
<TR>
<TD width=20>
<IMG height=27 src="../img/bomgreen1.gif"
width=13></TD>
<TD align=right>
</TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE>
<!--#include file="../end.asp"-->
</BODY></HTML>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?