adminbd.asp

本程序蓝本为6kbbs 默认前台管理员的帐号是:woodcoal

  <a href="adminbd2.asp?action=editgg&id=<%=rs("id")%>&bd=<%=bd%>">编辑</a></td></tr><%rs.movenext
loop%>
    </table>
    </td>
  </tr>
  </table><%=tbottom%>
<%set rs=nothing%>
<%case"delgg"
conn.execute("delete*from paper where id="&id&" and bd="&bd&"")
tl=1
mes="删除公告成功。"
call sendinfo(tl,mes)%>

<%case"editggok"
ggtitle=Replace(Request.Form("ggtitle"),"'","")
ggok=Replace(ggtitle," ","")

content=checkbad(Request.Form("content"))
content=replace(content,"|","│")
content=replace(content,"'","''")
contentok=Replace(content," ","")

if ggok="" or contentok="" then
tl=""
mes="<b>对不起！公告修改失败，可能存在以下问题。</b><br>·请填写完整公告标题和公告内容。<br>·<a href='javascript:history.go(-1)'><img src=pic/re.gif align=absmiddle border=0> 返回重新填写</a>"
else
content2=ggtitle&"|"&lgname&"|"&now()+timeset/24&"|"&content
conn.execute("update [paper] set paper='"&content2&"' where id="&id&" and bd="&bd&"")
tl=1
mes="·公告修改成功。"
end if
call sendinfo(tl,mes)

case"top"
gettop()
if idtop=2 then
tl=""
mes="<b>操作失败，可能存在以下问题。</b><br>·该帖子已经被总置顶，不能够被版主置顶。<br>·<a href=list.asp?bd="&bd&">回到"&bdinfo(0)&"</a>。<br>·<a href=show.asp?bd="&bd&"&id="&id&"&totable="&totable&">回到浏览的帖子</a>。"
else
set rs=server.createobject("adodb.recordset")
sql="Select top 1 top from [topic] where bd="&bd&" and id="&id&""
rs.open sql,conn,1,3
rs("top")=1
rs.Update
rs.close
set rs=nothing
tl=1
mes="<b>置顶帖子成功，请选择你要进行的操作。</b><br>·<a href=list.asp?bd="&bd&">回到"&bdinfo(0)&"</a>。<br>·<a href=show.asp?bd="&bd&"&id="&id&"&totable="&totable&">回到浏览的帖子</a>。"
end if
umark(30)
call sendinfo(tl,mes)


case"good"
conn.execute("update topic set type=1 where bd="&bd&" and id="&id&"")
tl=1
mes="<b>设定为精华帖子成功，请选择你要进行的操作。</b><br>·<a href=list.asp?bd="&bd&">回到"&bdinfo(0)&"</a>。<br>·<a href=show.asp?bd="&bd&"&id="&id&"&totable="&totable&">回到浏览的帖子</a>。"
umark(50)
call sendinfo(tl,mes)

case"lock"
conn.execute("update topic set type=2 where bd="&bd&" and id="&id&"")
conn.execute("update bbs"&totable&" set type=2 where bd="&bd&" and type<>3 and ((id="&id&" and bid=0) or bid="&id&")")
tl=1
mes="<b>锁定帖子成功，请选择你要进行的操作。</b><br>·<a href=list.asp?bd="&bd&">回到"&bdinfo(0)&"</a>。<br>·<a href=show.asp?bd="&bd&"&id="&id&"&totable="&totable&">回到浏览的帖子</a>。"
call sendinfo(tl,mes)

case"delbbs"
conn.execute("update topic set type=3 where bd="&bd&" and id="&id&"")
conn.execute("update bbs"&totable&" set type=3 where bd="&bd&" and id="&id&"")
tl=1
mes="<b>删除帖子成功，请选择你要进行的操作。</b><br>·<a href=list.asp?bd="&bd&">回到"&bdinfo(0)&"</a>。"
umark(-30)
call sendinfo(tl,mes)

case"update"
conn.execute("update topic set edittime=now()+"&timeset&"/24 where bd="&bd&" and id="&id&"")
tl=1
mes="<b>提升帖子成功，请选择你要进行的操作。</b><br>·<a href=list.asp?bd="&bd&">回到"&bdinfo(0)&"</a>。<br>·<a href=show.asp?bd="&bd&"&id="&id&"&totable="&totable&">回到浏览的帖子</a>。"
call sendinfo(tl,mes)

case"deltop"
gettop()
if idtop=2 then
tl=""
mes="<b>操作失败，可能存在以下问题。</b><br>·该帖子已经被总置顶，不能够被版主取消置顶。<br>·<a href=list.asp?bd="&bd&">回到"&bdinfo(0)&"</a>。<br>·<a href=show.asp?bd="&bd&"&id="&id&"&totable="&totable&">回到浏览的帖子</a>。"
else
set rs=server.createobject("adodb.recordset")
sql="Select top 1 top from [topic] where bd="&bd&" and id="&id&""
rs.open sql,conn,1,3
rs("top")=0
rs.Update
rs.close
set rs=nothing
tl=1
mes="<b>取消置顶成功，请选择你要进行的操作。</b><br>·<a href=list.asp?bd="&bd&">回到"&bdinfo(0)&"</a>。<br>·<a href=show.asp?bd="&bd&"&id="&id&"&totable="&totable&">回到浏览的帖子</a>。"
end if
call sendinfo(tl,mes)

case"delgood"
conn.execute("update topic set type=0 where bd="&bd&" and id="&id&"")
tl=1
mes="<b>设取消精华帖子成功，请选择你要进行的操作。</b><br>·<a href=list.asp?bd="&bd&">回到"&bdinfo(0)&"</a>。<br>·<a href=show.asp?bd="&bd&"&id="&id&"&totable="&totable&">回到浏览的帖子</a>。"
call sendinfo(tl,mes)

case"dellock"
conn.execute("update topic set type=0 where bd="&bd&" and id="&id&"")
conn.execute("update bbs"&totable&" set type=0 where bd="&bd&" and type<>3 and ((id="&id&" and bid=0) or bid="&id&")")
tl=1
mes="<b>解锁帖子成功，请选择你要进行的操作。</b><br>·<a href=list.asp?bd="&bd&">回到"&bdinfo(0)&"</a>。<br>·<a href=show.asp?bd="&bd&"&id="&id&"&totable="&totable&">回到浏览的帖子</a>。"
call sendinfo(tl,mes)
case"move"
%><form method="POST" action="adminbd.asp?action=moveok&bd=<%=bd%>&id=<%=id%>&totable=<%=totable%>">
    <table bordercolor="<%=c1%>" align="center" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<%=tbw%>">
  <tr>
    <td class=td1 width="100%" bgcolor="<%=c1%>" background="<%=tbg%>" height="28">&nbsp; <img src="pic/fl.gif" border="0"><font color=<%=c3%>> 移动帖子</font></td>
  </tr>
  <tr>
    <td width="100%" height="40">　请选择帖子要移动到的版面：<%dim bdlist2
    set bdlist2=conn.execute("select * from bdinfo where followid<>0 order by orders desc,id")
response.write"<select size=1 name=bd style='font-size: 9pt'><option value=0>请选择版面</option>"
do while not bdlist2.eof
response.write"<option value="&bdlist2("id")&">"&split(bdlist2("bdinfo"),"|")(0)&"</option>"
bdlist2.movenext
Loop
response.write"</select>"
set bdlist2=nothing
%>&nbsp; 
    <input type="submit" value="  移   动  " name="a"></td>
  </tr>
  </table></form>
<%case"moveok"
dim thisbbs
thisbbs=checknum(request.form("bd"))
if thisbbs=0 then
tl=""
mes="<b>移动帖子失败，你没有选择版面。</b><br>·<a href=list.asp?bd="&bd&">回到"&bdinfo(0)&"</a>。<br>·<a href=show.asp?bd="&bd&"&id="&id&"&totable="&totable&">回到浏览的帖子</a>。<br>·<a href='javascript:history.go(-1)'><img border=0 src=pic/re.gif align=absmiddle>返回重新选择</a>"
else
conn.execute("update topic set bd="&thisbbs&" where bd="&bd&" and id="&id&"")
conn.execute("update bbs"&totable&" set bd="&thisbbs&" where bd="&bd&" and id="&id&"")
conn.execute("update bbs"&totable&" set bd="&thisbbs&" where bd="&bd&" and bid="&id&"")
tl=1
mes="<b>移动帖子成功，请选择你要进行的操作。</b><br>·<a href=list.asp?bd="&bd&">回到"&bdinfo(0)&"</a>。<br>·<a href=show.asp?bd="&thisbbs&"&id="&id&"&totable="&totable&">回到浏览的帖子</a>。"
end if
call sendinfo(tl,mes)

case"delrebbs"
dim bbsid
bbsid=checknum(request.querystring("bbsid"))
conn.execute("update bbs"&totable&" set type=3 where bd="&bd&" and bbsid="&bbsid&"")
umark2(-20)
tl=1
mes="<b>删除回帖成功，请选择你要进行的操作。</b><br>·<a href=list.asp?bd="&bd&">回到"&bdinfo(0)&"</a>。<br>·<a href=show.asp?bd="&bd&"&id="&id&"&totable="&totable&">回到浏览的帖子</a>。"
call sendinfo(tl,mes)
%>

<%
case"alltop"
if usertype<4 then
tl=""
mes="<b>对不起！权限不够。</b>"
call sendinfo(tl,mes)
call down
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="Select top 1 top from [topic] where id="&id&""
rs.open sql,conn,1,3
rs("top")=2
rs.Update
rs.close
set rs=nothing
umark(50)
tl=1
mes="<b>总置顶帖子成功，请选择你要进行的操作。</b><br>·<a href=list.asp?bd="&bd&">回到"&bdinfo(0)&"</a>。<br>·<a href=show.asp?bd="&bd&"&id="&id&"&totable="&totable&">回到浏览的帖子</a>。"
call sendinfo(tl,mes)
%>


<%case"delalltop"
if usertype<4 then
tl=""
mes="<b>对不起！权限不够。</b>"
call sendinfo(tl,mes)
call down
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="Select top 1 top from [topic] where id="&id&""
rs.open sql,conn,1,3
rs("top")=0
rs.Update
rs.close
set rs=nothing
tl=1
mes="<b>取消总置顶帖子成功，请选择你要进行的操作。</b><br>·<a href=list.asp?bd="&bd&">回到"&bdinfo(0)&"</a>。<br>·<a href=show.asp?bd="&bd&"&id="&id&"&totable="&totable&">回到浏览的帖子</a>。"
call sendinfo(tl,mes)
%>


<%end select

call down%>