<%@ LANGUAGE="VBSCRIPT" %> <%=ForumName%>--管理页面 <% if not master then Errmsg=Errmsg+"
"+"
  • 本页面为管理员专用，请登陆后进入。" call Error() else call main() end if sub main() %> align=center>
    >
    欢迎<%=session("mastername")%>进入管理页面
    <%call leftmenu()%> <% if request("action")="save" then call saveconst() else call consted() end if %>
    <% end sub sub consted() %>
    > > > > > >
    >论坛变量设置
    论坛名称
    论坛的url
    主页名称
    主页URL
    SMTP Server地址
    论坛管理员Email
    服务器时差
    服务器ASP脚本超时时间值，建议不要使用
    论坛Logo地址
    论坛图片目录
    论坛表情地址
    发送邮件组件
    贴子上传图片
    用户IP
    头像上传
    用户来源
    用户头衔
    在线名单显示客人在线
    有新的短消息弹出窗口
    >关于贴子设置
    帖子内容最大的字节数
    每页显示最多纪录
    UBB风格浏览贴子每页显示贴子数
    >关于颜色字体设置（应用于除显示版面以外的页面，包括首页）
    表格背景(边框颜色)1
    一般页面
    表格背景(边框颜色)2
    用户页面、提示页面
    标题表格颜色1
    一般页面
    标题表格颜色2
    用户页面、提示页面
    表格体颜色1
    表格体颜色2(1和2颜色在首页显示中穿插)
    表格内文字标题颜色
    表格内文字内容颜色
    警告提醒语句的颜色
    显示帖子的时候，相关帖子，转发帖子，回复等的颜色
    >版权广告信息
    论坛页首广告代码
    论坛页尾广告代码
    版权信息
     
    <% end sub sub saveconst() set rs = server.CreateObject ("adodb.recordset") sql = "select * from config" rs.open sql,conn,1,3 if Request("ForumName")="" then errmsg = errmsg + "
    " + "
  • 请填论坛名称！
    • " Founderr=true else rs("ForumName") = Request("ForumName") end if if Request("ForumURL")="" then errmsg = errmsg + "
    " + "
  • 请填论坛连接地址！
    • " Founderr=true else rs("ForumURL") = Request("ForumURL") end if if Request("CompanyName")="" then errmsg = errmsg + "
    " + "
  • 请填主页名称名称！
    • " Founderr=true else rs("CompanyName") =Request("CompanyName") end if if Request("HostUrl")="" then errmsg = errmsg + "
    " + "
  • 请填论坛名称名称！
    • " Founderr=true else rs("HostUrl") = Request("HostUrl") end if if Request("SMTPServer")="" then errmsg = errmsg + "
    " + "
  • 请填写邮件服务器地址！
    • " Founderr=true else rs("SMTPServer") = request("SMTPServer") end if if Request("SystemEmail")="" then errmsg = errmsg + "
    " + "
  • 请填写邮件服务器地址！
    • " Founderr=true else rs("SystemEmail") = Request("SystemEmail") end if if Request("TimeAdjust")="" then rs("TimeAdjust") = 0 else rs("TimeAdjust") = Request("TimeAdjust") end if if Request("ScriptTimeOut")="" then rs("ScriptTimeOut") = 300 else rs("ScriptTimeOut") = Request("ScriptTimeOut") end if if Request("logo")="" then errmsg = errmsg + "
    " + "
  • 请填写论坛logo地址！
    • " Founderr=true else rs("Logo") = Request("Logo") end if if Request("Picurl")="" then errmsg = errmsg + "
    " + "
  • 请填写论坛图片目录！
    • " Founderr=true else rs("Picurl") = Request("Picurl") end if if Request("Faceurl")="" then errmsg = errmsg + "
    " + "
  • 请填写论坛表情目录！
    • " Founderr=true else rs("Faceurl") = Request("Faceurl") end if rs("EmailFlag") = Request("EmailFlag") rs("Uploadpic") = Request("Uploadpic") rs("IpFlag") = Request("IpFlag") rs("FromFlag") = Request("FromFlag") rs("TitleFlag")=Request("TitleFlag") rs("uploadFlag")=request("uploadFlag") rs("guestuser") = Request("guestuser") rs("openmsg") = Request("openmsg") rs("AnnounceMaxBytes") = Request("AnnounceMaxBytes") rs("MaxAnnouncePerPage") = Request("MaxAnnouncePerPage") rs("Maxtitlelist") = Request("Maxtitlelist") rs("Tablebackcolor") = Request("Tablebackcolor") rs("aTablebackcolor") = Request("aTablebackcolor") rs("Tabletitlecolor") = Request("Tabletitlecolor") rs("aTabletitlecolor") = Request("aTabletitlecolor") rs("Tablebodycolor") = Request("Tablebodycolor") rs("aTablebodycolor") = Request("aTablebodycolor") rs("TableFontcolor") = Request("TableFontcolor") rs("TableContentcolor") = Request("TableContentcolor") rs("AlertFontColor") = Request("AlertFontColor") rs("ContentTitle") = Request("ContentTitle") rs("ads1") = Request("ads1") rs("ads2") =Request("ads2") rs("Copyright") = Request("Copyright") if founderr then call error() exit sub else rs.update response.write "

    设置成功！" end if rs.close call getconst() set conn = nothing end sub %>