add_newsto2.asp

三鸟个人网站源码。

<!--#include file="conn.asp"-->
<!--#include file="session.asp"-->
<%
dim news_title,news_writer,news_text
news_title=request("news_title")
news_writer=request("news_writer")
news_text=request("news_text")
title_colour=request("title_colour")

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from news where news_id="&request("news_id")
rs.open sql,conn,1,3

rs("news_title")=news_title
rs("news_writer")=news_writer
rs("news_text")=news_text
rs("title_colour")=title_colour

rs.Update
rs.Close
set rs=nothing
conn.Close
set conn=nothing

Response.write "修改新闻成功！！"
Response.write"<a href=savenews.asp>返回</a>"
%>