save_paper.asp

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

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

	sql="select * from [paper]"
	set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,3
        rs.addnew
        
        rs("bz")=bz
        rs("type")=request("type")
        rs("title")=request("title")
        rs("from")=request("from")
        rs("date")=now()
        rs("color")=request("color")

        rs.update

response.write "new库发布成功!"
%>

<%
        connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
	connstr = connstr & Server.MapPath("../mdb/view.asp")
	'response.write connstr
	set conn=Server.CreateObject("AdoDb.Connection")
	conn.Open connstr

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

        rs("type")=request("type")
        rs("title")=request("title")
        rs("color")=request("color")

        rs.update

response.write "view库发布成功!"
%>
<!--#include file=../include/foot.asp-->