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

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

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

您没有管理本页面的权限。" call dvbbs_error() else if request("action")="save" then call saveconst() else call consted() end if if founderr then call dvbbs_error() conn.close set conn=nothing end if sub consted() 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 %>
当前使用该模板的分论坛以下分论坛将使用本模板设置，如需修改论坛使用模板，可到论坛管理中重新设置
论坛广告设置（如为设置分论坛，就是分论坛首页广告，下属页面为帖子显示页面）
首页顶部广告代码	<%=Forum_ads(0)%>
首页尾部广告代码	<%=Forum_ads(1)%>
开启首页浮动广告	checked<%end if%>>关闭 checked<%end if%>>打开
论坛首页浮动广告图片地址
论坛首页浮动广告连接地址
论坛首页浮动广告图片宽度	象素
论坛首页浮动广告图片高度	象素
开启首页右下固定广告	checked<%end if%>>关闭 checked<%end if%>>打开
论坛首页右下固定广告图片地址
论坛首页右下固定广告连接地址
论坛首页右下固定广告图片宽度	象素
论坛首页右下固定广告图片高度	象素

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

请选择保存的模板名称" else Forum_ads=request("index_ad_t") & "$" & request("index_ad_f") & "$" & request("index_moveFlag") & "$" & request("MovePic") & "$" & request("MoveUrl") & "$" & request("move_w") & "$" & request("move_h") & "$" & request("Board_moveFlag") & "$" & request("fixupPic") & "$" & request("FixupUrl") & "$" & request("Fixup_w") & "$" & request("Fixup_h") & "$" & request("Board_fixupFlag") & "$" & request("index_fixupFlag") 'response.write Forum_ads if request("checkall")="1" then sql = "update config set Forum_ads='"&CheckStr(Forum_ads)&"'" conn.execute(sql) else if request("skinid")<>"" then sql = "update config set Forum_ads='"&CheckStr(Forum_ads)&"' where id in ( "&request("skinid")&" )" conn.execute(sql) end if end if response.write "设置成功。" end if end sub %>