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

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

您没有管理本页面的权限。" call dvbbs_error() else dim body select case request("action") case "news" call step1() case "step2" call saveskin() case "active" call active() case "delet" call delete() case "edit" call edit() case "savedit" call savedit() case else call skininfo() end select conn.close set conn=nothing end if sub delete() set rs=conn.execute("select skinname from config where active=1 and id="&request("nskinid")) if rs.eof and rs.bof then conn.execute("delete from config where id="&request("nskinid")) response.write "删除成功。" else response.write "错误提示：当前使用的论坛模板不能删除，请先设置该模板为不是当前模板状态。" end if rs.close set rs=nothing call cache_skin() end sub sub edit() dim trs set rs=conn.execute("select skinname,tid from config where id="&request("skinid")) %>

" name="skinid">

说明： 请详细填写以下信息，修改模板配置请返回点击相关连接。

修改模板名称
模板名称

<% rs.close set rs=nothing end sub sub savedit() conn.execute("update config set skinname='"&request("skinname")&"' where id="&request("skinid")) call cache_skin() response.write "修改成功。" end sub sub skininfo() %>

论坛模板选择管理： 可点击相应模板进行统一查看和管理，可以设置某个模板为当前使用。由于相关的设置项目非常多，为了不至混淆，建议对当前使用的模板修改点击相应管理菜单进行修改，点击模板名称进行修改模板名。

<% set rs=conn.execute("select id,active,skinname from config order by id desc") do while not rs.eof %> <% rs.movenext loop rs.close set rs=nothing %>

模板名称	当前是否使用
"><%=rs(2)%>（">常规设置信息 | ">界面设置 | ">图片设置 | ">广告设置 | " onclick="{if(confirm('删除后不可恢复，确定删除吗?')){return true;}return false;}">删除）	checked<%end if%>>
当前论坛默认使用模板只能选择一个

<% end sub sub step1() %>

说明： 请详细填写以下信息，只有填写完所有步骤的信息，该模板才能保存到论坛模板列表中。

论坛基本信息(本模板其它信息在本步操作完成后在管理页面中修改)
模板名称
论坛基本信息
论坛名称
论坛的url
主页名称
主页URL
SMTP Server地址 只有在论坛使用设置中打开了发送邮件功能，该填写内容方有效
论坛管理员Email 给用户发送邮件时，显示的来源Email信息
论坛首页Logo地址 显示在论坛首页，添加论坛如果没有填写logo地址，则使用该内容
论坛图片目录
发贴心情目录
发贴表情目录
论坛头像目录
论坛所在时区
版权信息

<% end sub sub saveskin() dim ars dim Forum_copyright dim skinname Forum_info=Request("ForumName") & "," & Request("ForumURL") & "," & Request("CompanyName") & "," & Request("HostUrl") & "," & Request("SMTPServer") & "," & Request("SystemEmail") & "," & Request("Logo") & "," & Request("Picurl") & "," & Request("Faceurl") & "," & Request("GMT") & "," & Request("emoturl") & "," & Request("userfaceurl") Forum_copyright=request("copyright") skinName=request("skinname") set Ars=conn.execute("select * from config where active=1") set rs = server.CreateObject ("adodb.recordset") sql="select * from config" rs.open sql,conn,1,3 rs.addnew rs("Forum_body")=ars("Forum_body") rs("Forum_info")=Forum_info rs("Forum_copyright")=Forum_copyright rs("skinname")=skinname rs("Forum_Setting")=ars("Forum_Setting") rs("StopReadme")=ars("StopReadme") rs("Forum_upload")=ars("Forum_upload") rs("Forum_ubb")=ars("Forum_ubb") rs("Forum_statepic")=ars("Forum_statepic") rs("Forum_topicpic")=ars("Forum_topicpic") rs("Forum_boardpic")=ars("Forum_boardpic") rs("Forum_pic")=ars("Forum_pic") rs("Forum_ads")=ars("Forum_ads") rs("Forum_user")=ars("Forum_user") rs("badwords")=badwords rs("splitwords")=splitwords rs("birthuser")=ars("birthuser") rs("Maxonline")=ars("Maxonline") rs("MaxonlineDate")=ars("MaxonlineDate") rs("LastPost")="$$"&Now()&"$$$$$" rs("active")=0 rs("allposttable")=ars("allposttable") rs("allposttablename")=ars("allposttablename") rs("NowUseBBS")=ars("NowUseBBS") rs("Cookiepath")=ars("Cookiepath") rs("Forum_userface")=ars("Forum_userface") rs("Forum_PostFace")=ars("Forum_PostFace") rs("Forum_emot")=ars("Forum_emot") rs("tid")=request("tskinid") rs.update rs.close set rs=nothing call cache_skin() response.write "模板添加成功。" end sub sub active() set rs=conn.execute("select * from config where active=1") conn.execute("update config set active=0 where id="&rs("id")) conn.execute("update config set active=1,Maxonline="&rs("Maxonline")&",MaxonlineDate='"&rs("MaxonlineDate")&"',TopicNum="&rs("TopicNum")&",BbsNum="&rs("BbsNum")&",TodayNum="&rs("TodayNum")&",UserNum="&rs("UserNum")&",lastUser='"&rs("lastUser")&"',yesterdaynum="&rs("yesterdaynum")&",maxpostnum="&rs("maxpostnum")&",Cookiepath='"&rs("Cookiepath")&"' where id="&request("skinid")) response.write "更新成功，返回。" rs.close set rs=nothing end sub sub cache_skin() myCache.name="stylelist" dim stylelist stylelist="恢复默认设置
" set rs=conn.execute("select id,skinname from config order by id") do while not rs.eof stylelist=stylelist & ""&rs(1)&"
" rs.movenext loop myCache.add stylelist,dateadd("n",60,now) end sub %>