yd_guestbook_admin_del.asp

是个不错的留言版

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="YD_guestbook_CONN.asp" -->
<!--#include file="YD_guestbook_Const.asp" -->
<%
'------------------------------------------------------------------------
'By 玄天尊, 更新于2005-05-19 晚.
'和论坛结合的留言本,分会员与游客两种模式
'可定义是否使用验证码,防止恶意留言
'ACCESS与MSSQL通用版本
'www.YdSpace.org And www.YdSpace.net  异度空间技术部
'------------------------------------------------------------------------

Response.Buffer=True
Dvbbs.Stats="留言管理"
Dvbbs.Nav()
Dvbbs.Head_var 0,0,""&guestbook_setting(0)&"","YD_guestbook_index.asp"
If not dvbbs.master then
	Response.Redirect "YD_guestbook_Save.asp?action=information&sid=2&act=<li>错误，留言管理只能管理员进入，如果你是管理员请先登陆&Flag=2"
End if

select case request("action")
	case "DelAnn"
		call DelAnn()
	case "DelTh"
		call DelTh()
	case else
		call main()
end select
Dvbbs.ActiveOnline
Dvbbs.footer()

sub main()
Response.Redirect "YD_guestbook_Save.asp"
End sub


Sub DelAnn()
dim delid
delid=replace(request.form("id"),"'","")

If delid="" then
	sucmess="<li>请指定相关主题。"
	Exit sub
End if

If delid<>"" then
	guestbook_conn.execute("delete from YD_Guest_topic where id in ("&delid&")")
	guestbook_conn.execute("delete from YD_Guest_Theme where Thid in ("&delid&")")
End if
Response.Redirect "YD_guestbook_Save.asp?action=information&sid=1&act=<li>成功删除主题及回复留言。&Flag=2"
End sub

Sub DelTh()
Dim Tid,Thid
Tid=request("Tid")

If Tid="" then
	sucmess="<li>请指定相关留言。"
	Exit sub
End if
If not isnumeric(Tid) then
	Response.Redirect "YD_guestbook_Save.asp?action=information&sid=1&act=<li>错误的参数，请指定正确的留言。&Flag=2"
End if

sql="select * from YD_Guest_Theme where id="&Tid&""
Set Rs=guestbook_conn.execute(sql)
If rs.eof and rs.bof then
	Rs.close
	Set Rs=nothing
	Response.Redirect "YD_guestbook_Save.asp?action=information&sid=1&act=<li>没有找到您要删除的留言。&Flag=2"
End if
Rs.close
Set Rs=nothing

If Tid<>"" then
	sql="select Thid from YD_Guest_Theme where id="&Tid&""
	Set Rs=guestbook_conn.execute(sql)
	Thid=rs(0)
	Rs.close
	Set Rs=nothing
	guestbook_conn.execute("delete from YD_Guest_Theme where id in ("&Tid&")")
	guestbook_conn.execute("update YD_Guest_topic set AnswerNumber=AnswerNumber-1 where id="&Thid&"")
End if
Response.Redirect "YD_guestbook_Save.asp?action=information&sid=1&act=<li>成功删除回复留言。&Flag=2"
End sub
%>