newhouse_sl.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 224 行
ASP
224 行
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp" -->
<!--#include file="../inc/onlinecount.asp"-->
<!--#include file="../top.asp"-->
<script src="../images/layerdetail.js"></script>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE><%=homepage_title%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK
href="../img/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>您现在的位置：<a href="../index.asp"><font color="#FFFFFF"><%=homepage_title%></a>>> </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=497 cellSpacing=0 cellPadding=0 width=970 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top width=259 height=733 rowspan="2">
<TABLE class=out3s_green height="100%" cellSpacing=0 cellPadding=0
width=255 bgColor=#7cb721 border=0>
<TBODY>
<TR>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width="75%" align=center
border=0>
<TBODY>
<TR>
<TD colspan="2">
<p style="line-height: 22px">
<img border="0" src="../img/25.gif" width="252" height="41"></TD></TR>
<TR>
<form name="form1" method="get" action="newhouse_show.asp">
<tr>
<td width="25%" height="20" align="right"><font color=#ffffff>区域 </font></td>
<td width="75%" height="20"> <SPAN class=P9><FONT color=red>
<%OpenDataConn
set rscyte=server.CreateObject("adodb.recordset")
sqlcyte= "select * from cyte"
rscyte.Open sqlcyte,conn,1,1
%>
<select name="fangwei" id="id" class="inp">
<option value="">-- 请选择 --</option>
<%do while not rscyte.eof%>
<option value="<%=rscyte("cyte")%>"><%=rscyte("cyte")%></option>
<%
rscyte.movenext
loop
rscyte.close
set rscyte=nothing
%>
</select>
</FONT></SPAN></td>
</tr>
<tr>
<td height="20" align="right"><font color=#ffffff>价格 </font></td>
<td height="20"> <input name="price1" type="text" id="price1" size="5">
<font color=#ffffff> - </font>
<input name="price2" type="text" id="price2" size="5">
<font color=#ffffff>元 </td>
</tr>
<tr>
<td height="20" align="right"><font color=#ffffff>楼盘</font></td>
<td height="20"> <input name="HouseName" type="text" id="HouseName" size="14">
</td>
</tr>
<tr>
<td height="20" align="right" valign="bottom"><font color=#ffffff>开发商</font></td>
<td height="20" valign="bottom"> <input name="Developer" type="text" id="Developer" size="14">
</td>
</tr>
<tr>
<td height="20" colspan="2" valign="bottom">
<p align="center">
<a href="javascript:document.form1.submit();">
<img src="../images/frams_86.jpg" width="53" height="23" border="0"></a> </td>
</tr>
</form></TR>
<TR>
<TD colspan="2" height="38">
<p align="left">
<b><img border="0" src="../img/26.gif" width="255" height="40"></b></TD></TR>
<TR>
<TD colspan="2">
<table width="200" border="0" cellpadding="0" cellspacing="0" bgcolor="#7CB721">
<%
Set Rs2=Server.CreateObject("ADODB.Recordset")
sqlcyte1 = "select top 10 * from newhouse order by click desc"
rs2.Open sqlcyte1,conn,1,1
Do While Not Rs2.Eof
%>
<tr>
<td width="22" align="center">
<img border="0" src="../img/arr_w1.gif" width="9" height="9"></td>
<td width="100"><a href=newhouse_detail2.asp?HID=<%=Trim(Rs2("HID"))%>><font color=#ffffff><%=getStr(Trim(Rs2("housename")),7)%></a></font></td>
<td width="78"><font color="#FFFFFF"><%=Trim(Rs2("AvgPrice"))%>元/m<sup>2</sup></font></td>
</tr>
<%
Rs2.MoveNext
Loop
Rs2.Close
%>
</table>
</tr>
</table>
</TD></TR>
</table></td>
<TD vAlign=top width=711>
<table border="0" width="100%" id="table10" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0 id="table3">
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE><TABLE height=30 cellSpacing=0 cellPadding=0 width=710 border=0 id="table7">
<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></td>
</tr>
<tr>
<td align="center"><TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0 id="table3">
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE><TABLE class=out4s_green cellSpacing=0 cellPadding=0 width=710 border=0 id="table2">
<TBODY>
<TR>
<TD vAlign=top>
<table width="705" border="0" align="center" cellpadding="0" cellspacing="0">
<%
Hid=Trim(request("hId"))
SQL = "select * from newhouse where HID="&HID&""
'response.write(sql)
SET Rs = conn.execute(SQL)
%>
<tr>
<td>
</td>
</tr>
<tr style="line-height:2px;">
<td>
<table width="705" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="160"><img src="../images/arrow.gif" width="160" height="64"></td>
<td width="75"><div align="center"><a href=newhouse_wz.asp?HID=<%=Trim(Rs("HID"))%>><img src="../images/bt_1.gif" width="40" height="54" border="0"></a></div></td>
<td width="84"><div align="center"><a href=newhouse_xq.asp?HID=<%=Trim(Rs("HID"))%>><img src="../images/bt_2.gif" width="52" height="54" border="0"></a></div></td>
<td width="97"><div align="center"><a href=newhouse_sl.asp?HID=<%=Trim(Rs("HID"))%>><img src="../images/bt_3.gif" width="52" height="54" border="0"></a></div></td>
<td width="84"><div align="center"><a href=newhouse_fx.asp?HID=<%=Trim(Rs("HID"))%>><img src="../images/bt_4.gif" width="38" height="54" border="0"></a></div></td>
<td width="78"><a href=newhouse_detail2.asp?HID=<%=Trim(Rs("HID"))%>><img src="../images/icon_C02.gif" width="64" height="67" border="0"></a></td>
</tr>
</table></td>
</tr>
<tr>
<td height="16" align="center">
<table width="705" border="0" cellpadding="0" cellspacing="1" bgcolor="#7CB721">
<tr>
<td height="300" bgcolor="#FFFFFF">
<div align="center">
<%
if Rs("slimg")<>"" then
%>
<a href="../fyfile/<%=Rs("slimg")%>" target="_blank">
<img src="../fyfile/<%=Rs("slimg")%>" alt="室内室景图" border="0"></a> <br>
<%else%>
<%
response.write"还没有室内环境图"
end if
%>
</div></td>
</tr>
</table>
</td>
</tr>
</table>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0 id="table5">
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=708
background=../img/bomgreen2.gif border=0 id="table6">
<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></td>
</tr>
</table>
</TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD height=5></TD></TR></TBODY></TABLE>
<TABLE height=3 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<!--#include file="../end.asp"-->
</BODY></HTML>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?