<% stats="版主管理页面" dim sql1,rs1 if not founduser then founderr=true Errmsg=Errmsg+"
"+"
  • 请登陆后进行操作。" end if if request("boardid")="" then founderr=true Errmsg=Errmsg+"
    "+"
  • 请指定论坛版面。" elseif not isInteger(request("boardid")) or request("boardid")=0 then founderr=true Errmsg=Errmsg+"
    "+"
  • 非法的版面参数。" else boardid=clng(request("boardid")) end if if not( boardmaster or master or superboardmaster ) then founderr=true Errmsg=Errmsg+"
    "+"
  • 只有管理员才能登陆。" end if call nav() if founderr then call head_var(1,BoardDepth,0,0) call dvbbs_error() else call head_var(1,BoardDepth,0,0) dim title dim content set rs=server.createobject("adodb.recordset") call main() end if set rs=nothing call footer() sub main() %>
    欢迎 <%=htmlencode(membername)%>进入版主管理页面
    管理选项：>论坛公告发布 <%if master then%> | >公告管理 <%end if%> | >基本信息管理 | >基本设置管理 | >颜色设置管理 | >分版广告管理
    《 本版信息栏 》
    <%=boardtype%>
    今日新帖： <%=todaynum%>
    主题帖子： <%=LastTopicNum%>
    本版帖子： <%=LastBbsNum%>
    管理成员： <%=boardmasterlist%>
    《 管理权限 》
    主版主可增删副版主： <%if Board_Setting(33)=1 then%>打开<%else%>关闭<%end if%>
    主版主可修改颜色配置： <%if Board_Setting(34)=1 then%>打开<%else%>关闭<%end if%>
    所有版主均可修改颜色配置： <%if Board_Setting(35)=1 then%>打开<%else%>关闭<%end if%>
    注意：各个版面版主可以在自己版面自由发布公告和版面设置，管理员可以在所有版面发布，并对信息进行管理操作。
    注意：
    本页面为版主专用，使用前请看左边相对应的功能是否打开，在进行管理设置的时候，不要随意更改设置，如需更改，必须填写完整或者正确的填写。
    <% select case request("action") case "new" call savenews() case "manage" call manage() case "edit" call edit() case "updat" call update() case "del" call del() case "editbminfo" call editbminfo() case "saveditbm" call savebminfo() case "editbmset" call editbmset() case "savebmset" call savebmset() case "editbmcolor" call editbmcolor() case "savebmcolor" call savebmcolor() case "editbmads" call editbmads() case "savebmads" call savebmads() case else call news() end select if founderr then call dvbbs_error() %>
    <% end sub sub news() %>
    发布版面：
    		<%if master then%> <% sql="select boardid,boardtype from board" rs.open sql,conn,1,1 %> <%else%> <% sql="select boardtype from board where boardid="&boardid rs.open sql,conn,1,1 boardtype=rs("boardtype") %> <%end if%>
    发布人：
    标题：
    内容：
     
    <% end sub sub savenews() dim username,title,content if request("boardid")<>"" or (not isInteger(request("boardid"))) then boardid=clng(request("boardid")) else Errmsg=Errmsg+"
    "+"
  • 您输入了错误的参数。" founderr=true end if if request("username")="" then Errmsg=Errmsg+"
    "+"
  • 请输入发布者。" founderr=true else username=checkstr(request("username")) end if if request("title")="" then Errmsg=Errmsg+"
    "+"
  • 请输入新闻标题。" founderr=true else title=checkstr(request("title")) end if if request("content")="" then Errmsg=Errmsg+"
    "+"
  • 请输入新闻内容。" founderr=true else content=checkstr(request("content")) end if if founderr=true then call dvbbs_error() exit sub end if if (master or superboardmaster or boardmaster) and Cint(GroupSetting(25))=1 then sql="select * from bbsnews" rs.open sql,conn,1,3 rs.addnew rs("username")=username rs("title")=title rs("content")=content rs("addtime")=Now() rs("boardid")=boardid rs.update rs.close myCache.name="AnnounceMents"&BoardID myCache.makeEmpty call success() else Errmsg=Errmsg+"
  • 您没有执行此操作的权限。" founderr=true exit sub end if end sub sub manage() dim caneditann caneditann=false if (master or superboardmaster or boardmaster) and Cint(GroupSetting(26))=1 then caneditann=true else caneditann=false end if if not caneditann then Errmsg=Errmsg+"
  • 您没有执行此操作的权限。" founderr=true exit sub end if sql="select * from bbsnews where boardid<>0" rs.open sql,conn,1,1 %> <%do while not rs.eof%> <% rs.movenext loop rs.close %>
    标题 操作
    &boardid=<%=rs("boardid")%>><%=rs("title")%> &boardid=<%=boardid%>>删除
    <% end sub sub edit() %>
    " method=post> <% sql="select * from bbsnews where id="&cstr(request("id")) rs.open sql,conn,1,1 %>
    发布版面： <% dim sel sql="select boardid,boardtype from board" rs.open sql,conn,1,1 %>
    发布人： >
    标题： >
    内容：
     
    <% end sub sub update() dim username,title,content dim caneditann caneditann=false if (master or superboardmaster or boardmaster) and Cint(GroupSetting(25))=1 then caneditann=true else caneditann=false end if if not caneditann then Errmsg=Errmsg+"
  • 您没有执行此操作的权限。" founderr=true exit sub end if if request("id")="" or not isnumeric(request("id")) then Errmsg=Errmsg+"
  • 请选择正确的公告。" founderr=true exit sub end if if request("boardid")<>"" or (not isInteger(request("boardid"))) then boardid=clng(request("boardid")) else Errmsg=Errmsg+"
  • 请选择正确的论坛。" founderr=true exit sub end if if request("username")="" then Errmsg=Errmsg+"
    "+"
  • 请输入发布者。" founderr=true else username=checkstr(request("username")) end if if request("title")="" then Errmsg=Errmsg+"
    "+"
  • 请输入新闻标题。" founderr=true else title=checkstr(request("title")) end if if request("content")="" then Errmsg=Errmsg+"
    "+"
  • 请输入新闻内容。" founderr=true else content=checkstr(request("content")) end if if founderr=true then call dvbbs_error() else sql="select * from bbsnews where id="&cstr(request("id")) rs.open sql,conn,1,3 rs("username")=username rs("title")=title rs("content")=content rs("addtime")=Now() rs("boardid")=boardid rs.update rs.close myCache.name="AnnounceMents"&BoardID myCache.makeEmpty call success() end if end sub sub del() dim caneditann caneditann=false if (master or superboardmaster or boardmaster) and Cint(GroupSetting(26))=1 then caneditann=true else caneditann=false end if if not caneditann then Errmsg=Errmsg+"
  • 您没有执行此操作的权限。" founderr=true exit sub end if if request("id")="" and not isnumeric(request("id")) then Errmsg=Errmsg+"
  • 请选择正确的公告。" founderr=true exit sub end if dim delid delid=replace(request("id"),"'","") delid=replace(request("id"),";","") delid=replace(request("id"),"--","") delid=replace(request("id"),")","") conn.execute("delete from bbsnews where id in ("&delid&")") myCache.name="AnnounceMents"&BoardID myCache.makeEmpty call success() end sub sub success() %>

    成功：新闻操作 <% end sub sub editbminfo() dim master_1 %>
    <% set rs= server.CreateObject ("adodb.recordset") sql = "select * from board where boardid="+CSTr(boardid) rs.open sql,conn,1,1 if rs.eof and rs.bof then Errmsg=Errmsg+"
    "+"
  • 您没有指定相应论坛ID，不能进行管理。" call dvbbs_error() exit sub end if if not master then if Board_Setting(33)=1 then master_1=split(rs("boardmaster"),"|") if membername<>master_1(0) then Errmsg=Errmsg+"
    "+"
  • 本项功能为主版主专用。" call dvbbs_error() exit sub end if else Errmsg=Errmsg+"
    "+"
  • 您未有修改设置的权限。" call dvbbs_error() exit sub end if end if %>
    字段名称：
    变量值：
    论坛名称：
    版面说明：
    版主修改： (多版主添加请用|分隔，如：沙滩小子|wodeail)
     
    • <% rs.close end sub sub savebminfo() dim rname dim readme,boardtype,boardmaster if request("boardid")<>"" or (not isInteger(request("boardid"))) then boardid=clng(request("boardid")) else Errmsg=Errmsg+"
  • 请选择正确的论坛。" founderr=true exit sub end if readme=checkStr(Request.form("readme")) boardtype=checkStr(Request.form("boardtype")) boardmaster=checkStr(Request.form("boardmaster")) if readme="" then Errmsg=Errmsg+"
    "+"
  • 请输入论坛简介。" founderr=true end if if boardtype="" then Errmsg=Errmsg+"
    "+"
  • 请输入论坛名称。" founderr=true end if if boardmaster="" then Errmsg=Errmsg+"
    "+"
  • 请输入管理成员。" founderr=true end if if founderr=true then call dvbbs_error() exit sub end if rname=split(boardmaster,"|") for i=0 to ubound(rname) sql="select top 1 username from [user] where username='"&replace(rname(i),"'","")&"'" set rs=conn.execute(sql) if rs.eof and rs.bof then founderr=true errmsg=errmsg+"
    "+"
  • 论坛没有这个用户，不能添加为版主" exit sub exit for end if set rs=nothing next set rs=server.createobject("adodb.recordset") sql = "select * from board where boardid="+Cstr(request("boardid")) rs.open sql,conn,1,3 if rs.eof and rs.bof then Errmsg=Errmsg+"
    "+"
  • 您没有指定相应论坛ID，不能进行管理。" call dvbbs_error() exit sub end if rs("boardmaster") = boardmaster rs("readme") = readme rs("boardtype")=boardtype rs.Update rs.Close response.write "

    论坛修改成功！" end sub sub editbmset() dim chkedit dim master_1 chkedit=false set rs=conn.execute("select boardmaster from board where boardid="&request("boardid")) if rs.eof and rs.bof then Errmsg=Errmsg+"
    "+"

  • 您没有指定相应论坛ID，不能进行管理。" call dvbbs_error() exit sub end if if isnull(rs(0)) then Errmsg=Errmsg+"
    "+"
  • 本论坛还未有管理员。" call dvbbs_error() exit sub end if master_1=split(rs(0),"|") if Board_Setting(35)=1 then chkedit=true else if Board_Setting(34)=0 then chkedit=false elseif Board_Setting(34)=1 and membername=master_1(0) then chkedit=true else chkedit=false end if end if if master then chkedit=true end if if chkedit=false then Errmsg=Errmsg+"
    "+"
  • 本项功能为主版主专用。 " call dvbbs_error() else %>
    > >
    论坛使用设置
    打开或者关闭论坛[顶部]
    版面语言
    论坛当前状态
    维护期间可设置关闭论坛使用    		 checked<%end if%>>打开  checked<%end if%>>关闭 
    维护说明
    在论坛关闭情况下显示，支持html语法
    是否起用定时开关论坛 checked<%end if%>>否  checked<%end if%>>是 
    论坛开放时间
    请确认您已经设置起用定时开关功能
    起止小时用符号“|”分开
    首页模式 checked<%end if%>>新版样式  checked<%end if%>>旧版样式 
    论坛基本信息[顶部]
    论坛名称
    论坛的url
    主页名称
    主页URL
    论坛首页Logo地址
    显示在论坛首页，添加论坛如果没有填写logo地址，则使用该内容
    论坛图片目录
    发贴心情目录
    发贴表情目录
    论坛头像目录
    版权信息
    论坛联系资料[顶部]
    论坛管理员Email
    给用户发送邮件时，显示的来源Email信息
    悄悄话选项[顶部]
    新短消息弹出窗口 checked<%end if%>>否  checked<%end if%>>是 
    论坛首页选项[顶部]
    首页显示论坛深度
    0代表一级，1代表2级，以此类推
    设置过大的论坛深度将影响论坛整体性能，请根据自己论坛情况做设置，建议设置为1    		 级
    快速登陆位置
    是否显示过生日会员 checked<%end if%>>否  checked<%end if%>>是 
    用户与注册选项[顶部]
    是否允许新用户注册
    关闭后论坛将不能注册    		 checked<%end if%>>否  checked<%end if%>>是 
    最短用户名长度
    填写数字，不能小于1大于50
    最长用户名长度
    填写数字，不能小于1大于50
    同一IP注册间隔时间
    如不想限制可填写0    		  秒
    Email通知密码
    确认您的站点支持发送mail，所包含密码为系统随机生成    		 checked<%end if%>>关闭  checked<%end if%>>打开 
    一个Email只能注册一个帐号 checked<%end if%>>关闭  checked<%end if%>>打开 
    注册需要管理员认证 checked<%end if%>>关闭  checked<%end if%>>打开 
    发送注册信息邮件
    请确认您打开了邮件功能    		 checked<%end if%>>关闭  checked<%end if%>>打开 
    开启短信欢迎新注册用户 checked<%end if%>>关闭  checked<%end if%>>打开 
    系统设置[顶部]
    论坛所在时区
    服务器时差
    脚本超时时间
    默认为300，一般不做更改    		  秒
    是否显示页面执行时间 checked<%end if%>>否  checked<%end if%>>是 
    禁止的邮件地址
    在下面指定的邮件地址将被禁止注册，每个邮件地址用“|”符号分隔
    本功能支持模糊搜索，如设置了eway禁止，将禁止eway@aspsky.net或者eway@dvbbs.net类似这样的注册
    防刷新功能有效的页面
    请确认您打开了防刷新功能
    您指定的页面将有防刷新作用，用户在限定的时间内不能重复打开该页面，具有一定减少资源消耗的作用
    每个页面名请用“|”符号隔开
    在线和用户来源[顶部]
    在线显示用户IP
    关闭后如果所属用户组、论坛权限、用户权限中设置了用户可浏览则可见    		 checked<%end if%>>保密  checked<%end if%>>公开 
    在线显示用户来源
    关闭后如果所属用户组、论坛权限、用户权限中设置了用户可浏览则可见
    开启本功能较消耗资源    		 checked<%end if%>>保密  checked<%end if%>>公开 
    在线资料列表显示用户当前位置 checked<%end if%>>否  checked<%end if%>>是 
    在线资料列表显示用户登陆和活动时间 checked<%end if%>>否  checked<%end if%>>是 
    在线资料列表显示用户浏览器和操作系统 checked<%end if%>>否  checked<%end if%>>是 
    在线名单显示客人在线
    为节省资源建议关闭    		 checked<%end if%>>关闭  checked<%end if%>>打开 
    在线名单显示用户在线
    为节省资源建议关闭    		 checked<%end if%>>关闭  checked<%end if%>>打开 
    删除不活动用户时间
    可设置删除多少分钟内不活动用户
    单位：分钟，请输入数字    		  分钟
    总论坛允许同时在线数
    如不想限制，可设置为0    		  人
    邮件选项[顶部]
    发送邮件组件
    如果您的服务器不支持下列组件，请选择不支持
    SMTP Server地址
    只有在论坛使用设置中打开了发送邮件功能，该填写内容方有效
    上传设置[顶部]
    头像上传 checked<%end if%>>关闭  checked<%end if%>>打开 
    允许的最大头像文件大小  K
    用户选项[顶部]
    允许个人签名 checked<%end if%>>关闭  checked<%end if%>>打开 
    允许用户使用头像 checked<%end if%>>关闭  checked<%end if%>>打开 
    最大头像尺寸
    定义内容为头像的最大高度和宽度    		  象素
    默认头像宽度
    定义内容为论坛头像的默认宽度    		  象素
    默认头像高度
    定义内容为论坛头像的默认宽度    		  象素
    使用自定义头像的最少发帖数  篇
    允许从其他站点上传头像
    就是是否可以直接使用http..这样的url来直接显示头像    		 checked<%end if%>>关闭  checked<%end if%>>打开 
    用户签名是否开启UBB代码 checked<%end if%>>关闭  checked<%end if%>>打开 
    用户签名是否开启HTML代码 checked<%end if%>>关闭  checked<%end if%>>打开 
    用户是否开启贴图标签
    包括图片、flash、多媒体等    		 checked<%end if%>>关闭  checked<%end if%>>打开 
    用户排行列表个数  个
    用户头衔
    是否允许用户自定义头衔    		 checked<%end if%>>关闭  checked<%end if%>>打开 
    用户头衔最大长度  byte
    自定义头衔最少发帖数量限制
    不做限制请设置为0    		  篇
    自定义头衔注册天数限制
    不做限制请设置为0    		  天
    自定义头衔上面两个条件加在一起限制 checked<%end if%>>否  checked<%end if%>>是 
    自定义头衔中要屏蔽的词语
    每个限制字符用“|”符号隔开
    防刷新机制[顶部]
    防刷新机制
    如选择打开请填写下面的限制刷新时间
    对版主和管理员无效    		 checked<%end if%>>关闭  checked<%end if%>>打开 
    浏览刷新时间间隔
    填写该项目请确认您打开了防刷新机制
    仅对帖子列表和显示帖子页面起作用    		  秒
    论坛分页设置[顶部]
    每页显示最多纪录
    用于论坛所有和分页有关的项目（帖子列表和浏览帖子除外）    		  条
    帖子选项[顶部]
    作为热门话题的最低人气值
    标准为主题回复数    		  条
    编辑过的帖子显示"由xxx于yyy编辑"的信息 checked<%end if%>>否  checked<%end if%>>是 
    管理员编辑后显示"由XXX编辑"的信息 checked<%end if%>>否  checked<%end if%>>是 
    等待"由XXX编辑"信息显示的时间
    允许用户编辑自己的帖子而不在帖子底部显示"由XXX编辑"信息的时限(以分钟为单位)    		  分钟
    编辑帖子时限
    编辑处理帖子的时间限制(以分钟为单位, 1天是1440分钟) 超过这个时间限制, 只有管理员和版主才能编辑和删除帖子. 如果不想使用这项功能, 请设置为0    		  分钟
    是否起用记录帖子阅读用户功能
    只有用户发言时选择记录阅读该贴用户方生效
    开启本功能将消耗部分系统资源
    发贴用户、管理员和版主可看到该贴阅读用户列表    		 checked<%end if%>>否  checked<%end if%>>是 
    门派设置[顶部]
    是否开启论坛门派 checked<%end if%>>否  checked<%end if%>>是 
     
    <% end if end sub '====================保存设置=================== sub savebmset() dim chkedit dim master_1 dim Forum_copyright chkedit=false set rs=conn.execute("select boardmaster from board where boardid="&request("boardid")) if rs.eof and rs.bof then Errmsg=Errmsg+"
    "+"
  • 您没有指定相应论坛ID，不能进行管理。" call dvbbs_error() exit sub end if if isnull(rs(0)) then Errmsg=Errmsg+"
    "+"
  • 本论坛还未有管理员。" call dvbbs_error() exit sub end if master_1=split(rs(0),"|") if Board_Setting(35)=1 then chkedit=true else if Board_Setting(34)=0 then chkedit=false elseif Board_Setting(34)=1 and membername=master_1(0) then chkedit=true else chkedit=false end if end if if master then chkedit=true end if dim Forum_setting if chkedit=false then Errmsg=Errmsg+"
    "+"
  • 本项功能为主版主专用。 " call dvbbs_error() else Forum_Setting=request.Form("Forum_Setting(0)") & "," & request.Form("Forum_Setting(1)") & "," & request.Form("Forum_Setting(2)") & "," & request.Form("Forum_Setting(3)") & "," & request.Form("Forum_Setting(4)") & "," & request.Form("Forum_Setting(5)") & "," & request.Form("Forum_Setting(6)") & "," & request.Form("Forum_Setting(7)") & "," & request.Form("Forum_Setting(8)") & "," & request.Form("Forum_Setting(9)") & "," & request.Form("Forum_Setting(10)") & "," & request.Form("Forum_Setting(11)") & "," & request.Form("Forum_Setting(12)") & "," & request.Form("Forum_Setting(13)") & "," & request.Form("Forum_Setting(14)") & "," & request.Form("Forum_Setting(15)") & "," & request.Form("Forum_Setting(16)") & "," & request.Form("Forum_Setting(17)") & "," & request.Form("Forum_Setting(18)") & "," & request.Form("Forum_Setting(19)") & "," & request.Form("Forum_Setting(20)") & "," & request.Form("Forum_Setting(21)") & "," & request.Form("Forum_Setting(22)") & "," & request.Form("Forum_Setting(23)") & "," & request.Form("Forum_Setting(24)") & "," & request.Form("Forum_Setting(25)") & "," & request.Form("Forum_Setting(26)") & "," & request.Form("Forum_Setting(27)") & "," & request.Form("Forum_Setting(28)") & "," & request.Form("Forum_Setting(29)") & "," & request.Form("Forum_Setting(30)") & "," & request.Form("Forum_Setting(31)") & "," & request.Form("Forum_Setting(32)") & "," & request.Form("Forum_Setting(33)") & "," & request.Form("Forum_Setting(34)") & "," & request.Form("Forum_Setting(35)") & "," & request.Form("Forum_Setting(36)") & "," & request.Form("Forum_Setting(37)") & "," & request.Form("Forum_Setting(38)") & "," & request.Form("Forum_Setting(39)") & "," & request.Form("Forum_Setting(40)") & "," & request.Form("Forum_Setting(41)") & "," & request.Form("Forum_Setting(42)") & "," & request.Form("Forum_Setting(43)") & "," & request.Form("Forum_Setting(44)") & "," & request.Form("Forum_Setting(45)") & "," & request.Form("Forum_Setting(46)") & "," & request.Form("Forum_Setting(47)") & "," & request.Form("Forum_Setting(48)") & "," & request.Form("Forum_Setting(49)") & "," & request.Form("Forum_Setting(50)") & "," & request.Form("Forum_Setting(51)") & "," & request.Form("Forum_Setting(52)") & "," & request.Form("Forum_Setting(53)") & "," & request.Form("Forum_Setting(54)") & "," & request.Form("Forum_Setting(55)") & "," & request.Form("Forum_Setting(56)") & "," & request.Form("Forum_Setting(57)") & "," & request.Form("Forum_Setting(58)") & "," & request.Form("Forum_Setting(59)") & "," & request.Form("Forum_Setting(60)") & "," & request.Form("Forum_Setting(61)") & "," & request.Form("Forum_Setting(62)") & "," & request.Form("Forum_Setting(63)") & "," & request.Form("Forum_Setting(64)") & "," & request.Form("Forum_Setting(65)") & "," & request.Form("Forum_Setting(66)") & "," & request.Form("Forum_Setting(67)") & "," & request.Form("Forum_Setting(68)") & "," & request.Form("Forum_Setting(69)") & "," & request.Form("Forum_Setting(70)") & "," & request.Form("Forum_Setting(71)") & "," & request.Form("Forum_Setting(72)") 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") 'response.write forum_setting 'response.end sql="update config set Forum_Setting='"&Forum_Setting&"',StopReadme='"&request.Form("StopReadme")&"',Forum_info='"&Forum_info&"',Forum_copyright='"&Forum_copyright&"' where id="&skinid conn.execute(sql) response.write "设置成功。" end if end sub sub editbmcolor() dim master_1,chkedit set rs=conn.execute("select boardmaster from board where boardid="&request("boardid")) if rs.eof and rs.bof then Errmsg=Errmsg+"
    "+"
  • 您没有指定相应论坛ID，不能进行管理。" call dvbbs_error() exit sub end if if isnull(rs(0)) then Errmsg=Errmsg+"
    "+"
  • 本论坛还未有管理员。" call dvbbs_error() exit sub end if master_1=split(rs(0),"|") if Board_Setting(35)=1 then chkedit=true else if Board_Setting(34)=0 then chkedit=false elseif Board_Setting(34)=1 and membername=master_1(0) then chkedit=true else chkedit=false end if end if if master then chkedit=true end if if chkedit=false then Errmsg=Errmsg+"
    "+"
  • 本项功能为主版主专用。 " call dvbbs_error() else %>
    ">
    论坛界面设置 单击 这里 使用万用颜色拾取器（修改以下设置必须具备一定网页知识）
    论坛BODY标签
    控制整个论坛风格的背景颜色或者背景图片等
    Body的CSS定义
    可定义内容为网页字体颜色、背景、浏览器边框等
    以下定义中，凡是CSS定义的就不一定局限于颜色上的配置了，您可以设置其中的字体、背景等
    论坛连接总的CSS定义
    可定义内容为连接字体颜色、样式等
    论坛表格总的CSS定义
    这里为论坛总的表格定义，为一般表格的风格设置（如页面中除了导航和信息列表外的部分：尾部、头部等），可定义内容为背景、字体颜色、样式等
    顶部菜单表格CSS定义(Logo & Banner上方)
    调用：Class=TopDarkNav
    顶部菜单表格CSS定义(Logo & Banner下方)
    调用：Class=TopLighNav
    顶部菜单表格CSS定义(导航菜单)
    调用：Class=TopLighNav1
    顶部菜单表格CSS定义(Logo & banner部分)
    调用：Class=TopLighNav2
    表格边框颜色定义
    在下面定义一和二CSS定义控制不到的地方，最好保持和边框CSS定义一中同样的颜色
    表格边框（体）CSS定义一
    一般页面，可定义内容为主表格背景、背景图、边框、宽度等
    调用：Class=TableBorder1
    表格边框（体）CSS定义二
    分论坛导航表格边框及部分页面，可定义内容为主表格背景、背景图、边框、宽度等
    调用：Class=TableBorder2
    标题表格CSS定义一（深背景）
    一般为表格的标题状态栏颜色或者背景上的定义，可定义内容为背景、背景图、字体及其颜色等
    调用：th
    标题表格字体连接CSS定义（深背景）
    如果标题栏为深背景，在这里必须特别定义在标题栏中连接的颜色和字体的颜色一样，否则在这里将采用默认的连接颜色
    注意：这里的#TableTitleLink不能去掉，可以将几个项目分开写来达到连接的不同效果
    调用：id=TableTitleLink
    标题表格CSS定义二（浅背景）
    为二级标题状态栏颜色或者背景上的定义，如首页的论坛分类栏，可定义内容为背景、背景图、字体及其颜色等
    调用：Class=TableTitle2
    表格体CSS定义一
    可定义内容为背景、背景图、字体及其颜色等
    调用：Class=TableBody1
    表格体颜色二(1和2颜色在显示中穿插)
    可定义内容为背景、背景图、字体及其颜色等
    调用：Class=TableBody2
    表格宽度
    警告提醒语句的颜色
    显示帖子的时候，相关帖子，转发帖子，回复等的颜色
    首页连接颜色
    如版面连接
    一般用户名称字体颜色
    一般用户名称上的光晕颜色
    版主名称字体颜色
    版主名称上的光晕颜色
    管理员名称字体颜色
    版主名称上的光晕颜色
    贵宾名称字体颜色
    贵宾名称上的光晕颜色
     
    <% end if end sub sub savebmcolor() dim Forum_body,master_1 dim chkedit set rs=conn.execute("select boardmaster from board where boardid="&request("boardid")) if rs.eof and rs.bof then Errmsg=Errmsg+"
    "+"
  • 您没有指定相应论坛ID，不能进行管理。" call dvbbs_error() exit sub end if master_1=split(rs(0),"|") if Board_Setting(35)=1 then chkedit=true else if Board_Setting(34)=0 then chkedit=false elseif Board_Setting(34)=1 and membername=master_1(0) then chkedit=true else chkedit=false end if end if if master then chkedit=true end if if chkedit=false then Errmsg=Errmsg+"
    "+"
  • 本项功能为主版主专用。 " call dvbbs_error() else Forum_body=request.form("Tablebackcolor") & "|||" & request.form("aTablebackcolor") & "|||" & request.form("Tabletitlecolor") & "|||" & request.form("aTabletitlecolor") & "|||" & request.form("Tablebodycolor") & "|||" & request.form("aTablebodycolor") & "|||" & request.form("ForumCssLink") & "|||" & request.form("TableTitleLink") & "|||" & request.form("AlertFontColor") & "|||" & request.form("ContentTitle") & "|||" & request.form("ForumCssTD") & "|||" & request.form("ForumBody") & "|||" & request.form("TableWidth") & "|||" & request.form("BodyFontColor") & "|||" & request.form("BoardLinkColor") & "|||" & request.form("user_fc") & "|||" & request.form("user_mc") & "|||" & request.form("bmaster_fc") & "|||" & request.form("bmaster_mc") & "|||" & request.form("master_fc") & "|||" & request.form("master_mc") & "|||" & request.form("vip_fc") & "|||" & request.form("vip_mc") & "|||" & request.form("NavLighColor") & "|||" & request.form("NavDarkColor") & "|||" & request.form("IEbarColor") & "|||" & request.form("Navlighcolor1") & "|||" & request.form("btablebackcolor") & "|||" & request.form("Navlighcolor2") response.write skinid sql = "update config set Forum_body='"&checkstr(Forum_body)&"' where id="&skinid conn.execute(sql) response.write "设置成功！" end if end sub sub editbmads() dim master_1,chkedit set rs=conn.execute("select boardmaster from board where boardid="&request("boardid")) if rs.eof and rs.bof then Errmsg=Errmsg+"
    "+"
  • 您没有指定相应论坛ID，不能进行管理。" call dvbbs_error() exit sub end if if isnull(rs(0)) then Errmsg=Errmsg+"
    "+"
  • 本论坛还未有管理员。" call dvbbs_error() exit sub end if master_1=split(rs(0),"|") if Board_Setting(35)=1 then chkedit=true else if Board_Setting(34)=0 then chkedit=false elseif Board_Setting(34)=1 and membername=master_1(0) then chkedit=true else chkedit=false end if end if if master then chkedit=true end if if chkedit=false then Errmsg=Errmsg+"
    "+"
  • 本项功能为主版主专用。 " call dvbbs_error() else %>
    ">
    论坛广告设置（如为设置分论坛，就是分论坛首页广告，下属页面为帖子显示页面）
    首页顶部广告代码
    首页尾部广告代码
    开启首页浮动广告 checked<%end if%>>关闭  checked<%end if%>>打开 
    论坛首页浮动广告图片地址
    论坛首页浮动广告连接地址
    论坛首页浮动广告图片宽度  象素
    论坛首页浮动广告图片高度  象素
    开启首页右下固定广告 checked<%end if%>>关闭  checked<%end if%>>打开 
    论坛首页右下固定广告图片地址
    论坛首页右下固定广告连接地址
    论坛首页右下固定广告图片宽度  象素
    论坛首页右下固定广告图片高度  象素
     
    <% end if end sub sub savebmads() dim master_1 dim chkedit dim Forum_adsinfo set rs=conn.execute("select boardmaster from board where boardid="&request("boardid")) if rs.eof and rs.bof then Errmsg=Errmsg+"
    "+"
  • 您没有指定相应论坛ID，不能进行管理。" call dvbbs_error() exit sub end if master_1=split(rs(0),"|") if Board_Setting(35)=1 then chkedit=true else if Board_Setting(34)=0 then chkedit=false elseif Board_Setting(34)=1 and membername=master_1(0) then chkedit=true else chkedit=false end if end if if master then chkedit=true end if if chkedit=false then Errmsg=Errmsg+"
    "+"
  • 本项功能为主版主专用。 " call dvbbs_error() else Forum_adsinfo=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 sql = "update config set Forum_ads='"&CheckStr(Forum_adsinfo)&"' where id="&skinid conn.execute(sql) response.write skinid&"设置成功。" end if end sub %>