save_change_paper.asp

来自「<1> 优化了部分代码及一些BUG.提高了浏览速度 <2&」· ASP 代码 · 共 45 行

<!--#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] where id=" & request("id")
	set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,3
      
        rs("bz")=bz
        rs("title")=request("title")
        rs("from")=request("from")
 
        rs("color")=request("color")

        rs.update
response.write "news修改成功"

%>
<%
        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] where id=" & request("id")
	set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,3

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

        rs.update

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