%
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,Application(Dvbbs.CacheName&"_boardlist").documentElement.selectSingleNode("board[@boardid='"&Dvbbs.BoardID&"']/@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()
%>
管理成员:
<%
Dim master
For Each master in Application(Dvbbs.CacheName&"_boardmaster").documentElement.selectNodes("boardmaster[@boardid='"&Dvbbs.boardid&"']/master")
Response.Write master.text &" "
Next
%>
<%
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=