<%@ language=VBScript %>
<%
if Request("menu") = "del" then
call del()
else call index()
end if
sub index()
%>
<%=gbook_name%>--删除留言
<%
call htmlend()
Response.End
end sub
sub del()
password = Request.form("password")
id = Request.form("id")
save = Request.form("save")
if id = "" then
message=message&"对不起，你的删除记录号不能为空！\n"
end if
if password <> passwords then
message=message&" 您的管理口令不正确！\n"
end if
on error resume next
if message <> "" then
call error(""&message&"")
Response.end
else
if Request.form("select") = "this" then
sql = "delete * from bqw where bqwid=" & id
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,3,1
Rs.close
sql = "delete * from reply where replyid=" & id
Rs.open sql,conn,3,1
Rs.close
sql = "select * from admin"
Rs.open sql,conn,3,2
if Rs("today_count") > 0 then
Rs("today_count") = Rs("today_count")-1
else Rs("today_count") = 0
end if
Rs("today_time") = date
Rs.update
Rs.close
elseif Request.form("select") = "all" then
sql = "delete * from gbook"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,3,1
Rs.close
sql = "delete * from reply"
Rs.open sql,conn,3,1
Rs.close
sql = "select * from admin"
Rs.open sql,conn,3,2
Rs("today_count") = 0
Rs("today_time") = date
Rs.update
Rs.close
end if
if save <> "" then
Response.cookies("password") = password
Response.cookies("save") = save
else
Response.cookies("password") = ""
Response.cookies("save") = ""
end if
set Rs = nothing
conn.close
set conn = nothing
Response.redirect "index.asp"
Response.End
end if
end sub
%>