savebbs1.asp

这是一个文章管理的网页源程序

<!--#include file="cheak.asp"-->
<!--#include file="conn.asp"-->
<%
If request.form("bbs")=""Then
response.write "对不起！ <br>"
response.write "输入各栏不能为空"
 response.write(" <br><a href=vbscript:history.back()>返回重来</a>")
response.end
end if%>
<%  set rs=server.createobject("adodb.recordset")
	sql="select * from bbs where id="&request("id")
	rs.open sql,conn,3,2
	
	rs("bbs")=request.form("bbs")
	rs("addtime")=date()
	rs.update
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
response.write("站内文章修改成功！") 
response.redirect("adminbbs.asp")%>