www.gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\admin_boardset.asp

    <!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/dv_clsother.asp" -->
<%
Mybbs.stats="版主管理页面"
Mybbs.LoadTemplates("")
Mybbs.Nav()
Dim sql1,rs1,sql,Rs,i
If Mybbs.UserID=0 Then Response.redirect "showerr.asp?ErrCodes=<li>请登录后进行操作。&action=OtherErr"

If Mybbs.BoardID=0 then
	Mybbs.Head_var 2,0,"",""
Else
	Mybbs.Head_var 1,Mybbs.Board_Data(4,0),"",""
	GetBoardPermission
End If

If Not(Mybbs.boardmaster or Mybbs.master or Mybbs.superboardmaster) Then Response.redirect "showerr.asp?ErrCodes=<li>只有管理员才能登录。&action=OtherErr"
Main()

Mybbs.Footer()

Sub Main()
%>
<TABLE cellpadding=0 cellspacing=1 class=tableborder1 align=center > 
        <tr >
          <th height=24 align=center colspan="2">欢迎 <%=Mybbs.htmlencode(Mybbs.membername)%>进入版主管理页面</th>
        </tr>
        <tr >
          <td height=24 align=center colspan="2" class=tablebody1>
        <b>管理选项:<a href="announcements.asp?boardid=<%=Mybbs.BoardID%>">公告发布和管理</a> | 
		<a href="admin_boardset.asp?action=editbminfo&boardid=<%=Mybbs.BoardID%>">基本信息管理</a> |  
				<a href="admin_boardset.asp?action=editbmads&boardid=<%=Mybbs.BoardID%>">分版广告管理</a> |  
				<a href="list.asp?action=batch&boardid=<%=Mybbs.BoardID%>">批量管理帖子</a>
		</b></td>
        </tr>
</table>
<BR>
<table cellpadding=0 cellspacing=0 width="<%=Mybbs.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 ><%=Mybbs.BoardType%>
			</td>
		</tr>
		<tr>
			<td width="60%" height=24 class=tablebody1 >今日新帖:
			</td>
			<td width="40%" height=24 class=tablebody1 ><FONT COLOR=RED><%=Mybbs.Board_Data(12,0)%></FONT>
			</td>
		</tr>
		<tr>
			<td  height=24 class=tablebody2 >主题帖子:
			</td>
			<td  height=24 class=tablebody2 ><%=Mybbs.Board_Data(10,0)%>
			</td>
		</tr>
		<tr>
			<td  height=24 class=tablebody1 >本版帖子:
			</td>
			<td  height=24 class=tablebody1 ><%=Mybbs.Board_Data(9,0)%>
			</td>
		</tr>
		<tr>
			<td width="30%" height=24 class=tablebody2 colspan="2">管理成员:
		<%=Replace(Mybbs.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 Mybbs.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 Mybbs.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 Mybbs.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 Mybbs.master Then
	chkedit=True
	Set Rs=Mybbs.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"
	Mybbs.Forum_Ads = Split(Rs(1),"$")
Else
	Set Rs=Mybbs.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
	Mybbs.Forum_Ads = Split(Rs(1),"$")
	If Mybbs.Board_Setting(35)=1 Then
		chkedit=True
	Else
		If Mybbs.Board_Setting(34)=0 Then
			chkedit=False
		ElseIf Mybbs.Board_Setting(34)=1 and Mybbs.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(Mybbs.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(Mybbs.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 Mybbs.Forum_ads(2)=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="index_moveFlag" value=1 <%if Mybbs.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="<%=Mybbs.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="<%=Mybbs.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="<%=Mybbs.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="<%=Mybbs.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 Mybbs.Forum_ads(13)=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="index_fixupFlag" value=1 <%if Mybbs.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="<%=Mybbs.Forum_ads(8)%>">
</td>
</tr>
<tr> 
<td width="40%" class="Tablebody1"><B>论坛首页右下固定广告连接地址</B></font></td>
<td width="60%" class="Tablebody1"> 
<input type="text" name="fixupUrl" size="35" value="<%=Mybbs.Forum_ads(9)%>">
</td>
</tr>
<tr> 
<td width="40%" class="Tablebody1"><B>论坛首页右下固定广告图片宽度</B></font></td>
<td width="60%" class="Tablebody1"> 
<input type="text" name="fixup_w" size="3" value="<%=Mybbs.Forum_ads(10)%>">&nbsp;象素
</td>
</tr>
<tr> 
<td width="40%" class="Tablebody1"><B>论坛首页右下固定广告图片高度</B></font></td>
<td width="60%" class="Tablebody1"> 
<input type="text" name="fixup_h" size="3" value="<%=Mybbs.Forum_ads(11)%>">&nbsp;象素
</td>
</tr>
<input type=hidden name="Board_fixupFlag" value=0>
<tr> 
<td width="40%" class="Tablebody1">&nbsp;</td>
<td width="60%" class="Tablebody1"> 
<div align="center"> 
<input type="submit" name="Submit" value="提 交">
</div>
</td>
</tr>
</table>
</form>
<%
end If
End Sub
Sub savebmads()
Dim master_1
Dim chkedit
Dim Forum_adsinfo
Set Rs=Mybbs.Execute("select boardmaster from dv_board where boardid="&request("boardid"))
If rs.eof and rs.bof Then Response.redirect "showerr.asp?ErrCodes=<li>您没有指定相应论坛ID,不能进行管理。&action=OtherErr"
master_1=split(rs(0),"|")
If Mybbs.Board_Setting(35)=1 Then
	chkedit=True
Else
	If Mybbs.Board_Setting(34)=0 Then
		chkedit=False
	ElseIf Mybbs.Board_Setting(34)=1 and Mybbs.membername=master_1(0) Then
		chkedit=true
	Else
		chkedit=False
	End If
End If
If Mybbs.master Then
	chkedit=true
end if
If chkedit=false Then
	Response.redirect "showerr.asp?ErrCodes=<li>本项功能为主版主专用。&action=OtherErr"
Else
	Forum_adsinfo=request("index_ad_t") & "$" & request("index_ad_f") & "$" & request("index_moveFlag") & "$" & request("MovePic") & "$" & request("MoveUrl") & "$" & request("move_w") & "$" & request("move_h") & "$" & request("Board_moveFlag") & "$" & request("fixupPic") & "$" & request("FixupUrl") & "$" & request("Fixup_w") & "$" & request("Fixup_h") & "$" & request("Board_fixupFlag") & "$" & request("index_fixupFlag")
	sql = "update dv_board set board_ads='"&Replace(Forum_adsinfo,"'","''")&"' where boardid="&Mybbs.boardid&""
	Mybbs.Execute(sql)
	Mybbs.ReloadBoardInfo(Mybbs.BoardID)
	response.write Mybbs.BoardType&"广告设置成功。"
End If
End Sub

Sub editbminfo()
If Not IsObject(Conn) Then ConnectionDatabase
Dim master_1
%>
<form action ="admin_boardset.asp?action=saveditbm&boardid=<%=Mybbs.BoardID%>" method=post> 
<%
set rs= server.CreateObject("adodb.recordset")
sql = "select * from dv_board where boardid="&Mybbs.boardid
rs.open sql,conn,1,1
If rs.eof and rs.bof Then Response.redirect "showerr.asp?ErrCodes=<li>您没有指定相应论坛ID,不能进行管理。&action=OtherErr"

If Not Mybbs.master then
	If Mybbs.Board_Setting(33)=1 Then
		master_1=rs("boardmaster")
		If Not IsNull(master_1) Then
			master_1=split(master_1,"|")
			If Mybbs.membername<>master_1(0) Then Response.redirect "showerr.asp?ErrCodes=<li>本项功能为主版主专用。&action=OtherErr"
		Else
			Response.redirect "showerr.asp?ErrCodes=<li>本项功能为主版主专用。&action=OtherErr"
		End If
	Else
		Response.redirect "showerr.asp?ErrCodes=<li>您未有修改设置的权限。&action=OtherErr"
	End If
End If
%>
<Input type='hidden' name=editid value='<%=Mybbs.BoardID%>'>
<TABLE cellPadding=1 cellSpacing=1 class=tableborder1 align=center style="width:100%;word-break:break-all;">
    <tr> 
    <th colspan="3" height=22 class=tablebody2><b>基本信息管理 </b> 
 
  <tr> 
      <td height=22 class=tablebody1  align="center">论坛名称:</td>
      <td  class=tablebody1>
	  <input type="text" name="BoardType" size="30" value='<%=enfixjs(rs("BoardType"))%>'>
	  </td>
    </tr>
    <tr> 
      <td height=22 class=tablebody2  align="center">版面说明:</td>
      <td  class=tablebody1>
      <textarea name="Readme" cols="80" rows="3"><%=enfixjs(rs("readme"))%></textarea>
      </td>
    </tr>
    <tr> 
      <td height=22 class=tablebody1  align="center">版主修改:</td>
      <td  class=tablebody1> 
        <input type="text" name="boardmaster" size="50" value='<%=rs("boardmaster")%>'><BR>(多版主添加请用|分隔,如:沙滩小子|wodeail)
      </td>
    </tr>
    <%If Cint(Mybbs.Board_Setting(2))=1 Then%>
    <tr> 
      <td height=22 class=tablebody1  align="center">认证用户:</td>
      <td  class=tablebody1> 
      <textarea name="boarduser" cols="80" rows="3"><%=replace(rs("boarduser")&"",",",chr(13)&chr(10))%></textarea><li>每个用<b>回车</b>分隔开
      </td>
    </tr>
    <%End If%>
    <tr> 
      <td height=22 class=tablebody1  align="center">使用设置模板<br>
相关模板中包含论坛颜色、图片
等设置</td>
      <td  class=tablebody1> 
        <select name=sid>
<%	
	Dim rs_c
	set rs_c= server.CreateObject ("adodb.recordset")
	sql = "select * from dv_style"
	rs_c.open sql,conn,1,1
	if rs_c.eof and rs_c.bof then
	response.write "<option value=>请先添加模板"
	else
	do while not rs_c.EOF
%>
<option value=<%=rs_c("id")%> <% if cint(rs("sid")) = rs_c("id") then%> selected <%end if%>><%=rs_c("stylename")%> 
<%
	rs_c.MoveNext 
	loop
	end if
	rs_c.Close 
	Set rs_c=Nothing
%>
</select>
      </td>
    </tr>
    <tr> 
      <td height=22 class=tablebody2>&nbsp;</td>
      <td  class=tablebody2> 
        <input type="submit" name="Submit" value="提交">
      </td>
    </tr>
  </table>
</form>
<%
rs.close
End Sub 
Sub savebminfo()
If Not IsObject(Conn) Then ConnectionDatabase
dim rname,i
dim readme,BoardType,boardmaster,sid,boarduser
readme=Mybbs.checkStr(fixjs(Request.form("readme")))
BoardType=Mybbs.checkStr(fixjs(Request.form("BoardType")))
boardmaster=Mybbs.checkStr(fixjs(Request.form("boardmaster")))
If Cint(Mybbs.Board_Setting(2))=1 Then
	boarduser=Mybbs.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=<li>非法的模板编号&action=OtherErr"
If readme="" then Response.redirect "showerr.asp?ErrCodes=<li>请输入论坛简介。&action=OtherErr"
If BoardType="" then Response.redirect "showerr.asp?ErrCodes=<li>请输入论坛名称。&action=OtherErr"
If boardmaster="" then Response.redirect "showerr.asp?ErrCodes=<li>请输入管理成员。&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=Mybbs.Execute(sql)
	If Rs.eof And rs.bof Then
	Response.redirect "showerr.asp?ErrCodes=<li>论坛没有"&replace(rname(i),"'","")&"这个用户,不能添加为版主&action=OtherErr"
	Exit For
	End If
	Set Rs=Nothing
Next

dim classname,titlepic
set rs=Mybbs.Execute("select usertitle,GroupPic from dv_usergroups where usergroupid=3 order by Minarticle desc")
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=Mybbs.Execute(sql)
	If Rs(0)=4 Then Mybbs.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="+Cstr(request("boardid"))
rs.open sql,conn,1,3
if rs.eof and rs.bof then
	Response.redirect "showerr.asp?ErrCodes=<li>您没有指定相应论坛ID,不能进行管理。&action=OtherErr"
End If
rs("boardmaster") = boardmaster
rs("readme") = readme
rs("BoardType")=BoardType
If Cint(Mybbs.Board_Setting(2))=1 Then Rs("boarduser")=boarduser
Rs("sid")=Clng(sid)
rs.Update 
rs.Close 
response.write "<p>论坛修改成功!"
Mybbs.ReloadBoardInfo(Mybbs.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,"'", "&#39;")
	End If
	fixjs=Str
End Function
Function enfixjs(Str)
	If Str <>"" Then
		Str = replace(str,"&#39;", "'")
		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
%>