recomco.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 354 行 · 第 1/2 页
ASP
354 行
<!--#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">
<script language="JavaScript" src="../inc/index.js"></script>
<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%></font></a><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" height="39">
<img border="0" src="../img/9-.gif" width="255" height="40"></TD></TR>
<tr>
<td style="border-style: none; border-width: medium" height="37">
<p style="line-height: 22px" align="center">
<a href="hs.asp?xxlb=1">
<img border="0" src="../img/cs1.gif" align="right"></a></td>
<td style="border-style: none; border-width: medium" height="37">
<p align="center"><a href="hs.asp?xxlb=2">
<img border="0" src="../img/cs2.gif" ></a></td>
</tr>
<tr>
<td style="border-style: none; border-width: medium" height="37">
<p align="center"><a href="hs.asp?xxlb=3">
<img border="0" src="../img/cs3.gif" align="right"></a></td>
<td style="border-style: none; border-width: medium" height="37">
<p align="center"><a href="hs.asp?xxlb=4">
<img border="0" src="../img/cs4.gif"></a></td>
</tr>
<tr>
<td align="center" width="48%" style="border-style: none; border-width: medium" height="38">
<a href="hs.asp?xxlb=5">
<img border="0" src="../img/cs5.gif" align="right"></a></td>
<td align="center" width="48%" style="border-style: none; border-width: medium" height="38">
<a href="hs.asp?xxlb=6">
<img border="0" src="../img/cs6.gif" ></a></td>
</tr>
</tr>
</tr>
<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="center"><font color=#ffffff>区域 </font></td>
<td width="75%" height="20" align="center"> <SPAN class=P9><FONT color=red>
<p align="left">
<%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="center"><font color=#ffffff>价格 </font></td>
<td height="20" align="center"> <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> 元</font> </td>
</tr>
<tr>
<td height="20" align="center"> <font color=#ffffff>楼盘 </font></td>
<td height="20" align="center">
<input name="HouseName" id="HouseName" size="14" style="float: left">
</td>
</tr>
<tr>
<td height="20" align="center" valign="bottom"><font color=#ffffff>开发商</font></td>
<td height="20" valign="bottom" align="center">
<input name="Developer" id="Developer" size="14" style="float: left">
</td>
</tr>
<tr>
<td height="20" colspan="2" valign="bottom" align="center">
<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">
<p align="center">
<img border="0" src="../img/26.gif" width="252" height="41"></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"))%> newhouse','width=600,height=500,top=50,left=200,scrollbars=yes');"><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>
<TR>
<TD colspan="2" background="../img/27.gif" height="40">
</tr>
<TR>
<TD colspan="2">
<table width="99%" border="0" cellpadding="0" cellspacing="0" class="main">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from Ren_Menu order by dateandtime"
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr >
<td width="19" height="20"> <div align="center">
<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
<td width="313" height="20"><font style="color:#ffffff;text-decoration:underline"><%=trim(rs("Ren_Menu"))%></font></td>
</tr>
<tr>
<td height="20" colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
Set ps=Server.CreateObject("ADODB.Recordset")
ps.Open"select top 3 * from Ren_detail where mainid="&Rs("id")&" order by click desc",conn,1,1
Do While Not Ps.Eof
%>
<td align="center" width="<%=100/3%>"><a href="../person/person.asp?Id=<%=Trim(ps("id"))%>" class="linkone"><%=Trim(ps("RenName"))%></a></td>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?