bbs_admin.asp

来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 379 行 · 第 1/2 页

<!--#include file="inc/pstart.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/incpage.asp"-->
<!--#include file="inc/bbsinfo.asp"-->
<%
call checkulogin()
call checkdisp()
if checkbbsadmin(bid)=0 and checkadmin(ckuname)<3 then showmsg("不能确认您的版主身份")
start="管理界面"
bbs_url="bbs_admin"
call bbs_top()
call bbs_top1()
'================hx66.com.cn===============
if request.form("operation")="批量删除" then
num=request.form("id").Count
for i=1 to num
  conn.execute("delete from hx66_bbs where hx66_bid="&bid&" and hx66_delete=1 and id="&request.form("id")(i))
  conn.execute("delete from hx66_saybbs where hx66_iid="&request.form("id")(i))
next
'更新贴数
conn.execute("update [hx66_bbsset] set topicnum=topicnum-"&num&",allnum=allnum-"&num&"")
conn.execute("update [hx66_bbsinfo] set topicnum=topicnum-"&num&",allnum=allnum-"&num&" where id="&bid&"")
end if
if request.form("operation")="批量恢复" then
num=request.form("id").Count
for i=1 to num
  conn.execute("update hx66_bbs set hx66_delete=0 where hx66_bid="&bid&" and id="&request.form("id")(i))
next
'更新贴数
conn.execute("update [hx66_bbsset] set topicnum=topicnum+"&num&",allnum=allnum+"&num&"")
conn.execute("update [hx66_bbsinfo] set topicnum=topicnum+"&num&",allnum=allnum+"&num&" where id="&bid&"")
end if
if request.form("operation")="批量解除" then
num=request.form("id").Count
for i=1 to num
  conn.execute("delete from hx66_heiming where hx66_bid="&bid&" and hid="&request.form("id")(i))
next
end if
if request.form("operation")="添加黑名单" then
  if trim(request.form("heiming"))="" then
     Response.Write("<script language=javascript>alert('没有输入指定的用户名');history.back();</script>")
     response.end
  else
  dim heiminguname
  heiminguname=restr(trim(request.form("heiming")))
  set rs=server.CreateObject("adodb.recordset")
  sqlstr="select * from hx66_heiming"
  rs.open sqlstr,conn,1,3
  rs.addnew
  rs("hx66_name")=htmlencode(heiminguname)
  rs("hx66_time")=now()
  rs("hx66_bid")=bid
  rs("hx66_who")=ckuname
  rs.update
  rs.close
  set rs=nothing
  response.redirect "?action=hmd&bid="&bid
  end if
end if
if request.querystring("action")="" then
Response.Write("<table class=""table-hx66s"" cellSpacing=""0"" cellPadding=""0"" width=""760"" align=""center"" border=""0"" bgcolor=#FFFFFF><tr><td>")
Response.Write("<br><table width='95%' border='1' align='center' cellspacing='0' cellpadding='5' bgcolor='#FFFFFF' bordercolor='#f0f0f0' style='border-collapse: collapse'>")
Response.Write("<tr align=""center""><td colspan=4><a href=""?bid="&bid&""">回收站管理</a> — <a href=""?action=hmd&bid="&bid&""">黑名单管理</a>")
if checkbbsadmin(bid)=2 or checkadmin(ckuname)>=3 then
Response.Write(" — <a href=""?action=bz&bid="&bid&""">本版版主管理</a> — <a href=""?action=tj&bid="&bid&""">更新计数</a></td></tr>")
end if
Response.Write("</td></tr>")
Dim CurPage,Url_Add
Url_Add="?bid="&bid&"&"
If Request.QueryString("Page")<>"" Then
   Curpage=Request.QueryString("Page")
   If IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1
Else
   Curpage=1
End If
sql="select * from hx66_bbs where hx66_bid="&bid&" and hx66_delete=1 order by hx66_time desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
  Response.Write("<tr align=""center""><td colspan=4>当前没有贴子！</td></tr>")
Else
   Dim art_Nums,MultiPages,j
   bbsperpage=20
   rs.PageSize=bbsperpage
   rs.AbsolutePage=CurPage
   art_Nums=rs.RecordCount
   MultiPages="<tr><td class=Hxcmsqs colspan=""4"" align=""center"">回收站共有："&art_Nums&"个主题。&nbsp;&nbsp;"&MultiPage(art_Nums,bbsperpage,CurPage,Url_Add)&"</td></tr>"
%>
   <tr class=Hxcmsqs align="center"> 
      <td width="8%">选中</td>
      <td width="*">标题</td>
      <td width="15%">作者</td>
      <td width="18%">发表日期</td>
   </tr>
<form name=form method=post action="">
<script language="javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
</script>
<%
Do Until Rs.EOF OR j=bbsperpage
%>
    <tr class=Hxcmsds>
       <td align="center"><input Name="id" type=checkbox Value=<%=rs("id")%>></td>
       <td><a href="bbs_detail.asp?bid=<%=rs("hx66_bid")%>&aid=<%=rs("id")%>" target="_blank"><%=rs("hx66_title")%></a></td>
       <td align="center"><a href="viewperson.asp?bid=<%=bid%>&author=<%=server.urlencode(rs("hx66_name"))%>" target="_blank"><%=rs("hx66_name")%></a></td>
       <td align="center"><%=rs("hx66_fatime")%></td>
    </tr>
<%
j=j+1
rs.movenext
loop
end if%>
     <tr>
         <td colspan="4">
            <input type="checkbox" name="chkall" onclick="CheckAll(this.form)" value="ON">选中本页所有 
            <input type=submit name=operation value="批量删除" onClick="return confirm('确定删除选中的主题，同时回贴一并删除吗?');" class="input">
            <input type=submit name=operation value="批量恢复" onClick="return confirm('确定恢复选中的主题吗?');" class="input"></td>
      </tr></form>
<%
Response.Write(MultiPages)
Response.Write("</table><br>")
Response.Write("</td></tr></table>")
end if
'==========hx66.com.cn=========
if request.querystring("action")="hmd" then
Response.Write("<table class=""table-hx66s"" cellSpacing=""0"" cellPadding=""0"" width=""760"" align=""center"" border=""0"" bgcolor=#FFFFFF><tr><td>")
Response.Write("<br><table width='95%' border='1' align='center' cellspacing='0' cellpadding='5' bgcolor='#FFFFFF' bordercolor='#f0f0f0' style='border-collapse: collapse'>")
Response.Write("<tr align=""center""><td colspan=4><a href=""?bid="&bid&""">回收站管理</a> — <a href=""?action=hmd&bid="&bid&""">黑名单管理</a>")
if checkbbsadmin(bid)=2 or checkadmin(ckuname)>=3 then
Response.Write(" — <a href=""?action=bz&bid="&bid&""">本版版主管理</a> — <a href=""?action=tj&bid="&bid&""">更新计数</a></td></tr>")
end if
Response.Write("</td></tr>")
Url_Add="?action=hmd&bid="&bid&"&"
If Request.QueryString("Page")<>"" Then
   Curpage=Request.QueryString("Page")
   If IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1
Else
   Curpage=1
End If
sql="select * from hx66_heiming where hx66_bid="&bid&" order by hx66_time desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
  Response.Write("<tr align=""center""><td colspan=4>当前没有黑名单！</td></tr>")
Else
   bbsperpage=20
   rs.PageSize=bbsperpage
   rs.AbsolutePage=CurPage
   art_Nums=rs.RecordCount
   MultiPages="<tr><td class=Hxcmsqs colspan=""4"" align=""center"">本版共有："&art_Nums&"个黑名单。&nbsp;&nbsp;"&MultiPage(art_Nums,bbsperpage,CurPage,Url_Add)&"</td></tr>"
%>
   <tr class=Hxcmsqs align="center"> 
      <td width="8%">选中</td>
      <td width="*">用户名</td>
      <td width="20%">加入时间</td>
      <td width="20%">操作</td>
   </tr>
<form name=form method=post action="">
<script language="javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
</script>
<%
Do Until Rs.EOF OR j=bbsperpage
%>
    <tr class=Hxcmsds>
       <td align="center"><input Name="id" type=checkbox Value=<%=rs("hid")%>></td>
       <td><a href="viewperson.asp?bid=<%=bid%>&author=<%=server.urlencode(rs("hx66_name"))%>" target="_blank"><%=rs("hx66_name")%></a></td>
       <td align="center"><%=rs("hx66_time")%></td>
       <td align="center"><%=rs("hx66_who")%></td>
    </tr>
<%
j=j+1
rs.movenext
loop