<%=Forum_info(0)%>--管理页面

<% dim admin_flag admin_flag="23" if not master or instr(session("flag"),admin_flag)=0 then Errmsg=Errmsg+"
"+"

本页面为管理员专用，请登陆后进入。

您没有管理本页面的权限。" call dvbbs_error() else if request("action")="save" then call savegrade() else call grade() end if if founderr then call dvbbs_error() conn.close set conn=nothing end if sub grade() dim sel %>

说明：
1、复选框中选择的为当前的使用设置模板，点击可查看该模板设置，点击别的模板直接查看该模板并修改设置。您可以将您下面的设置保存在多个论坛风格模板中
2、您也可以将下面设定的信息保存并应用到具体的分论坛设置中，可多选
3、如果您想在一个版面引用别的版面或模板的配置，只要点击该版面或模板名称，保存的时候选择要保存到的版面名称或模板名称即可。

当前使用主模板（可将设置保存到下列模板中）
<% set rs = server.CreateObject ("adodb.recordset") sql="select * from config" rs.open sql,conn,1,1 do while not rs.eof if request("skinid")="" then if request("boardid")="" then if rs("active")=1 then sel="checked" else sel="" end if else sel="" end if else if rs("id")=cint(request("skinid")) then sel="checked" skinid=rs("id") else sel="" end if end if response.write ""&rs("skinname")&" " rs.movenext loop rs.close set rs=nothing %>
当前使用该模板的分论坛以下分论坛将使用本模板设置，如需修改论坛使用模板，可到论坛管理中重新设置
用户金钱设定
注册金钱数
登陆增加金钱
发帖增加金钱
跟帖增加金钱
精华增加金钱
删帖减少金钱
用户经验设定
注册经验值
登陆增加经验值
发帖增加经验值
跟帖增加经验值
精华增加经验值
删帖减少经验值
用户魅力设定
注册魅力值
登陆增加魅力值
发帖增加魅力值
跟帖增加魅力值
精华增加魅力值
删帖减少魅力值

<% end sub sub savegrade() if trim(request("skinid"))="" and trim(request("boardid"))="" then Founderr=true Errmsg=Errmsg+"
"+"

请选择保存的模板名称" else Forum_user=request.form("wealthReg") & "," & request.form("wealthAnnounce") & "," & request.form("wealthReannounce") & "," & request.form("wealthDel") & "," & request.form("wealthLogin") & "," & request.form("epReg") & "," & request.form("epAnnounce") & "," & request.form("epReannounce") & "," & request.form("epDel") & "," & request.form("epLogin") & "," & request.form("cpReg") & "," & request.form("cpAnnounce") & "," & request.form("cpReannounce") & "," & request.form("cpDel") & "," & request.form("cpLogin") & "," & request.form("BestWealth") & "," & request.form("BestuserCP") & "," & request.form("BestuserEP") 'response.write Forum_user if request("skinid")<>"" then sql = "update config set Forum_user='"&Forum_user&"' where id in ( "&request("skinid")&" )" conn.execute(sql) end if response.write "设置成功。" end if end sub %>