📄 admin_boardset.asp
字号:
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<%
stats="版主管理页面"
dim sql1,rs1
if not founduser then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请登陆后进行操作。"
end if
if request("boardid")="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请指定论坛版面。"
elseif not isInteger(request("boardid")) or request("boardid")=0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>非法的版面参数。"
else
boardid=clng(request("boardid"))
end if
if not( boardmaster or master or superboardmaster ) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>只有管理员才能登陆。"
end if
call nav()
if founderr then
call head_var(1,BoardDepth,0,0)
call dvbbs_error()
else
call head_var(1,BoardDepth,0,0)
dim title
dim content
set rs=server.createobject("adodb.recordset")
call main()
end if
set rs=nothing
call footer()
sub main()
%>
<TABLE cellpadding=0 cellspacing=1 class=tableborder1 align=center >
<tr >
<th height=24 align=center colspan="2">欢迎 <%=htmlencode(membername)%>进入版主管理页面</th>
</tr>
<tr >
<td height=24 align=center colspan="2" class=tablebody1>
<b>管理选项：<a href=admin_boardset.asp?boardid=<%=boardid%>>论坛公告发布</a>
<%if master then%>
| <b><a href=admin_boardset.asp?action=manage&boardid=<%=boardid%>>公告管理</a>
<%end if%> |
<a href=admin_boardset.asp?action=editbminfo&boardid=<%=boardid%>>基本信息管理</a> |
<a href=admin_boardset.asp?action=editbmset&boardid=<%=boardid%>>基本设置管理</a> |
<!--<a href=admin_boardset.asp?action=editbmset&boardid=<%=boardid%>>基本设置管理</a> | -->
<a href=admin_boardset.asp?action=editbmcolor&boardid=<%=boardid%>>颜色设置管理</a> |
<!--<a href=admin_boardset.asp?action=editbmads&boardid=<%=boardid%>>分版广告管理</a> | -->
<a href=admin_boardset.asp?action=editbmads&boardid=<%=boardid%>>分版广告管理</a>
</b></td>
</tr>
<tr>
<td width="30%" valign=top align=center class=tablebody1 >
<table cellpadding=3 cellspacing=1 class=tableborder2 style="width:90%;word-break:break-all;" >
<tr>
<th width="100%" height=24 colspan="2">《 本版信息栏 》
</th>
</tr>
<tr>
<td height=24 class=tablebody2 colspan="2" align=center ><%=boardtype%>
</td>
</tr>
<tr>
<td width="60%" height=24 class=tablebody1 >今日新帖：
</td>
<td width="40%" height=24 class=tablebody1 ><FONT COLOR=RED><%=todaynum%></FONT>
</td>
</tr>
<tr>
<td height=24 class=tablebody2 >主题帖子：
</td>
<td height=24 class=tablebody2 ><%=LastTopicNum%>
</td>
</tr>
<tr>
<td height=24 class=tablebody1 >本版帖子：
</td>
<td height=24 class=tablebody1 ><%=LastBbsNum%>
</td>
</tr>
<tr>
<td width="30%" height=24 class=tablebody2 colspan="2">管理成员：
<%=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 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 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 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="70%" valign=top class=tablebody1 align=center>
<table cellpadding=3 cellspacing=1 class=tableborder2 style="width:100%;word-break:break-all;">
<tr>
<td width="100%" height=24 class=tablebody2 >
<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 "editbmset"
call editbmset()
case "savebmset"
call savebmset()
case "editbmcolor"
call editbmcolor()
case "savebmcolor"
call savebmcolor()
case "editbmads"
call editbmads()
case "savebmads"
call savebmads()
case else
call news()
end select
if founderr then call dvbbs_error()
%>
</td>
</tr>
</table>
<%
end sub
sub news()
%>
<form action="admin_boardset.asp?action=new" method=post name=FORM>
<TABLE cellPadding=1 cellSpacing=1 class=tableborder1 align=center style="width:96%;word-break:break-all;">
<tr>
<td width="20%" valign=top class=tablebody1>
<div align="right">发布版面： </div>
</td>
<td width="80%" class=tablebody1>
<%if master then%>
<%
sql="select boardid,boardtype from board"
rs.open sql,conn,1,1
%>
<select name="boardid" size="1">
<!-- <option value="0">论坛首页</option> -->
<%
do while not rs.eof
response.write "<option value='"+CStr(rs("BoardID"))+"'>"+rs("Boardtype")+"</option>"+chr(13)+chr(10)
rs.movenext
loop
rs.close
%>
</select>
<%else%>
<%
sql="select boardtype from board where boardid="&boardid
rs.open sql,conn,1,1
boardtype=rs("boardtype")
%>
<select name="boardid" size="1">
<option value="<%=boardid%>"><%=boardtype%></option>
</select>
<%end if%>
</td>
</tr>
<tr>
<td width="20%" valign=top class=tablebody1>
<div align="right">发布人： </div>
</td>
<td width="80%" class=tablebody1>
<input type=text name=username size=36 value="<%=membername%>" disabled>
<input type=hidden name=username value="<%=membername%>">
</td>
</tr>
<tr>
<td width="20%" valign=top class=tablebody1>
<div align="right">标题： </div>
</td>
<td width="80%" class=tablebody1>
<input type=text name=title size=60>
</td>
</tr>
<tr>
<td width="20%" valign=top class=tablebody1>
<div align="right">内容： </div>
</td>
<td width="80%" class=tablebody1>
<textarea cols=60 rows=6 name="content"></textarea>
</td>
</tr>
<tr>
<td width="100%" valign=top colspan="2" align=center class=tablebody2>
<input type=Submit value="发 送" name=Submit">
<input type="reset" name="Clear" value="清 除">
</td>
</tr>
</table>
</form>
<%
end sub
sub savenews()
dim username,title,content
if request("boardid")<>"" or (not isInteger(request("boardid"))) then
boardid=clng(request("boardid"))
else
Errmsg=Errmsg+"<br>"+"<li>您输入了错误的参数。"
founderr=true
end if
if request("username")="" then
Errmsg=Errmsg+"<br>"+"<li>请输入发布者。"
founderr=true
else
username=checkstr(request("username"))
end if
if request("title")="" then
Errmsg=Errmsg+"<br>"+"<li>请输入新闻标题。"
founderr=true
else
title=checkstr(request("title"))
end if
if request("content")="" then
Errmsg=Errmsg+"<br>"+"<li>请输入新闻内容。"
founderr=true
else
content=checkstr(request("content"))
end if
if founderr=true then
call dvbbs_error()
exit sub
end if
if (master or superboardmaster or boardmaster) and Cint(GroupSetting(25))=1 then
sql="select * from bbsnews"
rs.open sql,conn,1,3
rs.addnew
rs("username")=username
rs("title")=title
rs("content")=content
rs("addtime")=Now()
rs("boardid")=boardid
rs.update
rs.close
myCache.name="AnnounceMents"&BoardID
myCache.makeEmpty
call success()
else
Errmsg=Errmsg+"<br><li>您没有执行此操作的权限。"
founderr=true
exit sub
end if
end sub
sub manage()
dim caneditann
caneditann=false
if (master or superboardmaster or boardmaster) and Cint(GroupSetting(26))=1 then
caneditann=true
else
caneditann=false
end if
if not caneditann then
Errmsg=Errmsg+"<br><li>您没有执行此操作的权限。"
founderr=true
exit sub
end if
sql="select * from bbsnews where boardid<>0"
rs.open sql,conn,1,1
%>
<TABLE cellPadding=1 cellSpacing=1 class=tableborder1 align=center style="width:96%;word-break:break-all;">
<tr><th width="80%" valign=top height=22 >
标题
</th>
<th width="20%" >
操作
</th></tr>
<%do while not rs.eof%>
<tr><td width="80%" valign=top height=22 class=tablebody1><a href=admin_boardset.asp?action=edit&id=<%=rs("id")%>&boardid=<%=rs("boardid")%>><%=rs("title")%></a>
</td>
<td width="20%" class=tablebody2><a href=admin_boardset.asp?action=del&id=<%=rs("id")%>&boardid=<%=boardid%>>删除</a>
</td></tr>
<%
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -