save_change_company.asp

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

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

	sql="select * from [company] where id=" & request("id")
	set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,3
      
        rs("bz")=bz
        rs("type")=request("type")
        rs("company")=request("company")
        rs("email")=request("email")
        rs("email")=request("email")
        rs("man")=request("man")
        rs("address")=request("address")
        rs("tel")=request("tel")
        rs("yb")=request("yb")
        rs("fax")=request("fax")
        rs("color")=request("color")
        rs("http")=request("http")
        rs("pic")=request("pic")


        rs.update
response.write "system修改成功"

%>
<%
        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 [company] where id=" & request("id")
	set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,3

        rs("type")=request("type")
        rs("company")=request("company")
        rs("tel")=request("tel")
        rs("color")=request("color")

        rs.update

response.write "view库添加成功!"
%>
<!--#include file=../include/foot.asp-->