save_newhouse.asp

伴江行房产易系统 v2.10资源介绍: 提供包括新房、二手房、租赁房、别墅、写字楼、商铺、家居、装修装饰、购房指南、中介联盟等房地产网络解决方案

<!--#include file=../include/config.asp-->
<!--#include file=../include/conn_newhouse.asp-->
<%
        dim rs,sql,jj_bz,bus
	
        bus=request("bus")
	bus=replace(bus," ","&nbsp;")
        bus=replace(bus,chr(13)&chr(10),"<Br>")

        jj_bz=request("jj_bz")
	jj_bz=replace(jj_bz," ","&nbsp;")
        jj_bz=replace(jj_bz,chr(13)&chr(10),"<Br>")
	

	sql="select * from [house_new]"
	set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,3
        rs.addnew

        rs("house_name")=request("house_name")
        rs("kfs")=request("kfs")
        rs("kfs_http")=request("kfs_http")
        rs("qy")=request("qy")
        rs("address")=request("address")
        rs("traffic")=request("traffic")
        rs("house_lx")=request("house_lx")
        rs("mj")=request("mj")
        rs("first_pay")=request("first_pay")
        rs("jun_pay")=request("jun_pay")
        rs("xk")=request("xk")
if request("pic")="nei/newhouse_pic/" then
   rs("pic")=""
else
   rs("pic")=request("pic")
end if
        rs("jj_bz")=jj_bz
        rs("zt")=request("zt")
        rs("sell_tel")=request("sell_tel")
        rs("sell_address")=request("sell_address")
        rs("fax")=request("fax")
        rs("email")=request("email")
        rs("man")=request("man")
        rs("color")=request("color")
        rs("bus")=bus
        rs("date")=now()

        rs.update


response.write "newhouse发送成功"
%>
<%
        connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
	connstr = connstr & Server.MapPath("../mdb/view.asp")
	set conn=Server.CreateObject("AdoDb.Connection")
	conn.Open connstr

	sql="select * from [house_new]"
	set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,3
        rs.addnew
        rs("house_name")=request("house_name")
        rs("jun_pay")=request("jun_pay")
        rs("color")=request("color")

        rs.update

response.write "view发送成功!"
%>
<!--#include file=../include/foot.asp-->