save_hire.asp

来自「伴江行房产易系统 v2.10资源介绍: 提供包括新房、二手房、租赁房、别墅、写字」· ASP 代码 · 共 86 行

<!--#include file=../include/config.asp-->
<!--#include file=../include/conn_view.asp-->
<%
        dim rs,sql,pb,house_ms,bh

        bh=replace(now(),left(now(),2),"")
	bh=replace(bh,"-","")
	bh=replace(bh,":","")
	bh=replace(bh," ","")
        bh="qz" & bh
	
        pb=request("pb")
	pb=replace(pb," ","&nbsp;")
        pb=replace(pb,chr(13)&chr(10),"<Br>")

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

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

  if trim(request("address"))="" then
     rs("address")="不限"
  else
     rs("address")=request("address")
  end if
        

  if trim(request("bus"))="" then
     rs("bus")="不限"
  else
     rs("bus")=request("bus")
  end if

        rs("zxcd")=request("zxcd")
        rs("qy")=request("qy")
        rs("wylx")=request("wylx")
        rs("hx")=request("hx")
        rs("min_area")=request("min_area")
        rs("max_area")=request("max_area")
        rs("jg")=request("jg")


        rs("do_floor")=request("do_floor_min") & " ~ " & request("do_floor_max")

        rs("min_pay")=request("min_pay")
        rs("max_pay")=request("max_pay")
        rs("pb")=pb
        rs("man")=request("man")
        rs("tel")=request("tel")

        rs("email")=request("email")
        rs("house_ms")=house_ms
        rs("date")=now()
if session("user_name")="xiao" then
   rs("pass")="否"
else
   rs("pass")="是"
end if
        rs("zj")=request("zj")
 if session("adminlogin") = "ok" then
        rs("user_id")=session("user_id")
 end if

 if session("zjlogin") = "ok" then
        rs("zj_id")=session("zj_id")
 end if

        rs.update

%>

<!--#include file=../include/foot.asp-->
<SCRIPT LANGUAGE=vbscript>
<!--
msgbox("您所发布的信息已成功提交!")
window.top.location.href="../../dj_hire.asp"
-->
</SCRIPT>