lpleft.asp

本房地产网站功能强大

<div align="center">
            <TABLE cellPadding=0 width="250" 
border=1 id="table1" style="border-collapse: collapse" bordercolor="#9999FF">
              <TBODY>
              <TR>
                <TD colspan="2" background="../img1/fj.jpg" height="28" valign="middle">&nbsp;<font color="#EE5806">房产信息</font></TD></TR>
              <tr>
			<td style="border-style: none; border-width: medium" height="28">
			<p style="line-height: 22px" align="center">
			<a href="hs.asp?xxlb=1">
						<font color="#065BAE">出租信息</font></a></td>
			<td style="border-style: none; border-width: medium" height="28">
			<p align="center"><a href="hs.asp?xxlb=2">
						<font color="#065BAE">求租信息</font></a></td>
				</tr>
				<tr>
			<td style="border-style: none; border-width: medium" height="28">
			<p align="center"><a href="hs.asp?xxlb=3">
						<font color="#065BAE">求购信息</font></a></td>
			<td style="border-style: none; border-width: medium" height="28">
			<p align="center"><a href="hs.asp?xxlb=4">
						<font color="#065BAE">出售信息</font></a></td>
				</tr>
				<tr>
			<td align="center" width="45%" style="border-style: none; border-width: medium" height="28">
			<a href="hs.asp?xxlb=5">
						<font color="#065BAE">合租信息</font></a></td>
			<td align="center" width="54%" style="border-style: none; border-width: medium" height="28">
			<a href="hs.asp?xxlb=6">
			<font color="#065BAE">置换信息</font></a></td>
				</tr>
              <TR>
                <TD colspan="2" background="../img1/fj.jpg" height="28" valign="middle">
				<p style="line-height: 22px">
				&nbsp;<font color="#EE5806">楼盘搜索</font></TD></TR>
              <TR>
                <form name="form1" method="get" action="newhouse_show.asp">
                      <tr> 
                        <td style="border-style: none; border-width: medium" height="28">
			　</td>
			<td style="border-style: none; border-width: medium" height="28">　</td>
				</tr>
                      <tr> 
                        <td style="border-style: none; border-width: medium" height="28">
			<p style="line-height: 22px" align="right">			
						<font color="#065BAE">区域</font></td>
			<td style="border-style: none; border-width: medium" height="28"><FONT color=#065BAE> 
                          <%OpenDataConn

                          set rscyte=server.CreateObject("adodb.recordset")
						  sqlcyte= "select * from cyte"
						  rscyte.Open sqlcyte,conn,1,1
						  %>
                          <FONT color=red> 
                          <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>
                          </FONT>
			　</td>
				</tr>
				<tr>
			<td style="border-style: none; border-width: medium" height="28">
			<p align="right">
			<font color="#065BAE">价格</font></td>
			<td style="border-style: none; border-width: medium" height="28"><font color="#065BAE"><input name="price1" type="text" id="price1" size="5">
                        - 
                          <input name="price2" type="text" id="price2" size="5">
                          元 </font></td>
				</tr>
				<tr>
			<td style="border-style: none; border-width: medium" height="28">
			<p align="right">　<font color="#065BAE">楼盘</font></td>
			<td style="border-style: none; border-width: medium" height="28"><font color="#065BAE"><input name="HouseName" type="text" id="HouseName" size="14"></font></td>
				</tr>
				<tr>
			<td style="border-style: none; border-width: medium" height="28">
			<p align="right">　<font color="#065BAE">开发商</font></td>
			<td style="border-style: none; border-width: medium" height="28"><font color="#065BAE"><input name="Developer" type="text" id="Developer" size="14"></font></td>
				</tr>
				<tr>
			<td style="border-style: none; border-width: medium" height="28" colspan="2">
			<p align="center">　<font color="#065BAE">
						<INPUT type=submit value=搜索 name=Submit34> </font></td>
				</tr>
				<tr>
			<td style="border-style: none; border-width: medium" height="28">
			　</td>
			<td style="border-style: none; border-width: medium" height="28">
			　</td>
				</tr>
                    </form></TR>
              <TR>
                <TD colspan="2" background="../img1/fj.jpg" width="250" height="28" valign="middle">			
				&nbsp;<font color="#EE5806">楼盘点击排行</font></TD></TR>
              <TR>
                <TD colspan="2" height="26">
				<table width="200" border="0" cellpadding="0" cellspacing="0" height="26" id="table2" >
                    <%
 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="#065BAE"><%=getStr(Trim(Rs2("housename")),7)%></font></a></td>
                      <td width="78" height="26"><font color="#065BAE"><%=Trim(Rs2("AvgPrice"))%>元/m<sup>2</sup></font></td>
                    </tr>
                    <%
					 Rs2.MoveNext
					 Loop
					 Rs2.Close
					%>
                  </table>
					</tr>
				</table>
				</div>