<% Head() Dim Board_Setting if not Dvbbs.master or instr(","&session("flag")&",",",9,")=0 then Errmsg=ErrMsg + "
  • 本页面为管理员专用,请登录后进入。
  • 您没有管理本页面的权限。" call dvbbs_error() else if request("action")="save" then call saveconst() else call consted() end if Footer() end if sub consted() if not isnumeric(request("editid")) then Errmsg=ErrMsg + "
  • 错误的版面信息" dvbbs_error() exit sub end if set rs=Dvbbs.Execute("select * from dv_board where boardid="&request("editid")) Board_Setting=split(rs("board_setting"),",") %> " name="editid"> <% Dim VisitConfirm VisitConfirm=Split(Board_Setting(54),"|") IF Ubound(VisitConfirm)<>8 Then Redim VisitConfirm(8) For i=0 To 8 VisitConfirm(i)=0 Next End If %> <% Dim DownConfirm DownConfirm=Split(Board_Setting(55),"|") IF Ubound(DownConfirm)<>8 Then Redim DownConfirm(8) For i=0 To 8 DownConfirm(i)=0 Next End If %> <% Dim BoardTopic,BoardTopicImg,ii BoardTopic=Split(Board_Setting(48),"$$") BoardTopicImg=Split(Board_Setting(49),"$$") For ii=0 to Ubound(BoardTopic)-1 %> <%Next%>
    论坛高级设置 → <%=rs("boardtype")%>
    说明:
    1、请仔细设置下面的高级选项,Flash标签如果打开,对安全有一定影响,请根据您的具体情况考虑。
    2、您可以将高级设置的某项设置(选择该行设置右边的复选框)保存到所有版面、相同分类下所有版面(不包括分类)、相同分类下所有版面(包括分类)、同分类同级别版面,该项设置请慎重操作。
    3、注意,选择批量更新包括主题将会使用相同设置
    保存目标该版面 所有版面 相同分类下所有版面(不包括分类) 相同分类下所有版面(包括分类) 同分类同级别版面
    这里指的分类仅指一级分类,而不是该版面的上级版面,比如您目前设置的是一个五级版面,选择了相同分类下所有版面都更新,那么这里将更新包括该分类的一级、二级、三级、四级所有版面,如果您担心更新范围太大,可以选择更新同分类同级别版面。
     功能设置导航
    [基本属性] [访问权限] [前台管理权限] [发贴相关] [帖子列表显示] [帖子内容显示] [附件限制设置] [论坛专题设置] [论坛虚拟形象设置]
     基本属性[顶部]
    外部连接
    填写本内容后,在论坛列表点击此版面将自动切换到该网址
    请填写URL绝对路径
    分论坛LOGO
    填写图片的相对或绝对路径,不填写则当前版面LOGO为论坛设置中LOGO
    是否采用版主继承制度 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%>>是 
    帖子审核制度 checked<%end if%>>关闭  checked<%end if%>>开放 
    扩展审核制度 checked<%end if%>>关闭  checked<%end if%>>开放 
    敏感字设置
    可设置多个敏感字中间用"|"分隔如不填写可以填0
    允许同时在线数
    不限制则设置为0
    论坛定时设置 checked <%End If%>>关 闭 checked <%End If%>>定时关闭 checked <%End If%>>定时只读
    定时设置
    请根据需要选择开或关
    <% Board_Setting(22)=split(Board_Setting(22),"|") If UBound(Board_Setting(22))<2 Then Board_Setting(22)="1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1" Board_Setting(22)=split(Board_Setting(22),"|") End If For i= 0 to UBound(Board_Setting(22)) If i<10 Then Response.Write " " %> <%=i%>点:checked<%End If%>>开 <% If (i+1) mod 4 = 0 Then Response.Write "
    " Next %>
    用户至少文章数
    用户至少积分
    用户至少金钱
    用户至少魅力
    用户至少威望
    用户至少精华文章
    用户被删帖子数上限
    至少注册时间(单位为分钟)
    至少上传文件个数
     认证版块高级设置[顶部]
    :当本版块设为认证版面时,以下设置才能生效。
    用户进入需要金钱数 设置后进入该版面将需要支付一定量的金币
    用户进入需要点券数 设置后进入该版面将需要支付一定量的点券
    VIP用户组进入收取金币点券标准
    请以小数设置,设置为0则不需要支持金币和点券,否则以上面两项设置的标准:VIP用户进入需要金币数或点券数 = VIP用户组收取金币点券标准 X 用户进入需要金币数或点券数
    设置后进入该版面将需要支付一定量的点券
    支付金币或点券进入版面的有效期 填写数字1-999,代表有效期为多少个月
     前台管理权限[顶部]
    主版主可以增删副版主 checked<%end if%>>否  checked<%end if%>>是 
    主版主可以修改广告设置 checked<%end if%>>否  checked<%end if%>>是 
    所有版主可以修改广告设置 checked<%end if%>>否  checked<%end if%>>是 
    管理操作及评分理由选项
    每个理由用“|”分割
     发贴相关[顶部]
    发贴是否采用验证码 checked<%end if%>>采用  checked<%end if%>>不采用 
    主题限制长度 Byte
    发贴后返回 checked<%end if%>>首页  checked<%end if%>>论坛  checked<%end if%>>帖子 
    帖子内容最大字节数
    1024字节等于1K
    字节
    帖子内容最小字节数
    1024字节等于1K
    字节
    投票后是否将投票贴提升到帖子列表顶部 checked<%end if%>>否  checked<%end if%>>是 
    上传文件类型
    每种文件类型用“|”号分开
    是否起用防灌水机制 checked<%end if%>>否  checked<%end if%>>是 
    每次发贴间隔
    最多投票项目
    锁定主题天数
    锁定多少天以前发表的主题,不限制则设置为0。
    "> 天
    是否允许使用魔法表情 checked<%end if%>>否  checked<%end if%>>是 
    是否允许用户发布支付宝交易贴 checked<%end if%>>否  checked<%end if%>>是 
    是否允许用户匿名发贴 checked<%end if%>>否  checked<%end if%>>是 
     帖子列表显示相关[顶部]
    帖子列表标题显示字符数
    帖子列表每页记录数
    浏览帖子每页记录数
    帖子列表默认读取数据量
    显示最新帖图片显示方式
    显示最新帖图片标识时间设置 :内更新的帖子
    显示最新帖图片地址设置(new):值为0或空时即不显示,填写准确地址; <% If instr(Board_Setting(60),".gif") Then Response.Write "" %>
     帖子内容显示相关[顶部]
    HTML代码解析 checked<%end if%>>关闭  checked<%end if%>>开放 
    UBB代码解析 checked<%end if%>>关闭  checked<%end if%>>开放 
    贴图标签 checked<%end if%>>关闭  checked<%end if%>>开放 
    表情标签 checked<%end if%>>关闭  checked<%end if%>>开放 
    Flash标签 checked<%end if%>>关闭  checked<%end if%>>开放 
    多媒体标签
    包括RM,AVI等
    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%>>开放 
    是否开放出售帖子功能 checked<%end if%>>关闭  checked<%end if%>>开放 
    是否开放定员帖子功能 checked<%end if%>>关闭  checked<%end if%>>开放 
    帖子正文字号
    帖子正文行间距 已取消,如要启用此设置请看dispbbs.asp的373行注释
    帖子正文首行缩进
    采用树型显示帖子内容 checked<%end if%>>关闭  checked<%end if%>>开放 
     下载附件限制设置[顶部]
    用户至少文章数
    用户至少积分
    用户至少金钱
    用户至少魅力
    用户至少威望
    用户至少精华文章
    用户被删帖子数上限
    至少注册时间
    至少上传文件个数
     论坛虚拟形象设置[顶部]
    浏览帖子中虚拟形象 checked <% End If %> > 显示全身 checked <% End If %> > 显示脸 checked <% End If %> > 显示半身 checked <% End If %> > 不显示(显示头像)
     论坛专题分类相关设置[顶部]
  • 允许发表专题权限,请到相应用户组发帖权限中设置;
  • 专题栏目可以添加,修改;
  • 注意删除专题同时,会将最后专题的所有文章更新为普通主题。
  • 专题名称: 相应显示图标: <% If BoardTopicImg(ii)<>"" and Instr(BoardTopicImg(ii),".gif") Then Response.Write "" %>
    添加专题: 相应显示图标:
    <% end sub sub saveconst() if not isnumeric(request("editid")) then Errmsg=ErrMsg + "
  • 错误的版面参数" dvbbs_error() exit sub else Dim iboard_setting,isetting Dim BoardTopic,BoardTopicImg,TempStr,ii,BoardTopicNum Dim DownConfirm,ViewConfirm,SuperBoardSetting ii=0 i=0 If Request.Form("Board_Setting(62)")="" Or Not IsNumeric(Request.Form("Board_Setting(62)")) Then Errmsg=ErrMsg + "
  • 设置的金币数有误。" dvbbs_error() exit sub End If If Request.Form("Board_Setting(63)")="" Or Not IsNumeric(Request.Form("Board_Setting(63)")) Then Errmsg=ErrMsg + "
  • 设置的点券数有误。" dvbbs_error() exit sub End If If Request.Form("Board_Setting(64)")="" Or Not IsNumeric(Request.Form("Board_Setting(64)")) Then Errmsg=ErrMsg + "
  • 设置的有效月份数有误。" dvbbs_error() exit sub End If If Clng(Request.Form("Board_Setting(62)"))>0 Or Clng(Request.Form("Board_Setting(63)"))>0 Then If Clng(Request.Form("Board_Setting(64)"))<1 Or Clng(Request.Form("Board_Setting(64)")) > 999 Then Errmsg=ErrMsg + "
  • 设置的有效月份数有误。" dvbbs_error() exit sub End If End If If (Clng(Request.Form("Board_Setting(62)"))>0 Or Clng(Request.Form("Board_Setting(63)"))>0) And Clng(Request.Form("Board_Setting(64)"))>0 Then SuperBoardSetting = 1 Else If Request.Form("Board_Setting(2)")="" Then SuperBoardSetting = 0 Else SuperBoardSetting = Request.Form("Board_Setting(2)") End If End If For Each TempStr in Request.Form("Board_Setting(54)") i=i+1 ViewConfirm=ViewConfirm&TempStr If i<>Request.Form("Board_Setting(54)").count Then ViewConfirm=ViewConfirm&"|" End If Next i=0 If not ISNumeric(Replace(ViewConfirm,"|","")) or Request.Form("Board_Setting(54)").count<>9 Then Errmsg=ErrMsg + "
  • 下载附件参数有错误,提交被中止。" dvbbs_error() exit sub End if For Each TempStr in Request.Form("Board_Setting(55)") i=i+1 DownConFirm=DownConFirm&TempStr If i<>Request.Form("Board_Setting(55)").count Then DownConFirm=DownConFirm&"|" End If Next i=0 If not ISNumeric(Replace(DownConFirm,"|","")) or Request.Form("Board_Setting(55)").count<>9 Then Errmsg=ErrMsg + "
  • 下载附件参数有错误,提交被中止。" dvbbs_error() exit sub End if IF Request("BoardTopicNum")<>"" and Isnumeric(Request("BoardTopicNum")) Then BoardTopicNum=Request("BoardTopicNum") Else BoardTopicNum=0 End If For Each TempStr in Request.form("BoardTopic") If TempStr<>"" Then BoardTopic=BoardTopic&TempStr&"$$" ii=ii+1 End If Next TempStr="" For Each TempStr in Request.form("BoardTopicImg") BoardTopicImg=BoardTopicImg&TempStr&"$$" Next TempStr="" If ii>99 Then Errmsg=ErrMsg + "
  • 专题栏目数目在100以内。" dvbbs_error() exit sub End If Dim setingdata,j '锁定多少天前的帖子判断,添加Board_Setting(71) 2004-9-16 Dv.Yz For i = 0 To 71 If Trim(request.Form("Board_Setting("&i&")"))="" Or i=22 Then 'Response.Write "Board_Setting("&i&")
    " isetting=0 If i=22 Then isetting="" For j=0 to 23 If isetting="" Then If Request.form("Board_Setting(22)"&j)="1" Then isetting="1" Else isetting="0" End If Else If Request.form("Board_Setting(22)"&j)="1" Then isetting=isetting&"|1" Else isetting=isetting&"|0" End If End If Next End If Else isetting=Replace(Trim(request.Form("Board_Setting("&i&")")),",","") End If If i = 0 Then iboard_Setting = isetting ElseIf i=2 Then iboard_Setting = iboard_Setting & "," & SuperBoardSetting ElseIf i = 48 Then iboard_Setting = iboard_Setting & "," & BoardTopic ElseIf i = 49 Then iboard_Setting = iboard_Setting & "," & BoardTopicImg ElseIf i=54 Then iboard_Setting = iboard_Setting & "," & ViewConfirm ElseIf i=55 Then iboard_Setting = iboard_Setting & "," & DownConFirm Else iboard_Setting = iboard_Setting & "," & isetting End If Next Dim FoundCKBoard FoundCKBoard=False For i=0 to UBound(Dvbbs.Forum_Setting) If request.Form("CK_Board_Setting("&i&")")<>"" Then FoundCKBoard=True Exit For End If Next Dim Forum_Boards,upBoardid,upid,temprs select case request("savetype") '当前版面 case "0" Dvbbs.Execute("update dv_board set board_setting='"&iboard_setting&"' where boardid="&Request("editid")) upBoardid=" and boardid="&Request("editid") '所有版面 case "1" Dvbbs.Execute("update dv_board set board_setting='"&iboard_setting&"'") upBoardid="" '相同分类下所有版面(不包括分类) case "2" set rs=Dvbbs.Execute("select rootid from dv_board where boardid="&request("editid")) if not rs.eof then Dvbbs.Execute("update dv_board set board_setting='"&iboard_setting&"' where (Not ParentID=0) and rootid="&rs(0)) Set temprs=Dvbbs.Execute("Select boardid from Dv_board where (Not ParentID=0) and rootid="&rs(0)) if not temprs.eof then upid=temprs.GetString(,, "",",","") end if temprs.close:Set temprs=Nothing end if rs.close:set rs=nothing upBoardid=" and boardid in ("&left(upid,(len(upid)-1))&")" '相同分类下所有版面(包括分类) case "3" set rs=Dvbbs.Execute("select rootid from dv_board where boardid="&request("editid")) if not rs.eof then Dvbbs.Execute("update dv_board set board_setting='"&iboard_setting&"' where rootid="&rs(0)) Set temprs=Dvbbs.Execute("select boardid from dv_board where rootid="&rs(0)) if not temprs.eof then upid=temprs.GetString(,, "",",","") end if temprs.close:Set temprs=Nothing end if rs.close:set rs=nothing upBoardid=" and boardid in ("&left(upid,(len(upid)-1))&")" '同分类同级别版面 case "4" set rs=Dvbbs.Execute("select rootid,ParentStr,ParentID from dv_board where boardid="&request("editid")) if not rs.eof then Dvbbs.Execute("update dv_board set board_setting='"&iboard_setting&"' where rootid="&rs(0)&" and ParentID="&rs(2)&" and ParentStr='"&rs(1)&"'") Set temprs=Dvbbs.Execute("select boardid from dv_board where rootid="&rs(0)&" and ParentID="&rs(2)&" and ParentStr='"&rs(1)&"'") if not temprs.eof then upid=temprs.GetString(,, "",",","") end if temprs.close:Set temprs=Nothing end if rs.close:set rs=nothing upBoardid=" and boardid in ("&left(upid,(len(upid)-1))&")" End Select If BoardTopicNum>ii Then Dvbbs.Execute("update Dv_Topic set Mode=0 where Mode >= "&ii+1&" "&upBoardid&" ") End If ReloadBoardCache() dv_suc("设置成功。返回版面高级设置") End If End Sub Sub ReloadBoardCache() Dim Board Dvbbs. LoadBoardList() For Each board in Application(Dvbbs.CacheName&"_boardlist").documentElement.selectNodes("board/@boardid") Dvbbs.LoadBoardData(board.text) Next End Sub %>