📄 admin_boardset.asp
字号:
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/dv_clsother.asp" -->
<%
Dvbbs.stats="版主管理页面"
Dvbbs.LoadTemplates("")
Dvbbs.Nav()
Dim sql1,rs1,sql,Rs,i
If Dvbbs.UserID=0 Then Response.redirect "showerr.asp?ErrCodes=<li>请登录后进行操作。&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=<li>只有该版版主级别以上的管理员才能登录。&action=OtherErr"
If Not Dvbbs.ChkPost() Then Dvbbs.AddErrCode(16):Dvbbs.Showerr()
Main()
Dvbbs.Footer()
Sub Main()
%>
<TABLE cellpadding=0 cellspacing=1 class=tableborder1 align=center >
<tr >
<th height=24 align=center colspan="2">欢迎 <%=Dvbbs.htmlencode(Dvbbs.membername)%>进入版主管理页面</th>
</tr>
<tr >
<td height=24 align=center colspan="2" class=tablebody1>
<b>管理选项：<a href="announcements.asp?boardid=<%=Dvbbs.BoardID%>">公告发布和管理</a> |
<a href="admin_boardset.asp?action=editbminfo&boardid=<%=Dvbbs.BoardID%>">基本信息管理</a> |
<a href="admin_boardset.asp?action=editbmads&boardid=<%=Dvbbs.BoardID%>">分版广告管理</a> |
<a href="index.asp?action=batch&boardid=<%=Dvbbs.BoardID%>">批量管理帖子</a> |
<a href="infolist.asp?t=paper&boardid=<%=Dvbbs.BoardID%>">分版小字报管理</a>
</b></td>
</tr>
</table>
<BR>
<table cellpadding=0 cellspacing=0 width="<%=Dvbbs.mainsetting(0)%>" align=center style="word-break:break-all;">
<tr>
<td width="30%" valign=top align=left>
<table cellpadding=3 cellspacing=1 class=tableborder1 style="width:100%;word-break:break-all;">
<tr>
<th width="100%" height=24 colspan="2">《 本版信息栏 》
</th>
</tr>
<tr>
<td height=24 class=tablebody2 colspan="2" align=center ><%=Dvbbs.BoardType%>
</td>
</tr>
<tr>
<td width="60%" height=24 class=tablebody1 >今日新帖：
</td>
<td width="40%" height=24 class=tablebody1 ><font color="RED"><%=Application(Dvbbs.CacheName &"_information_" & Dvbbs.boardid).documentElement.selectSingleNode("information/@todaynum").text%></FONT>
</td>
</tr>
<tr>
<td height=24 class=tablebody2 >主题帖子：
</td>
<td height=24 class=tablebody2 ><%=Application(Dvbbs.CacheName &"_information_" & Dvbbs.boardid).documentElement.selectSingleNode("information/@topicnum").text%>
</td>
</tr>
<tr>
<td height=24 class=tablebody1 >本版帖子：
</td>
<td height=24 class=tablebody1 ><%=Application(Dvbbs.CacheName &"_information_" & Dvbbs.boardid).documentElement.selectSingleNode("information/@postnum").text%>
</td>
</tr>
<tr>
<td width="30%" height=24 class=tablebody2 colspan="2">管理成员：
<%
Dim master
For Each master in Application(Dvbbs.CacheName&"_boardmaster").documentElement.selectNodes("boardmaster[@boardid='"&Dvbbs.boardid&"']/master")
Response.Write master.text &" "
Next
%>
</td>
</tr>
<tr>
<th width="100%" height=24 colspan="2">《 管理权限 》
</th>
</tr>
<tr>
<td height=24 class=tablebody1 >主版主可增删副版主：
</td>
<td height=24 class=tablebody1 ><%if Dvbbs.Board_Setting(33)=1 then%>打开<%else%><FONT COLOR=RED>关闭</FONT><%end if%>
</td>
</tr>
<tr>
<td height=24 class=tablebody2 >主版主可修改广告配置：
</td>
<td height=24 class=tablebody2 ><%if Dvbbs.Board_Setting(34)=1 then%>打开<%else%><FONT COLOR=RED>关闭</FONT><%end if%>
</td>
</tr>
<tr>
<td height=24 class=tablebody1 >所有版主均可修改广告配置：
</td>
<td height=24 class=tablebody1 ><%if Dvbbs.Board_Setting(35)=1 then%>打开<%else%><FONT COLOR=RED>关闭</FONT><%end if%>
</td>
</tr>
<tr>
<td width="100%" height=24 colspan="2" class=tablebody2>
<b>注意：</b>各个版面版主可以在自己版面自由发布公告和版面设置，管理员可以在所有版面发布，并对信息进行管理操作。
</td>
</tr>
</table>
</td>
<td width="2%" valign=top align=center></td>
<td width="70%" valign=top align=center>
<table cellpadding=3 cellspacing=1 class=tableborder1 style="width:100%;word-break:break-all;">
<tr>
<td width="100%" height=24 class=tablebody1>
<B>注意</B>：<BR>本页面为版主专用，使用前请看左边相对应的功能是否打开，在进行管理设置的时候，不要随意更改设置，如需更改，必须填写完整或者正确的填写。
</td></tr>
</table>
<%
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
%>
</td>
</tr>
</table>
<%
End Sub
Sub editbmads()
Dim master_1,chkedit
If Not ChkBoardEditor(1) Then
Response.Redirect "showerr.asp?ErrCodes=<li>你的权限不足，不能进行该项管理设置。&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=<li>您没有指定相应论坛ID，不能进行管理。&action=OtherErr"
Dvbbs.Forum_Ads = Split(Rs(1),"$")
%>
<script language = "javaScript" src = "inc/toxhtml.js" type="text/javascript"></script>
<div style="display : none;" id="hiddenhtml"></div>
<form method="POST" action="?action=savebmads&boardid=<%=Dvbbs.BoardID%>">
<TABLE cellPadding=1 cellSpacing=1 class=tableborder1 align=center style="width:100%;word-break:break-all;">
<tr>
<th height="23" colspan="2" class="tableHeaderText"><b>论坛广告设置</b>（如为设置分论坛，就是分论坛首页广告，下属页面为帖子显示页面）</th>
</tr>
<tr>
<td colspan="2" class="tablebody1">注意事项：为防止管理帐号被盗用导致的挂马问题，如果您提交的广告数据含前台不接受的带object,iframe,script,link,meta等等有可能危害客户端的内容，请到后台广告管理中操作。</td>
</tr>
<tr>
<td width="40%" class="tablebody1"><B>首页顶部广告代码</B></font></td>
<td width="60%" class="tablebody1">
<textarea name="Forum_ads(0)" cols="50" rows="3" onblur="fixtoxhtml(this)"><%=(Dvbbs.Forum_ads(0))%></textarea>
</td>
</tr>
<tr>
<td width="40%" class="tablebody1"><B>首页尾部广告代码</B></font></td>
<td width="60%" class="tablebody1">
<textarea name="Forum_ads(1)" cols="50" rows="3" onblur="fixtoxhtml(this)"><%=(Dvbbs.Forum_ads(1))%></textarea>
</td>
</tr>
<tr>
<td width="40%" class="tablebody1"><B>开启首页浮动广告</B></font></td>
<td width="60%" class="tablebody1">
<input type=radio name="Forum_ads(2)" value=0 <%if Dvbbs.Forum_ads(2)=0 then%>checked<%end if%>>关闭
<input type=radio name="Forum_ads(2)" value=1 <%if Dvbbs.Forum_ads(2)=1 then%>checked<%end if%>>打开
</td>
</tr>
<tr>
<td width="40%" class="tablebody1"><B>论坛首页浮动广告图片地址</B></font></td>
<td width="60%" class="tablebody1">
<input type="text" name="Forum_ads(3)" size="35" value="<%=Dvbbs.Forum_ads(3)%>" onblur="fixtoxhtml(this)">
</td>
</tr>
<tr>
<td width="40%" class="tablebody1"><B>论坛首页浮动广告连接地址</B></font></td>
<td width="60%" class="tablebody1">
<input type="text" name="Forum_ads(4)" size="35" value="<%=Dvbbs.Forum_ads(4)%>" onblur="fixtoxhtml(this)">
</td>
</tr>
<tr>
<td width="40%" class="tablebody1"><B>论坛首页浮动广告图片宽度</B></font></td>
<td width="60%" class="tablebody1">
<input type="text" name="Forum_ads(5)" size="3" value="<%=Dvbbs.Forum_ads(5)%>" onblur="fixtoxhtml(this)"> 象素
</td>
</tr>
<tr>
<td width="40%" class="tablebody1"><B>论坛首页浮动广告图片高度</B></font></td>
<td width="60%" class="tablebody1">
<input type="text" name="Forum_ads(6)" size="3" value="<%=Dvbbs.Forum_ads(6)%>" onblur="fixtoxhtml(this)"> 象素
</td>
</tr>
<tr>
<td width="40%" class="tablebody1"><B>开启首页右下固定广告</B></font></td>
<td width="60%" class="tablebody1">
<input type=radio name="Forum_ads(13)" value=0 <%if Dvbbs.Forum_ads(13)=0 then%>checked<%end if%>>关闭
<input type=radio name="Forum_ads(13)" value=1 <%if Dvbbs.Forum_ads(13)=1 then%>checked<%end if%>>打开
</td>
</tr>
<tr>
<td width="40%" class="tablebody1"><B>论坛首页右下固定广告图片地址</B></font></td>
<td width="60%" class="tablebody1">
<input type="text" name="Forum_ads(8)" size="35" value="<%=Dvbbs.Forum_ads(8)%>" onblur="fixtoxhtml(this)">
</td>
</tr>
<tr>
<td width="40%" class="tablebody1"><B>论坛首页右下固定广告连接地址</B></font></td>
<td width="60%" class="tablebody1">
<input type="text" name="Forum_ads(9)" size="35" value="<%=Dvbbs.Forum_ads(9)%>" onblur="fixtoxhtml(this)">
</td>
</tr>
<tr>
<td width="40%" class="tablebody1"><B>论坛首页右下固定广告图片宽度</B></font></td>
<td width="60%" class="tablebody1">
<input type="text" name="Forum_ads(10)" size="3" value="<%=Dvbbs.Forum_ads(10)%>" onblur="fixtoxhtml(this)"> 象素
</td>
</tr>
<tr>
<td width="40%" class="tablebody1"><B>论坛首页右下固定广告图片高度</B></font></td>
<td width="60%" class="tablebody1">
<input type="text" name="Forum_ads(11)" size="3" value="<%=Dvbbs.Forum_ads(11)%>" onblur="fixtoxhtml(this)"> 象素
</td>
</tr>
<tr>
<td width="200" class="tablebody1"><B>是否开启帖间随机广告</B></td>
<td width="*" class="tablebody1">
<input type=radio name="Forum_ads(7)" value=0 <%if Dvbbs.Forum_ads(7)="0" then%>checked<%end if%>>关闭
<input type=radio name="Forum_ads(7)" value=1 <%if Dvbbs.Forum_ads(7)="1" then%>checked<%end if%>>打开
</td>
</tr>
<tr>
<td width="*" class="tablebody1" valign="top" colspan=2><B>论坛帖间随机广告代码</B> <br>支持HTML语法，每条随机广告一行，用回车分开。</td>
</tr>
<tr>
<td width="*" class="tablebody1" colspan=2>
<textarea name="Forum_ads(14)" style="width:100%" rows="10" onblur="fixtoxhtml(this,1)"><%=Dvbbs.Forum_ads(14)%></textarea>
</td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -