复件 index.asp

来自「一个关于房产的asp程序」· ASP 代码 · 共 705 行 · 第 1/3 页

<!--#include file=efwmanager/include/config.asp-->
<!--#include file=conn_view.asp-->
<!--#include file=efwmanager/include/function.asp-->
<html>
<head>
<title><%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<style> body{ scrollbar-face-color:fd9035; scrollbar-shadow-color:ffffff;  scrollbar-highlight-color:ffffff; scrollbar-3dlight-color:ffffff;  scrollbar-darkshadow-color:ffffff; scrollbar-track-color:ffefd7;  scrollbar-arrow-color:ffffff;} 
.topkuan {  border-color: #fd9035 black black; border-style: solid; border-top-width: 2px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px}
.topkuan2 {  border-color: #fd9035 black black; border-style: dotted; border-top-width: 1px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px}
.y_kuan {  border: #FFFFFF; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px}
</style>
<script language="JavaScript" src="share/nei_fc.js"></script>
<script language="JavaScript">
function search()
	{
	window.top.location.href=form2.fl.value+"?y=1"+form2.search_zj.value+form2.search_qy.value+form2.search_hx.value+form2.search_lx.value;
	}
</script>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<!--#include file="share/top.htm"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="left" valign="top" background="images/index_r2_c11.jpg"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="778" height="89">
        <param name="movie" value="images/top.swf">
        <param name=WMODE value=Transparent>
        <param name="quality" value="high">
        <embed src="images/top.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="778" height="89"></embed></object></td>
  </tr>
</table>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr align="left" valign="top"> 
    <td width="165" height="96" bgcolor="#fff7f7"> 
      <table width="165" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="13" align="left" valign="top"><img src="images/index_r3_c1.gif" width="152" height="5"></td>
          <td rowspan="2" height="149" align="left" valign="top" width="13"><img src="images/index_r3_c8.gif" width="13" height="58"></td>
        </tr>
        <tr>
		        <%
	dim strSql,rs
	strSql="select top 10 * from [index_top1] order by id desc"
	set rs=Server.CreateObject("ADODB.RecordSet")
	rs.open strSql,conn,3,3
    %> 
          <td align="left" height="127" valign="top">
		  <%do while not rs.eof%>
		  &nbsp;<font color="#FF6600" class="smallfont">·</font><a href="<%=rs("url")%>" target="_blank" class="menu"><font color=<%=rs("color")%>><%=rs("title")%></font></a>
          <%
		rs.movenext
	if not rs.eof then 
	response.write "<br>"
	end if
		loop%>
		  </td>
        </tr>
      </table>
    </td>
    <td height="96">
      <table width="613" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="613" align="left" valign="middle" height="35" bgcolor="#fff7e6"> 
            <table width="613" border="0" cellspacing="0" cellpadding="0">
              <tr align="left" valign="top"> 
                <td width="104"><a href="newhouse.asp"><img src="images/index_r2_c6.jpg" width="104" height="58" border="0"></a></td>
                <td width="101"><a href="hack.asp"><img src="images/index_r2_c12.jpg" width="101" height="58" border="0"></a></td>
                <td width="102"><a href="hire.asp"><img src="images/index_r2_c14.jpg" width="102" height="58" border="0"></a></td>
                <td width="104"><a href="sell.asp"><img src="images/index_r2_c17.jpg" width="104" height="58" border="0"></a></td>
                <td width="98"><a href="buy.asp"><img src="images/index_r2_c18.jpg" width="98" height="58" border="0"></a></td>
                <td width="104"><a href="http://www.yedns.com" target="_blank"><img src="images/index_r2_c19.jpg" width="104" height="58" border="0"></a></td>
              </tr>
            </table>
            <table width="613" border="0" cellspacing="0" cellpadding="0">
              <form action="checklogin.asp" method=post name="form1" onSubmit="return checklogin()">
                <tr> 
                  <td width="36">&nbsp;</td>
                  <% if session("userlogin") <> "ok" then  %>
                  <td width="190"> <span class="font">会员账号:</span> 
                    <input type="text" name="username" size="16" class="textinput">
                  </td>
                  <td width="209"> <span class="font">密　　码:</span> 
                    <input type="password" name="password" size="16" class="textinput">
                  </td>
                  <td width="185"> 
                    <input type="image" border="0" name="imageField" src="images/login.gif" width="35" height="18">
                    <a href="reg1.asp" target="_parent"><img src="images/reg.gif" width="62" height="18" border="0"></a> 
                  </td>
                  <td width="9">&nbsp;</td>
                  <% else %>
                  <td width="285" align="left" valign="middle"> <span class="font"><font color="#666666">您好，</font><font color=red><%=session("user_name")%></font><font color="#666666">！</font></span> 
                    <font color="#666666"><span class="font">欢迎您来到本站，您已登陆成功！！</span></font></td>
                  <td width="156" align="center" valign="middle"><a href="member.asp" class="ffbyfont">&gt;&gt;&gt;进入会员控制面板</a></td>
                  <td width="136" align="left" valign="middle"><a href="logout.asp" target="_parent"><img src="images/logout.gif" width="62" height="18" border="0"></a></td>
                  <%	end if %>
                </tr>
              </form>
            </table>
          </td>
        </tr>
        <tr> 
          <td width="613" align="left" valign="top" height="120" bgcolor="#FFefad" class="topkuan2">
            <table width="613" border="0" cellspacing="0" cellpadding="0" height="120">
              <tr> 
                <td rowspan="2" align="center" valign="middle" width="118"><a href="ad/tcjy/tcjy.htm" target="_blank"><img src="adinfo/tcjy.jpg" width="99" height="93" border="0"></a></td>
                <td width="188" height="38" class="font"><font color="#FF6600">丽 
                  景 花 苑</font></td>
                <td rowspan="2" align="center" valign="middle" width="118"><a href="ad/yjjy/yjjy.htm" target="_blank"><img src="adinfo/yjjy.jpg" width="99" height="93" border="0"></a></td>
                <td width="189" height="38" class="font"><font color="#FF6600">兴 
                  淮 花 苑</font></td>
              </tr>
              <tr> 
                <td width="188" align="left" valign="top" class="font">丽景花苑位于理城市区南环路与国道324线、兴贤路交口处，南临泉州最大的广场——人民广场，视野宽阔，空气亲清新，北望晋江之水，更加增添灵秀自然气息...</td>
                <td width="189" align="left" valign="top"> <p class="font">泉州市金融街——丰泽街龙头地段。居于两大知名小区：云谷小区、圣湖小区。周边市政配套 
                    <br>
                    非常完善...<br>
                  </p>
                  <p></p>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" class="topkuan">
  <tr align="left" valign="top"> 
    <td height="598" width="163" bgcolor="#FFEEAA" align="center"><img src="images/index_r8_c1.gif" width="163" height="28"><br>
      <table width="140" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="72" bgcolor="#ffde5b" class="y_kuan" align="center" valign="middle"> 
            <table width="140" border="0" cellspacing="5" cellpadding="0">
              <tr align="center" valign="middle" > 
                <td width="78" height="18" ><a href="dj_hack.asp" target="_blank" class="linkfont"><font color="#FF6600" class="font">·</font>出租登记</a></td>
                <td width="80" height="18" ><a href="dj_hire.asp" target="_blank" class="linkfont"><font color="#FF6600" class="font">·</font>求租登记</a></td>
              </tr>
              <tr align="center" valign="middle"> 
                <td height="18" width="78" ><font color="#FF6600" class="font">·</font><a href="dj_sell.asp" target="_blank" class="linkfont">出售登记</a></td>
                <td width="80" ><a href="dj_buy.asp" target="_blank" class="linkfont"><font color="#FF6600" class="font">·</font>求购登记</a></td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      <br>
      <img src="images/index_r10_c1.gif" width="163" height="22"><br>
      <table width="140" border="0" cellspacing="2" cellpadding="0" bgcolor="#ffde5b" class="y_kuan">
        <form method="post" name="form2" onSubmit="search()">
		<tr> 
          <td align="center" height="30"><span class="font"><font color="#ff6500">分类:</font></span> 
              <select name="fl" style="FONT-SIZE: 9pt; WIDTH: 88px; FONT-FAMILY: 宋体; HEIGHT: 22px">
                <option value="search_hack.asp" selected>出租信息</option>
                <option value="search_hire.asp">求租信息</option>
                <option value="search_sell.asp">出售信息</option>
                <option value="search_buy.asp">求购信息</option>
              </select>
          </td>
        </tr>
        <tr> 
          <td align="center" height="30"><span class="font"><font color="#ff6500">中介:</font></span> 
            <select name="search_zj" style="FONT-SIZE: 9pt; WIDTH: 88px; FONT-FAMILY: 宋体; HEIGHT: 22px">
                <option selected value="">-请选择-</option>
                <option value="&amp;search_zj=中介">中介</option>
                <option value="&amp;search_zj=非中介">非中介</option>
              </select>
          </td>
        </tr>
        <tr> 
            <td align="center" height="29"><span class="font"><font color="#ff6500">区域:</font></span> 
              <select name="search_qy" id="search_qy" style="FONT-SIZE: 9pt; WIDTH: 90px; FONT-FAMILY: 宋体; HEIGHT: 22px" >
                <option value="" selected>-请选择-</option>
                <%
	dim Sql,rs0
	Sql="select * from [area] order by id"
	set rs0=Server.CreateObject("ADODB.RecordSet")
	rs0.open Sql,conn,1,1
	do while not rs0.eof
	%>
                      <option value="<%=rs0("area_name")%>"><%=rs0("area_name")%></option>
                      <%
					  rs0.movenext
                      loop
					  rs0.close
					  %>
              </select> </td>
        </tr>
        <tr> 
          <td align="center" height="30"><span class="font"><font color="#ff6500">房型:</font></span> 
            <select name=search_hx style="FONT-SIZE: 9pt; WIDTH: 88px; FONT-FAMILY: 宋体; HEIGHT: 22px" >
                <option value="" selected>-请选择-</option>
                <option value="&amp;search_hx=4室2厅2卫">4室2厅2卫</option>
                <option value="&amp;search_hx=4室2厅1卫">4室2厅1卫</option>
                <option value="&amp;search_hx=4室1厅1卫">4室1厅1卫</option>
                <option value="&amp;search_hx=3室2厅2卫">3室2厅2卫</option>
                <option value="&amp;search_hx=3室2厅1卫">3室2厅1卫</option>
                <option value="&amp;search_hx=3室1厅1卫">3室1厅1卫</option>
                <option value="&amp;search_hx=2室2厅1卫">2室2厅1卫</option>
                <option value="&amp;search_hx=2室1厅1卫">2室1厅1卫</option>
                <option value="&amp;search_hx=2室半1厅1卫">2室半1厅1卫</option>
                <option value="&amp;search_hx=1室1厅1卫">1室1厅1卫</option>
                <option value="&amp;search_hx=单间">单间</option>
                <option value="&amp;search_hx=复式">复式</option>
              </select>
          </td>
        </tr>
        <tr> 
          <td align="center" height="30"><span class="font"><font color="#ff6500">性质:</font></span> 
            <select name=search_lx style="FONT-SIZE: 9pt; WIDTH: 88px; FONT-FAMILY: 宋体; HEIGHT: 22px">
              <option value="" selected>-请选择-</option>
              <option value="&amp;search_lx=商品房">商品房</option>
              <option value="&amp;search_lx=集资房">集资房</option>
              <option value="&amp;search_lx=拆迁房">拆迁房</option>
              <option value="&amp;search_lx=写字楼">写字楼</option>
              <option value="&amp;search_lx=公房">公房</option>
              <option value="&amp;search_lx=店面">店面</option>
              <option value="&amp;search_lx=民房">民房</option>
              <option value="&amp;search_lx=别墅">别墅</option>
            </select>
          </td>
        </tr>
        <tr> 
            <td align="center" height="31"> <a href="javascript:search()"><img src="images/search.gif" width="60" height="23" border="0"></a></td>
        </tr>
</form>
      </table>
      <table width="163" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="163" align="center" valign="middle" height="66"><img src="adinfo/gif/ad.gif" width="163" height="51" class="black_kuan"></td>
        </tr>
        <tr> 
          <td width="163" align="center" valign="middle" height="66"><img src="adinfo/gif/a23.gif" width="163" height="45"  class="black_kuan"></td>
        </tr>