l_writeok.asp

一个朋友购买的商业版房产网源程序

 <!--#include file="conn.asp"-->
		
		<%
		fbr=request("fbr")
		xb=request("xb")
		qq=request("qq")
		email=request("email")
		homepage=request("homepage")
		title=request("title")
		nr=request("nr")
		yc=request("yc")
		pic=request("pic")
		ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
        If userip = "" Then ip = Request.ServerVariables("REMOTE_ADDR") 

		
        set rs=server.CreateObject("adodb.recordset")
        sql="select * from liuyan"
        rs.open sql,conn,1,3
		
		rs.addnew
		
		rs("fbr")=fbr
		rs("xb")=xb
		rs("qq")=qq
		rs("email")=email
		rs("homepage")=homepage
		rs("title")=title
		rs("nr")=nr
		rs("yc")=yc
		rs("pic")=pic
		rs("ip")=ip
		
		rs.update
		
	
		%>

<script language=Javascript>
<!--
alert("恭喜！留 言 成 功 ！");
window.location='liuyan.asp';
//-->
</script>