message_edit_save.asp

来自「欢迎使用《雨点下载系统 2.0》！ 本系统仅提供给个人网站免费使用」· ASP 代码 · 共 42 行

<!--#include file="conn.asp"-->
<!--#include file="chkadmin.asp"-->
<!--#include file="inc/char.asp"-->
<%dim id,Title,Content
id=CInt(Request.Form("id"))
Title=Trim(Request.Form("Title"))
Content=RTrim(Request.Form("Content"))

dim sql,rs,errmsg,founderr
founderr=false

if chkadmin=false or power(5)="0" then
	founderr=true
	errmsg=errmsg+"<li>您没有修改公告的权限</li>"
end if

if Title="" then
	founderr=true
	errmsg=errmsg+"<li>标题不能为空</li>"
elseif strlen(TiTle)>60 then
	founderr=true
	errmsg=errmsg+"<li>标题不能大于60个字符</li>"
end if

if Content="" then
	founderr=true
	errmsg=errmsg+"<li>内容不能为空</li>"
end if

if founderr=false then
	conn.execute("update Message set Title='"&Title&"',Content='"&Content&"' where ID="&id)
	dim gourl,msg
	gourl="message_list.asp"
	msg="公告修改成功！"
	call ok()
else
	call error()
end if

conn.close
set conn=nothing
%>