admin_configsave.asp

一个美化的论坛程序

<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="function.asp"-->
<%
CheckAdmin
dim founderr,errmsg
founderr=false
ver=request.form("ver")
set rs=server.CreateObject("ADODB.RecordSet")
if trim(request.form("webname"))="" then
	errmsg="<li>网站名字必须添加！"
	call error()
	response.end
else
	webname=trim(request.form("webname"))
end if
if trim(request.form("weburl"))="" then
	errmsg="<li>网站地址必须添加！"
	call error()
	response.end
else
	weburl=trim(request.form("weburl"))
end if
if trim(request.form("maxperpage"))="" then
	errmsg="<li>每页主题数目必须填写！"
	call error()
	response.end
else
	maxperpage=trim(request.form("maxperpage"))
end if
sql="select * from config"
rs.open sql,conn,1,3
if rs.eof then
	errmsg="<li>非法修改数据库,数据库更新失败！"
	founderr=true
	response.end
else
	rs("webname")=webname
	rs("weburl")=weburl
	rs("ver")=ver
	rs("maxperpage")=maxperpage
	rs("bgcolor")=trim(request("bgcolor"))
	rs("bgimage")=trim(request("bgimage"))
	rs("images")=trim(request("images"))
	rs("ads")=trim(request("ads"))
	rs("tablebackcolor")=trim(request("tablebackcolor"))
	rs("tabletitlecolor")=trim(request("tabletitlecolor"))
	rs("tablebodycolor")=trim(request("tablebodycolor"))
	rs("tablebodyacolor")=trim(request("tablebodyacolor"))
	rs.update
end if
rs.close
response.redirect "admin_config.asp"
%>