add_newsto.asp

三鸟个人网站源码。

<!--#include file="conn.asp"-->
<!--#include file="session.asp"-->
<%
dim id,news_title,title_colour,news_writer,news_text
id=request("id")
news_title=request("news_title")
title_colour=request("title_colour")
news_writer=request("news_writer")
news_text=request("news_text")
news_time=Month(Date)&"月"&Day(Date)&"日"

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

rs.AddNew
rs("id")=id
rs("news_title")=news_title
rs("title_colour")=title_colour
rs("news_writer")=news_writer
rs("news_text")=news_text
rs("news_time")=Month(Date)&"月"&Day(Date)&"日"
rs.Update
rs.Close
set rs=nothing
conn.Close
set conn=nothing

Response.write "添加新闻成功！！"
Response.write"<a href=add_news.asp>返回</a>"
%>