fb.asp

一个朋友购买的商业版房产网源程序

<!-- #include file="top.asp"-->
<%if request("gn")="up" then
mytype=request("mytype")
fw_city=request("fw_city")
fw_quyu=request("fw_quyu")
fw_dizhi=request("fw_dizhi")
fw_jiaotong=request("fw_jiaotong")
fw_leixing=request("fw_leixing")
fw_jiegou=request("fw_jiegou")
fw_louceng=request("fw_louceng")
fw_mianji=request("fw_mianji")
fw_zhuangxiu=request("fw_zhuangxiu")
fw_jiage=request("fw_jiage")
fw_jiageLX=request("fw_jiageLX")
fw_lxdh=request("fw_lxdh")
fw_lxname=request("fw_lxname")
fw_guoqi=request("fw_guoqi")
fw_qtsm=request("fw_qtsm")
fw_peitao=request("fw_peitao")
fw_uid=request("fw_uid")
bh=request("bh")

set rs=server.CreateObject("adodb.recordset")
sql="select * from house"
rs.open sql,conn,1,3

rs.addnew

rs("mytype")=mytype
rs("fw_city")=fw_city
rs("fw_quyu")=fw_quyu
rs("fw_dizhi")=fw_dizhi
rs("fw_jiaotong")=fw_jiaotong
rs("fw_leixing")=fw_leixing
rs("fw_jiegou")=fw_jiegou
rs("fw_louceng")=fw_louceng
rs("fw_mianji")=fw_mianji
rs("fw_zhuangxiu")=fw_zhuangxiu
rs("fw_jiage")=fw_jiage
rs("fw_jiageLX")=fw_jiageLX
rs("fw_lxdh")=fw_lxdh
rs("fw_lxname")=fw_lxname
rs("fw_guoqi")=fw_guoqi
rs("fw_qtsm")=fw_qtsm
rs("fw_peitao")=fw_peitao
rs("fw_uid")=fw_uid
rs("bh")=bh

rs.update

Response.Write"<script language=JavaScript>"
Response.Write"alert(""恭喜！信息发布成功"");"
Response.Write"window.location='index.asp'"
Response.Write"</script>"
else
response.Write""
end if
%>
<SCRIPT language="javascript">
<!--
function del_space(s)
{
	for(i=0;i<s.length;++i)
	{
	 if(s.charAt(i)!=" ")
		break;
	}

	for(j=s.length-1;j>=0;--j)
	{
	 if(s.charAt(j)!=" ")
		break;
	}

	return s.substring(i,++j);
}

function VerifySubmit()
{
	fw_dizhi = del_space(document.all("fw_dizhi").value);
     if (fw_dizhi == 0)
     {
        alert("注意：房屋地址不能为空！");
	return false;
     }

	fw_louceng = del_space(document.all("fw_louceng").value);
     if (fw_louceng.length == 0)
     {
        alert("注意：房屋楼层不能为空！");
		return false;
     }
	 
	 fw_mianji = del_space(document.all("fw_mianji").value);
     if (fw_mianji == 0)
     {
        alert("注意：房屋面积不能为空！");
        return false;
     }
	 
	 fw_jiage = del_space(document.all("fw_jiage").value);
     if (fw_jiage.length == 0)
     {
        alert("注意：房屋价格不能为空！");
		return false;
     }
	 fw_lxdh = del_space(document.all("fw_lxdh").value);
     if (fw_lxdh.length == 0)
     {
        alert("注意：联系电话不能为空！");
		return false;
     }
	 fw_lxname = del_space(document.all("fw_lxname").value);
     if (fw_lxname.length == 0)
     {
        alert("注意：联系人姓名不能为空！");
        return false;
     }

	return true;
}
//-->
</SCRIPT>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center bgColor=#ffffff border=0>
  <TR vAlign=top> 
    <TD width=180> <TABLE height=62 cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TR> 
          <TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="3%"><img src="images/left_01.gif" width="27" height="23"></td>
                <td width="94%" background="images/left_02.gif">数据统计</td>
                <td width="3%"><img src="images/left_03.gif" width="58" height="23"></td>
              </tr>
            </table></TD>
        </TR>
        <TR> 
          <TD align=middle width="180" background=images/m-b.gif bgColor=#ffffff height=20> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="10%"><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
                <% set house=conn.execute("Select count(*) as house1 From house") %>
                <td width="90%">房产信息：<font color="#FF9933">
                  <% =house("house1") %>
                  </font> 条 </td>
              </tr>
              <tr> 
                <td><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
                <% set news=conn.execute("Select count(*) as news1 From news") %>
                <td>新闻总数：<font color="#FF9933">
                  <% =news("news1") %>
                  </font> 条</td>
              </tr>
              <tr> 
                <td><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
                <% set puser=conn.execute("Select count(*) as puser1 From puser") %>
                <td>注册会员：<font color="#FF9933">
                  <% =puser("puser1") %>
                  </font> 人</td>
              </tr>
              <tr> 
                <td><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
                <%set rs=server.CreateObject("ADODB.RecordSet") 
                      rs.Source="select top 1 * from puser order by id desc"
                      rs.Open rs.Source,conn,1,1
                     %>
                <td>最新注册： <font color="#FF9933"><a href="L_user.asp?pname=<% =rs("uid") %>"><%=rs("uid")%></a></font></td>
              </tr>
              <tr> 
                <td><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
                <td>总访问量：<font color="#FF9933">
                  <% =application("counter") %>
                  </font></td>
              </tr>
            </table></TD>
        </TR>
        <TR> 
          <TD height=19 vAlign=center background="images/left_04.gif" bgColor=#ffffff>&nbsp;</TD>
        </TR>
      </TABLE>
      <TABLE height=62 cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TR> 
          <TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="3%"><img src="images/left_01.gif" width="27" height="23"></td>
                <td width="94%" background="images/left_02.gif">热门房源</td>
                <td width="3%"><img src="images/left_03.gif" width="58" height="23"></td>
              </tr>
            </table></TD>
        </TR>
        <TR> 
          <TD align=middle width="180" background=images/m-b.gif bgColor=#ffffff height=20><table width="100%" border="0" cellspacing="0" cellpadding="3">
              <% set rsHTOP=server.createobject("adodb.recordset")
				  sqlHTOP="select top 10 * from house order by FW_lls desc"
				  rsHTOP.open sqlHTOP,conn,3,3
		          for i=1 to 10 %>
              <tr> 
                <td width="10%"><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
                <td width="90%"><font size="2"> <a href="h_open.asp?id=<% =rsHTOP("id") %>">
                  <% =left(rsHTOP("fw_dizhi"),10)%><% if len(rsHTOP("fw_dizhi")) > 10 then 
				  response.Write"..."
				  end if%>
                  </a></font></td>
                  </tr>
              <% rsHTOP.movenext
                   if rsHTOP.eof then exit for
                   next
                   rsHTOP.close %>
            </table></TD>