save_lyb.asp

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

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

	sql="select * from [lyb]"
	set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,3
        rs.addnew
        
        rs("ly_bz")=ly_bz
        rs("ly_man")=request("ly_man")
        rs("ly_tel")=request("ly_tel")
        rs("ly_email")=request("ly_email")
        rs("ly_date")=now()

        rs.update

%>

<!--#include file=../include/foot.asp-->

<SCRIPT LANGUAGE=vbscript>
<!--
msgbox("你已成功留言!")
Sub window_onload

window.history.back

End Sub

-->
</SCRIPT>