save_company.asp

使用asp开发的一个标准的房地产管理系统。有销售登记

<!--#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]"
	set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,3
        rs.addnew
        
        rs("bz")=bz
        rs("type")=request("type")
        rs("company")=request("company")
        rs("email")=request("email")
        rs("date")=now()
        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

if request("email")<>"" then
	dim fso,f,forappending
	forappending=8
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	Set f = fso.OpenTextFile(Server.Mappath("remove.txt"), forappending, True)
	f.WriteLine request("email")
	f.Close()
	set f=nothing
	set fso=nothing
end if
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]"
	set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,3
        rs.addnew

        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-->