📄 admin_bbs.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/char.asp"-->
<HTML><HEAD><TITLE><%=ForumName%></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" type="text/css" href="forum.css">
<script language="javascript">
function viewPage2(ipage){
document.frmList2.Page.value=ipage
document.frmList2.submit()
}
</script>
<script language="javascript">
function viewPage1(ipage){
document.frmList2.Page.value=ipage
document.frmList2.submit()
}
</script>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY bgcolor="#ffffff" alink="#333333" vlink="#333333" link="#333333" topmargin="0" leftmargin="0">
<br>
<%
if session("masterlogin")="" then
Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=elogin.asp>登陆管理</a>后进入。"
call Error()
else
%>
<!--#include file="conn.asp"-->
<table cellpadding=3 cellspacing=1 border=0 width=95% align=center>
<tr bgcolor='<%=aTabletitlecolor%>'>
<td align=center height=22>欢迎<b>
<%=session("mastername")%></b>进入管理页面
</td>
</tr>
<tr>
<td height=22><b>注意</b>：各个版面版主可以对各自的版面贴子进行锁定、解除锁定、删除、转移贴子、批量删除等操作，锁定贴子不能回复，<font color=<%=alertfontcolor%>>删除贴子不能恢复</font>，请版主慎重使用管理功能。
</td>
</tr>
<tr>
<td height=22><a href=admin_main.asp>返回主管理页面</a>
</td>
</tr>
</table>
<%
Rem ----------------------
Rem ------主程序开始------
Rem ----------------------
dim CurrentPage
dim sql,rs
dim foundErr
dim ErrMsg
dim bBoardEmpty
dim boardid
dim Ers,Esql
dim tableback
dim tabletitle
dim tablebody
dim atablebody
dim tablefont
dim tablecontent
dim alertfont
dim totalrec
dim n ,RowCount
dim p
dim announceIDRange1
dim announceIDRange2
foundErr = false
ErrMsg = ""
selStr = "()"
Rem ------获取参数(get or post的)------
Rem ------包括版面的ID和页次------
Call getInput()
call chkInput()
set rs=server.createobject("adodb.recordset")
'显示版头
if foundErr then
call Error()
else
call showPage()
end if
sub showPage()
'on error resume next
if foundErr then
call Error()
else
if request("action")="del" then call del()
if bBoardEmpty <> true then
if foundErr = true then
call Error()
else
if session("masterlogin")="superadmin" then call boardlist()
call AnnounceList()
call listPages2()
end if
end if
end if
if err.number<>0 then err.clear
end sub
REM 显示贴子列表
sub showPageList()
i=0
%>
<span id=forum>
<TABLE bgColor="<%=Tableback%>" border=0 cellPadding=4 cellSpacing=1 width="95%" align=center>
<TBODY>
<TR bgColor="<%=Tabletitle%>">
<TD align=middle noWrap height=25><font color=<%=TableFont%>>状态</font></TD>
<TD align=middle noWrap><font color=<%=TableFont%>>主 题 (点心情符为开新窗浏览)</font></TD>
<TD align=middle noWrap><font color=<%=TableFont%>>作 者 </font></TD>
<TD align=middle noWrap><font color=<%=TableFont%>>回复/人气</font></TD>
<TD align=middle noWrap><font color=<%=TableFont%>>管理员操作</font></TD></TR>
<%
do while not rs.eof
%>
<TR>
<TD align=middle bgColor="<%=Tablebody%>"><font color=<%=TableContent%>>
<%if rs("lockboard")=1 then%><img src=<%=picurl%>lockfolder.gif alt="本论坛已锁定"><%else%><%if rs("locktopic")=1 then%><img src=<%=picurl%>lockfolder.gif alt="本主题已锁定"><%else%><%if rs("child")>=10 then%><img src=<%=picurl%>hotfolder.gif><%else%><img src=<%=picurl%>folder.gif><%end if%><%end if%><%end if%></font>
</TD>
<TD bgColor=<%=Tablebody%> width="100%"><font color=<%=TableContent%>><a href='dispbbs.asp?boardID=<%=boardID%>&RootID=<%=rs("RootID")%>&ID=<%=rs("announceID")%>' target=_blank><img src='images/<%=rs("Expression")%>' border=0 alt="开新窗口浏览此主题"></a> <a href='dispbbs.asp?boardID=<%=boardID%>&RootID=<%=rs("RootID")%>&ID=<%=rs("announceID")%>'><%=htmlencode(rs("topic"))%></a>
<%if rs("child")>Maxtitlelist then%>
[分页：
<%
Pnum=Cint(rs("child")/Maxtitlelist)+1
for p=1 to Pnum
response.write " <a href='dispbbs.asp?boardID="&boardID&"&RootID="&rs("RootID")&"&ID="&rs("announceID")&"&star="&P&"'><b>"&p&"</b></a> "
next
%>
]
<%end if%></font>
</TD>
<TD align=middle bgColor="<%=aTablebody%>" noWrap><font color=<%=TableContent%>><a href=javascript:openScript('dispuser.asp?name=<%=htmlencode(rs("username"))%>',350,300)><%=htmlencode(rs("username"))%></a></font></TD>
<TD align=middle bgColor="<%=Tablebody%>"><font color=<%=TableContent%>><%=rs("child")%>/<%=rs("hits")%></font></TD>
<TD bgColor=<%=aTablebody%> noWrap><font color=<%=TableContent%>>
<a href=admin_postings.asp?action=lock&boardID=<%=boardID%>&ID=<%=rs("announceID")%>&rootid=<%=rs("rootID")%>>锁定</a> | <a href=admin_postings.asp?action=unlock&boardID=<%=boardID%>&ID=<%=rs("announceID")%>&rootid=<%=rs("rootID")%>>解锁</a> | <a href=admin_postings.asp?action=delete&boardID=<%=boardID%>&ID=<%=rs("announceID")%>&rootid=<%=rs("rootID")%>>删除</a> | <a href=admin_postings.asp?action=move&boardID=<%=boardID%>&ID=<%=rs("announceID")%>&rootid=<%=rs("rootID")%>>移动</a>
</FONT></TD></TR>
<%
i=i+1
if i>=MaxAnnouncePerPage then exit do
rs.movenext
loop
rs.close
%>
</TBODY></TABLE>
</span>
<%
if err.number<>0 then err.clear
end sub
sub AnnounceList()
'on error resume next
sql="select boardtype,lockboard,boardmaster,boardmaster1,boardmaster2,boardskin,Tableback,Tabletitle,Tablebody,aTablebody,TableFont,TableContent,AlertFont from board where boardID="&cstr(boardid)
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
boardtype=rs("boardtype")
boardskin=rs("boardskin")
lockboard=rs("lockboard")
Tableback=trim(rs("Tableback"))
Tabletitle=trim(rs("Tabletitle"))
Tablebody=trim(rs("Tablebody"))
aTablebody=trim(rs("aTablebody"))
TableFont=trim(rs("TableFont"))
TableContent=trim(rs("TableContent"))
AlertFont=trim(rs("AlertFont"))
end if
rs.close
sql="select bbs1.AnnounceID,bbs1.parentID,bbs1.boardID,bbs1.UserName,bbs1.child,bbs1.Topic,bbs1.DateAndTime,bbs1.hits,bbs1.RootID,bbs1.Expression,bbs1.times,bbs1.locktopic,board.lockboard from bbs1,board where bbs1.boardid=board.boardid and bbs1.boardID="&cstr(boardID)&" and bbs1.parentID=0 "&tl&" ORDER BY bbs1.times desc,bbs1.announceid desc"
rs.open sql,conn,1,1
if err.number<>0 then
foundErr = true
ErrMsg = "<li>数据库操作失败：" & err.description & "</li>"
else
if rs.bof and rs.eof then
'论坛无内容
call showEmptyBoard()
bBoardEmpty = true
else
totalrec=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxAnnouncePerPage>totalrec then
if (totalrec mod MaxAnnouncePerPage)=0 then
currentpage= totalrec \ MaxAnnouncePerPage
else
currentpage= totalrec \ MaxAnnouncePerPage + 1
end if
end if
if currentPage=1 then
call showpagelist()
else
if (currentPage-1)*MaxAnnouncePerPage<totalrec then
rs.move (currentPage-1)*MaxAnnouncePerPage
call showpagelist()
else
currentPage=1
call showpagelist()
end if
end if
end if
end if
if err.number<>0 then err.clear
end sub
sub listPages2()
'on error resume next
dim n
if totalrec mod MaxAnnouncePerPage=0 then
n= totalrec \ MaxAnnouncePerPage
else
n= totalrec \ MaxAnnouncePerPage+1
end if
%>
<table border="0" cellpadding="0" cellspacing="3" width="750" align="center">
<form method="post" action="admin_bbs.asp" name="frmList2">
<tr>
<td valign="middle" nowrap><span class="smallFont">页次：<strong><%=currentPage%></strong>/<strong><%=n%></strong>页 每页<strong><%=MaxAnnouncePerPage%></strong> 主题数<strong><%=totalrec%></strong></td>
<td valign="middle" nowrap>
<div align="right"><p>分页：
<%
for p=1 to n
if p<10 then
if p=currentPage then
response.write "["+Cstr(p)+"] "
else
response.write "<a href='javascript:viewPage2("+Cstr(p)+")' language='javascript'>["+Cstr(p)+"]</a> "
end if
end if
next
%>
<span class="smallFont">转到:<input type="text" name="Page" size=3 maxlength=10 value="<%=currentpage%>"><input type="button" value="Go" language="javascript" onclick="viewPage1(document.frmList2.Page.value)" id="button1" name="button1"></span></p>
</div>
</td>
</tr>
<input type="hidden" name="BoardID" value="<%=BoardID%>">
</form>
</table>
<form action="admin_bbs.asp?action=del" method=post>
<table width="95%" border="0" cellspacing="3" cellpadding="0" align=center>
<tr>
<td bgcolor=<%=atabletitlecolor%> height="20">
<b>批量删除： </b>
批量删除某用户贴子（灌水大王）：<input type="text" name="username" size="20">
<input type="submit" name="Submit" value="提 交"> <font color=<%=alertfontcolor%>>删除后不能恢复，请慎重使用</font><br>
版主仅限于批量删除自己版面贴子，管理员直接对整个论坛进行批量删除。
</td>
</tr>
</table>
</form>
<%
if err.number<>0 then err.clear
end sub
sub showEmptyBoard()
%>
<TABLE bgColor='<%=Tableback%>' border=0 cellPadding=4 cellSpacing=1 width="95%" align=center>
<TBODY>
<TR bgColor='<%=Tabletitle%>'>
<TD align=middle noWrap height=25><font color=<%=TableFont%>>状态</font></TD>
<TD align=middle noWrap><font color=<%=TableFont%>>主 题 (点心情符为开新窗浏览)</font></TD>
<TD align=middle noWrap><font color=<%=TableFont%>>作 者 </font></TD>
<TD align=middle noWrap><font color=<%=TableFont%>>回复/人气</font></TD>
<TD align=middle noWrap><font color=<%=TableFont%>>管理员操作</font></TD></TR>
<tr bgColor="<%=Tablebody%>"><td colSpan=5 vAlign=center width="100%">本论坛暂无内容，欢迎发贴：）</td></tr>
</TBODY></TABLE>
<%
rs.close
end sub
sub boardlist()
%>
<table border="0" cellpadding="0" cellspacing="3" width="95%" align="center">
<form action=admin_bbs.asp method=get>
<tr>
<td width=100></td>
<td valign="middle" nowrap>
<div align=right>
<select name='boardid' onchange='javascript:submit()'>
<option value="">跳转论坛
<option value="">
<%
dim rs1,sql1
set rs1=server.createobject("adodb.recordset")
sql="select * from class order by id"
rs.open sql,conn,1,1
do while not rs.eof
id=rs("id")
%>
<option value="1">>> <%=rs("class")%> <<
<%
sql1="select boardid,boardtype from board where class="&id&""
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then
%>
<option value="">没有论坛
<%else%>
<%do while not rs1.eof%>
<option value="<%=rs1("boardid")%>"><%=rs1("boardtype")%>
<%
rs1.movenext
loop
end if
rs1.close
%>
<option value="">
<%
rs.movenext
loop
rs.close
set rs1=nothing
%>
</select>
<div>
</td>
</tr>
</form>
</table>
<%
end sub
sub del()
dim titlenum
if session("masterlogin")="superadmin" then
tmprs=conn.execute("Select Count(announceID) from bbs1 where username='"&trim(request("username"))&"'")
titlenum=tmprs(0)
if isnull(titlenum) then titlenum=0
sql="delete from bbs1 where username='"&trim(request("username"))&"'"
conn.Execute(sql)
sql="update [user] set article=article-"&titlenum&" where username='"&trim(request("username"))&"'"
conn.Execute(sql)
else
tmprs=conn.execute("Select Count(announceID) from bbs1 where boardid="&session("manageboard")&" and username='"&trim(request("username"))&"'")
titlenum=tmprs(0)
if isnull(titlenum) then titlenum=0
sql="delete from bbs1 where boardid="&session("manageboard")&" and username='"&trim(request("username"))&"'"
conn.Execute(sql)
sql="update [user] set article=article-"&titlenum&" where username='"&trim(request("username"))&"'"
conn.Execute(sql)
end if
end sub
Sub getInput()
'On Error Resume Next
Rem ------获取页次------
currentPage=request("page")
End Sub
sub chkInput
'on error resume next
if session("masterlogin")="superadmin" then
BoardID = Request("BoardID")
if BoardID="" then
BoardID=1
elseif not isInteger(BoardID) then
BoardID=1
else
BoardID=clng(BoardID)
if err then
BoardID=1
err.clear
end if
end if
else
boardid=session("manageboard")
end if
if currentpage="" then
currentpage=1
elseif not isInteger(currentpage) then
currentpage=1
else
currentpage=clng(currentpage)
if err then
currentpage=1
err.clear
end if
end if
end sub
set rs=nothing
Call endConnection
end if
%>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -