📄 admin_boardset.asp

📁 功能强大的bbs
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#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,Dvbbs.Board_Data(4,0),"",""
	GetBoardPermission
End If

If Not(Dvbbs.boardmaster or Dvbbs.master or Dvbbs.superboardmaster) Then Response.redirect "showerr.asp?ErrCodes=<li>只有管理员才能登录。&action=OtherErr"
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="list.asp?action=batch&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><%=Dvbbs.Board_Data(12,0)%></FONT>
			</td>
		</tr>
		<tr>
			<td  height=24 class=tablebody2 >主题帖子：
			</td>
			<td  height=24 class=tablebody2 ><%=Dvbbs.Board_Data(10,0)%>
			</td>
		</tr>
		<tr>
			<td  height=24 class=tablebody1 >本版帖子：
			</td>
			<td  height=24 class=tablebody1 ><%=Dvbbs.Board_Data(9,0)%>
			</td>
		</tr>
		<tr>
			<td width="30%" height=24 class=tablebody2 colspan="2">管理成员：
		<%=Replace(Dvbbs.BoardMasterList&"","|",",")%>
			</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 "edit"
		Call Edit()
	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 
		'Call news()
End Select
%>
        </td>
    </tr>
</table>
<%
End Sub 

Sub editbmads()
dim master_1,chkedit
If Dvbbs.master Then
	chkedit=True
	Set Rs=Dvbbs.Execute("select boardmaster,Board_Ads from dv_board where boardid="&request("boardid"))
	If rs.eof and rs.bof Then Response.redirect "showerr.asp?ErrCodes=<li>您没有指定相应论坛ID，不能进行管理。&action=OtherErr"
	Dvbbs.Forum_Ads = Split(Rs(1),"$")
Else
	Set Rs=Dvbbs.Execute("select boardmaster,Board_Ads from dv_board where boardid="&request("boardid"))
	If rs.eof and rs.bof Then Response.redirect "showerr.asp?ErrCodes=<li>您没有指定相应论坛ID，不能进行管理。&action=OtherErr"
	If IsNull(Rs(0)) Then 
		Response.redirect "showerr.asp?ErrCodes=<li>本论坛还未有管理员。&action=OtherErr"
	Else
		master_1=split(rs(0),"|")
	End If
	Dvbbs.Forum_Ads = Split(Rs(1),"$")
	If Dvbbs.Board_Setting(35)=1 Then
		chkedit=True
	Else
		If Dvbbs.Board_Setting(34)=0 Then
			chkedit=False
		ElseIf Dvbbs.Board_Setting(34)=1 and Dvbbs.membername=master_1(0) Then
			chkedit=True
		Else
			chkedit=False
		End If
	End If
End If 

if chkedit=False Then
	Response.redirect "showerr.asp?ErrCodes=<li>本项功能为主版主专用。&action=OtherErr"
Else
%>
<form method="POST" action="?action=savebmads&boardid=<%=request("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 width="40%" class="Tablebody1"><B>首页顶部广告代码</B></font></td>
<td width="60%" class="Tablebody1"> 
<textarea name="index_ad_t" cols="50" rows="3"><%=enfixjs(Dvbbs.Forum_ads(0))%></textarea>
</td>
</tr>
<tr> 
<td width="40%" class="Tablebody1"><B>首页尾部广告代码</B></font></td>
<td width="60%" class="Tablebody1"> 
<textarea name="index_ad_f" cols="50" rows="3"><%=enfixjs(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="index_moveFlag" value=0 <%if Dvbbs.Forum_ads(2)=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="index_moveFlag" value=1 <%if Dvbbs.Forum_ads(2)=1 then%>checked<%end if%>>打开&nbsp;
</td>
</tr>
<tr> 
<td width="40%" class="Tablebody1"><B>论坛首页浮动广告图片地址</B></font></td>
<td width="60%" class="Tablebody1"> 
<input type="text" name="MovePic" size="35" value="<%=Dvbbs.Forum_ads(3)%>">
</td>
</tr>
<tr> 
<td width="40%" class="Tablebody1"><B>论坛首页浮动广告连接地址</B></font></td>
<td width="60%" class="Tablebody1"> 
<input type="text" name="MoveUrl" size="35" value="<%=Dvbbs.Forum_ads(4)%>">
</td>
</tr>
<tr> 
<td width="40%" class="Tablebody1"><B>论坛首页浮动广告图片宽度</B></font></td>
<td width="60%" class="Tablebody1"> 
<input type="text" name="move_w" size="3" value="<%=Dvbbs.Forum_ads(5)%>">&nbsp;象素
</td>
</tr>
<tr> 
<td width="40%" class="Tablebody1"><B>论坛首页浮动广告图片高度</B></font></td>
<td width="60%" class="Tablebody1"> 
<input type="text" name="move_h" size="3" value="<%=Dvbbs.Forum_ads(6)%>">&nbsp;象素
</td>
</tr>
<input type=hidden name="Board_moveFlag" value=0>
<tr> 
<td width="40%" class="Tablebody1"><B>开启首页右下固定广告</B></font></td>
<td width="60%" class="Tablebody1"> 
<input type=radio name="index_fixupFlag" value=0 <%if Dvbbs.Forum_ads(13)=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="index_fixupFlag" value=1 <%if Dvbbs.Forum_ads(13)=1 then%>checked<%end if%>>打开&nbsp;
</td>
</tr>
<tr> 
<td width="40%" class="Tablebody1"><B>论坛首页右下固定广告图片地址</B></font></td>
<td width="60%" class="Tablebody1"> 
<input type="text" name="fixupPic" size="35" value="<%=Dvbbs.Forum_ads(8)%>">
</td>
</tr>
<tr> 
<td width="40%" class="Tablebody1"><B>论坛首页右下固定广告连接地址</B></font></td>
12 下一页
💿 文件大小 6173 K
👤 上传用户 Butterflies
📂 所属分类源码/资料
🏷️ 相关标签

#bbs
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -