saveinfo.asp

中介之家房产中介系统 V4.0企业共享版

<!-- #include file="conn.asp"-->
<% if request.cookies("okadmin")="" and request.cookies("rank")="" then
  response.redirect "login.asp"
end if %><%
	hetongid=request("hetongid")
	searchid=request("searchid")
    
	if request.form("action")="add" then
	
	set rs=server.createobject("adodb.recordset")
	sqltext="select * from hetongb " 
	rs.open sqltext,conn,3,3

	'新增纪录
	rs.addnew
	rs("userid")=session("userid")
	rs("chumaifang")=session("comname")
	rs("dailiren")=request.form("dailiren")
	rs("shoumairen")=request.form("shoumairen")
	rs("shenfenzheng")=request.form("shenfenzheng")
	rs("name")=request.form("name")
	rs("quyu")=request.form("quyu")
	rs("tudizheng")=request.form("tudizheng")
	rs("yushouzheng")=request.form("yushouzheng")
	rs("suoyouzheng")=request.form("suoyouzheng")
	rs("dateandtime")=now()
	rs("hetongid")=hetongid
	rs("searchid")=searchid
	rs.update
	rs.close
	
	set rs2=server.createobject("adodb.recordset")
	sqltext="select * from hetongb where userid='"&session("userid")&"' order by id desc" 
	rs2.open sqltext,conn,1,1
	id=rs2("id")
	rs2.close
	
	set rs=server.createobject("adodb.recordset")
	sqltext="select * from houseb " 
	rs.open sqltext,conn,3,3	
	rs.addnew
	rs("hetongid")=id
	rs("userid")=session("userid")
	
  for a=1 to 5
	for i=1 to 11
		if request.form("h"&a&""&i&"")="" then
			rs("h"&a&""&i&"")=null
		else
			rs("h"&a&""&i&"")=request.form("h"&a&""&i&"")
		end if
	next
  next
	
	for i=1 to 6
		if request.form("h6"&i&"")="" then
			rs("h6"&i&"")=null
		else
			rs("h6"&i&"")=request.form("h6"&i&"")
		end if
	next
	
	for i=1 to 10
		if request.form("h7"&i&"")="" then
			rs("h7"&i&"")=null
		else
			rs("h7"&i&"")=request.form("h7"&i&"")
		end if
	next
	
	rs.update
	response.write "<script language=JavaScript>{window.alert('信息添加成功!合同编号："+hetongid+"查询码："+searchid+"');window.location.href='modifyinfo.asp';}</script>"
    response.end
    
  elseif request.form("action")="modify" then
  
    id=request.form("id")
	set rs=server.createobject("adodb.recordset")
	sqltext="select * from hetongb where id="&id&" " 
	rs.open sqltext,conn,3,3



	rs("dailiren")=request.form("dailiren")
	rs("shoumairen")=request.form("shoumairen")
	rs("shenfenzheng")=request.form("shenfenzheng")
	rs("name")=request.form("name")
	rs("quyu")=request.form("quyu")
	rs("tudizheng")=request.form("tudizheng")
	rs("yushouzheng")=request.form("yushouzheng")
	rs("suoyouzheng")=request.form("suoyouzheng")
	rs.update
	rs.close
		
	set rs=server.createobject("adodb.recordset")
	sqltext="select * from houseb  where id="&id&" " 
	rs.open sqltext,conn,3,3	
	
  for a=1 to 5
	for i=1 to 11
		if request.form("h"&a&""&i&"")="" then
			rs("h"&a&""&i&"")=null
		else
			rs("h"&a&""&i&"")=request.form("h"&a&""&i&"")
		end if
	next
  next
	
	for i=1 to 6
		if request.form("h6"&i&"")="" then
			rs("h6"&i&"")=null
		else
			rs("h6"&i&"")=request.form("h6"&i&"")
		end if
	next
	
	for i=1 to 10
		if request.form("h7"&i&"")="" then
			rs("h7"&i&"")=null
		else
			rs("h7"&i&"")=request.form("h7"&i&"")
		end if
	next
	
	rs.update
	response.write "<script language=JavaScript>{window.alert('信息修改成功!');window.location.href='userinfo.asp';}</script>"
    response.end  
      
    end if

%>