<% Dvbbs.stats="版主管理页面" Dvbbs.LoadTemplates("") Dvbbs.Nav() Dim sql1,rs1,sql,Rs,i If Dvbbs.UserID=0 Then Response.redirect "showerr.asp?ErrCodes=

请登录后进行操作。&action=OtherErr" If DVbbs.BoardID=0 then Dvbbs.Head_var 2,0,"","" Else Dvbbs.Head_var 1,Dvbbs.BoardNode.attributes.getNamedItem("depth").text,"","" GetBoardPermission End If If Not(Dvbbs.boardmaster or Dvbbs.master or Dvbbs.superboardmaster) Then Response.redirect "showerr.asp?ErrCodes=

只有该版版主级别以上的管理员才能登录。&action=OtherErr" If Not Dvbbs.ChkPost() Then Dvbbs.AddErrCode(16):Dvbbs.Showerr() Main() Dvbbs.Footer() Sub Main() %>

欢迎 <%=Dvbbs.htmlencode(Dvbbs.membername)%>进入版主管理页面
管理选项：公告发布和管理 \| 基本信息管理 \| 分版广告管理 \| 批量管理帖子 \| 分版小字报管理

《本版信息栏》
<%=Dvbbs.BoardType%>
今日新帖：	<%=Dvbbs.BoardNode.attributes.getNamedItem("todaynum").text%>
主题帖子：	<%=Dvbbs.BoardNode.attributes.getNamedItem("topicnum").text%>
本版帖子：	<%=Dvbbs.BoardNode.attributes.getNamedItem("postnum").text%>
管理成员： <%=Replace(Dvbbs.BoardMasterList&"","\|",",")%>
《管理权限》
主版主可增删副版主：	<%if Dvbbs.Board_Setting(33)=1 then%>打开<%else%>关闭<%end if%>
主版主可修改广告配置：	<%if Dvbbs.Board_Setting(34)=1 then%>打开<%else%>关闭<%end if%>
所有版主均可修改广告配置：	<%if Dvbbs.Board_Setting(35)=1 then%>打开<%else%>关闭<%end if%>
注意：各个版面版主可以在自己版面自由发布公告和版面设置，管理员可以在所有版面发布，并对信息进行管理操作。

注意：
本页面为版主专用，使用前请看左边相对应的功能是否打开，在进行管理设置的时候，不要随意更改设置，如需更改，必须填写完整或者正确的填写。

<% Select Case request("action") Case "new" Call savenews() Case "manage" Call manage() Case "updat" Call Update() Case "del" Call del() Case "editbminfo" Call editbminfo() Case "saveditbm" Call savebminfo() Case "editbmads" Call editbmads() Case "savebmads" Call savebmads() Case Else End Select %>

<% End Sub Sub editbmads() Dim master_1,chkedit If Not ChkBoardEditor(1) Then Response.Redirect "showerr.asp?ErrCodes=

你的权限不足，不能进行该项管理设置。&action=OtherErr" End If Set Rs=Dvbbs.Execute("select boardmaster,Board_Ads from dv_board where boardid="&Dvbbs.BoardID) If rs.eof and rs.bof Then Response.redirect "showerr.asp?ErrCodes=

您没有指定相应论坛ID，不能进行管理。&action=OtherErr" Dvbbs.Forum_Ads = Split(Rs(1),"$") %>

论坛广告设置（如为设置分论坛，就是分论坛首页广告，下属页面为帖子显示页面）
首页顶部广告代码	<%=(Dvbbs.Forum_ads(0))%>
首页尾部广告代码	<%=(Dvbbs.Forum_ads(1))%>
开启首页浮动广告	checked<%end if%>>关闭 checked<%end if%>>打开
论坛首页浮动广告图片地址
论坛首页浮动广告连接地址
论坛首页浮动广告图片宽度	象素
论坛首页浮动广告图片高度	象素
开启首页右下固定广告	checked<%end if%>>关闭 checked<%end if%>>打开
论坛首页右下固定广告图片地址
论坛首页右下固定广告连接地址
论坛首页右下固定广告图片宽度	象素
论坛首页右下固定广告图片高度	象素
是否开启帖间随机广告	checked<%end if%>>关闭 checked<%end if%>>打开
论坛帖间随机广告代码支持HTML语法，每条随机广告一行，用回车分开。
<%=Dvbbs.Forum_ads(14)%>
是否开启页面文字广告位	checked<%end if%>>关闭 checked<%end if%>>打开
页面文字广告位设置(版面) 请确认已打开了页面文字广告位功能	checked<%end if%>>帖子列表 checked<%end if%>>帖子内容 checked<%end if%>>两者都显示 checked<%end if%>>两者都不显示
文字广告每行广告个数	个
页面文字广告位内容支持HTML语法，每条广告一行，用回车分开。
<%=Dvbbs.Forum_ads(16)%>

<% End Sub Sub savebmads() If Not ChkBoardEditor(1) Then Response.Redirect "showerr.asp?ErrCodes=

你的权限不足，不能进行该项管理设置。&action=OtherErr" End If Dim Forum_adsinfo Dim iSetting For i = 0 To 30 If Trim(Request.Form("Forum_ads("&i&")"))="" Then iSetting=0 Else iSetting=Replace(Trim(Request.Form("Forum_ads("&i&")")),"$","") End If If i = 0 Then Forum_adsinfo = iSetting Else Forum_adsinfo = Forum_adsinfo & "$" & iSetting End If Next sql = "update dv_board set board_ads='"&Replace(Forum_adsinfo,"'","''")&"' where boardid="&Dvbbs.boardid Dvbbs.Execute(sql) 'Dvbbs.ReloadBoardInfo(Dvbbs.BoardID) Response.Write Dvbbs.BoardType&"广告设置成功。" Dvbbs.ReloadBoardCache Dvbbs.BoardID,Forum_adsinfo,"board_ads" End Sub '版主设置权限 Bloon 'Act 0=修改基本设置，1=修改广告 Function ChkBoardEditor(Act) Dim Master,IsMaster IsMaster = False ChkBoardEditor = False If Dvbbs.Master Then ChkBoardEditor = True Exit Function End If If Dvbbs.BoardMasterList<>"" or Not IsNull(Dvbbs.BoardMasterList) Then Master = Split(Dvbbs.BoardMasterList,"|")(0) End If If Dvbbs.Membername = Master and Dvbbs.Boardmaster Then IsMaster = True End If Select Case Act Case 0 If Dvbbs.Board_Setting(33) = "1" and IsMaster Then ChkBoardEditor = True End If Case 1 If Dvbbs.Board_Setting(35) = "1" Then ChkBoardEditor = True Else If Dvbbs.Board_Setting(34) = "1" and IsMaster Then ChkBoardEditor = True End If End If End Select End Function Sub Editbminfo() If Not IsObject(Conn) Then ConnectionDatabase Dim Master_1 Response.Write "

" Set Rs = Server.CreateObject("Adodb.Recordset") Sql = "SELECT * FROM Dv_Board WHERE Boardid = " & Dvbbs.Boardid Rs.Open Sql,Conn,1,1 If Rs.Eof And Rs.bof Then Response.Redirect "showerr.asp?ErrCodes=

您没有指定相应论坛ID，不能进行管理。&action=OtherErr" If Not ChkBoardEditor(0) Then Response.Redirect "showerr.asp?ErrCodes=

你的权限不足，不能进行该项管理设置。&action=OtherErr" End If %> <%If Cint(Dvbbs.Board_Setting(2))=1 Then%> <%End If%>

基本信息管理
论坛名称：
版面说明：	<%=enfixjs(rs("readme"))%>
版面规则：	<%=Server.Htmlencode(rs("Rules")&"")%>
版主修改：	(多版主添加请用\|分隔，如：沙滩小子\|wodeail)
认证用户：	<%=replace(rs("boarduser")&"",",",chr(13)&chr(10))%> 每个用回车分隔开
使用设置模板相关模板中包含论坛颜色、图片等设置	<% Dim forum_sid,iCssName,iCssID,iStyleName Dim Forum_cid,tRs set tRs=dvbbs.execute("select forum_sid,forum_css from dv_setup") Forum_sid=tRs(0) Forum_cid=Split(tRs(1),"@@@") iCssName=split(Forum_cid(0),"\|\|\|") iCssID=split(Forum_cid(3),"\|\|\|") tRs.close:Set tRs=Nothing %>

<% rs.close End Sub Sub Savebminfo() If Not ChkBoardEditor(0) Then Response.Redirect "showerr.asp?ErrCodes=

你的权限不足，不能进行该项管理设置。&action=OtherErr" End If Dim Rname, i Dim Readme, BoardType, Boardmaster, Sid, Boarduser, Rules Readme = Dvbbs.CheckStr(Request.Form("readme")) BoardType = Dvbbs.CheckStr(Request.Form("BoardType")) Boardmaster = Dvbbs.CheckStr(Fixjs(Request.Form("boardmaster"))) Rules = Dvbbs.CheckStr(Request.Form("Rules")) If Cint(Dvbbs.Board_Setting(2)) = 1 Then Boarduser = Dvbbs.CheckStr(Request.Form("boarduser")) Boarduser = Replace(boarduser,chr(13)&chr(10),",") End If Sid = Request("sid") If IsNumeric(Sid) = 0 Or Sid = "" Then Response.Redirect "showerr.asp?ErrCodes=

非法的模板编号&action=OtherErr" Sid=CLng(Sid) If Readme = "" Then Response.Redirect "showerr.asp?ErrCodes=

请输入论坛简介。&action=OtherErr" If BoardType = "" Then Response.Redirect "showerr.asp?ErrCodes=

请输入论坛名称。&action=OtherErr" If Boardmaster = "" Then Response.Redirect "showerr.asp?ErrCodes=

请输入管理成员。&action=OtherErr" Rname = split(Boardmaster,"|") For i = 0 To Ubound(Rname) Sql = "SELECT TOP 1 Username FROM [Dv_User] WHERE Username = '" & Replace(Rname(i),"'","") & "'" Set Rs = Dvbbs.Execute(Sql) If Rs.Eof And Rs.Bof Then Response.Redirect "showerr.asp?ErrCodes=

论坛没有" & Replace(Rname(i), "'", "") & "这个用户，不能添加为版主&action=OtherErr" Exit For End If Set Rs = Nothing Next Dim Classname, Titlepic Set Rs = Dvbbs.Execute("SELECT Usertitle, GroupPic FROM [Dv_UserGroups] WHERE UserGroupID = 3") If Not (Rs.Eof And Rs.Bof) Then Classname = Rs(0) Titlepic = Rs(1) End If For i = 0 To Ubound(Rname) Sql = "SELECT Top 1 UserGroupID From [Dv_User] WHERE Username = '" & Replace(Rname(i), "'", "") & "'" Set Rs = Dvbbs.Execute(Sql) If Rs(0) > 3 Then Dvbbs.Execute("Update [Dv_user] Set UserGroupID = 3, Userclass = '" & Classname & "', Titlepic = '" & Titlepic & "' WHERE Username = '" & Replace(Rname(i), "'", "") & "'" ) Set Rs = Nothing Next Set Rs = Server.Createobject("Adodb.Recordset") Sql = "SELECT * FROM Dv_Board WHERE Boardid = " & Dvbbs.BoardID Rs.Open Sql,Conn,1,3 If Rs.Eof And Rs.Bof Then Response.redirect "showerr.asp?ErrCodes=

您没有指定相应论坛ID，不能进行管理。&action=OtherErr" End If Rs("Boardmaster") = Boardmaster Rs("Readme") = Readme Rs("Rules") = Rules Rs("BoardType") = BoardType If Cint(Dvbbs.Board_Setting(2)) = 1 Then Rs("Boarduser") = Boarduser Rs("Sid") = Clng(Sid) Rs.Update Response.Write "

论坛修改成功！" 'Dvbbs.ReloadBoardInfo(Dvbbs.BoardID) 'Dvbbs.ReloadBoardCache Dvbbs.BoardID,Boardmaster,8,0 'Dvbbs.ReloadBoardCache Dvbbs.BoardID,Readme,7,0 'Dvbbs.ReloadBoardCache Dvbbs.BoardID,BoardType,1,0 'Dvbbs.ReloadBoardCache Dvbbs.BoardID,Sid,15,0 'If Cint(Dvbbs.Board_Setting(2)) = 1 Then Dvbbs.ReloadBoardCache Dvbbs.BoardID,Boarduser,13,0 Dvbbs.ReloadBoardInfo(Dvbbs.BoardID) End Sub Function fixjs(Str) If Str <>"" Then str = replace(str,"\", "\\") Str = replace(str, chr(34), "\""") Str = replace(str, chr(39),"\'") Str = Replace(str, chr(13), "\n") Str = Replace(str, chr(10), "\r") str = replace(str,"'", "'") End If fixjs=Str End Function Function enfixjs(Str) If Str <>"" Then Str = replace(str,"'", "'") Str = replace(str,"\""" , chr(34)) Str = replace(str, "\'",chr(39)) Str = Replace(str, "\r", chr(10)) Str = Replace(str, "\n", chr(13)) Str = replace(str,"\\", "\") End If enfixjs=Str End Function %>