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%>>关闭 <input type=radio name="index_moveFlag" value=1 <%if Mybbs.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="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)%>"> 象素 </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)%>"> 象素 </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%>>关闭 <input type=radio name="index_fixupFlag" value=1 <%if Mybbs.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="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)%>"> 象素 </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)%>"> 象素 </td> </tr> <input type=hidden name="Board_fixupFlag" value=0> <tr> <td width="40%" class="Tablebody1"> </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> </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,"'", "'") 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 %>