admin_announcesave.asp

庐江二中

<!--#include file="session.asp"-->
<%checkAdmin2%>
<!--#include file="conn.asp"-->
<%
ID=request.QueryString("id")
Title=request.form("Title")
Author=request.form("Author")
DateAndTime=request.form("DateAndTime")
if DateAndTime="" then DateAndTime=now()
Content=request.form("Content")
founerr=false
act=request("act")
if trim(Content)="" then
founderr=true
errmsg="<li>公告内容不能为空</li>"
end if

if founderr=true then
call error()
else
	
if act="edit" then
	sql="select * from Announce where ID="&ID
elseif act="add" then
	sql="select * from Announce"
else
response.write "操作错误！"
response.end
end if

rs.open sql,conn,1,3
if act="add" or act="edit" then
	if act="edit" then
		if rs.eof then
			response.write "操作错误"
			Response.End
		end if
	end if
	if act="add" then
		rs.addnew
	end if
	if Title="" then
		rs("Title")=null
	else
		rs("Title")=Title
	end if
	if Author="" then
		rs("Author")=null
	else
		rs("Author")=Author
	end if
	if request("win_width")="" then
		rs("win_width")=0
	else
		rs("win_width")=request("win_width")
	end if
	if request("win_height")="" then
		rs("win_height")=0
	else
		rs("win_height")=request("win_height")
	end if		
	rs("DateAndTime")=DateAndTime
	'rs("Content")=htmlencode2(Content)
	rs("Content")=Content
	rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Redirect "admin_AnnounceMana.asp"
end if
%>