jiaju.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 672 行 · 第 1/3 页
ASP
672 行
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp" -->
<!--#include file="../inc/onlinecount.asp"-->
<!--#include file="../top.asp"-->
<%
Dim Rs,Sql
OpenDataConn
Set Rs=Server.CreateObject("ADODB.Recordset")
%>
<!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>>>
我要家装</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>
<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="99%" align=center
border=0>
<TBODY>
<TR>
<TD height="38" colspan="2">
<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" width="74" height="29"></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" width="74" height="29"></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" width="74" height="29"></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" width="74" height="29"></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" width="74" height="29"></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" width="74" height="29"></a></td>
</TR>
<TR>
<TD height="37" colspan="2">
<img border="0" src="../img/xinxi.gif" width="255" height="40"></TD></TR>
<TR>
<TD colspan="2">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#7CB721" class="main">
<form name="form1" method="get" action="hs.asp">
<tr>
<td width="36%" height="23" align="right"><font color=#FFFFFF>类别 </font></td>
<td width="64%" height="23"> <select name="xxlb" id="xxlb">
<option value="" selected>-- 请选择 --</option>
<option>出租</option>
<option>求租</option>
<option>求购</option>
<option>出售</option>
<option>合租</option>
<option>置换</option>
</select></td>
</tr>
<tr>
<td height="23" align="right"><font color=#FFFFFF>区域 </font></td>
<td height="23"><SPAN class=P9><FONT color=red>
<%
set rscyte=server.CreateObject("adodb.recordset")
sqlcyte = "select * from cyte"
rscyte.Open sqlcyte,conn,1,1
%>
<select name="fangwei" id="select" 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="23" align="right"><font color=#FFFFFF>户型 </font></td>
<td height="23"> <select name="fclx" id="fclx">
<option value="" selected>-- 请选择 --</option>
<option>单人间</option>
<option>一室一卫</option>
<option>一室一厅</option>
<option>二室户</option>
<option>二室一厅</option>
<option>二室二厅</option>
<option>三室户</option>
<option>三室一厅</option>
<option>三室二厅</option>
<option>四室户</option>
<option>四室一厅</option>
<option>四室二厅</option>
<option>四室三厅</option>
<option>五室一厅</option>
<option>五室二厅</option>
<option>五室三厅</option>
<option>跃层楼</option>
<option>复式</option>
<option>公寓楼</option>
<option>别墅</option>
<option>写字楼</option>
<option>厂房</option>
<option>店面</option>
<option>储藏间</option>
<option>地下室</option>
<option>整栋楼</option>
<option>其它</option>
</select> </td>
</tr>
<tr>
<td height="22" align="right"><font color=#FFFFFF>地段 </font></td>
<td height="22"> <input name="area" type="text" id="area" size="14">
</td>
</tr>
<tr>
<td height="23" align="right"><font color=#FFFFFF>是否中介 </font></td>
<td height="23"><input type="radio" name="reg_type" value="1" class="box">
<font color=#FFFFFF>中介</font>
<input type="radio" name="reg_type" value="0" class="box">
<font color=#FFFFFF>免中介</font> </td>
</tr>
<tr>
<td height="23" colspan="2" valign="bottom"> <div align="center">
<a href="javascript:document.form1.submit();"><img src="../images/frams_86.jpg" width="53" height="23" border="0"></a>
</div></td>
</tr>
</form>
</table>
</TD></TR>
<TR>
<TD background="../img/36.gif" height="38" colspan="2"> <b>
<font color=#FFFFFF>时 尚 家 </font></b><font color="#FFFFFF"><b>居</b></font></TD></TR>
<TR>
<TD colspan="2">
<table width="255" border="0" cellpadding="0" cellspacing="0" class="main">
<tr valign="top">
<td align="center" width="255">
<table width="255" border="0" cellpadding="0" cellspacing="0" bgcolor="#7CB721" class="main">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 6 * from news where sort=2 order by dnt desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr class="black">
<td width="10"> </td>
<td width="12" height="19"> <div align="center">
<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
<td width="178" height="19"><a href= jiaju_detail.asp?newsid=<%=trim(rs("newsid"))%>&sort=2>
<font color=#ffffff><%=left(trim(rs("topic")),14)%></a></font></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table></td>
</tr>
<tr>
<td align="center">
<p align="right">
<a href="jiaju_more.asp?sort=2"><font color=#ffffff>更多</a></font> </td>
</tr>
</table>
</TD></TR>
<TR>
<TD background="../img/36.gif" height="39" colspan="2"> <b>
<font color=#ffffff>装 修 流 行 线</font></b></TD></TR>
<TR>
<TD colspan="2">
<table width="255" border="0" cellpadding="0" cellspacing="0" bgcolor="#7CB721" class="main">
<tr class="black" height="7">
<td height="7" colspan="3"></td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 6 * from news where sort=3 order by dnt desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr class="black">
<td width="10"> </td>
<td width="12" height="19"> <div align="center">
<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
<td height="19"><a href= jiaju_detail.asp?newsid=<%=trim(rs("newsid"))%>&sort=3>
<font color=#ffffff><%=left(trim(rs("topic")),14)%></a></font></td>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?