specialkillok.asp

ASP+SQL2000+

<!--#include file="Conn.ASP"--><!--#include file=../include/config.asp--><!--#include file="chkuser.asp" -->

<%
IF not(request.cookies("KEY")="super" or request.cookies("KEY")="bigmaster" or request.cookies("KEY")="check" or request.cookies("key")="typemaster") THEN
response.write "<script>alert('您无权删除此项目！');history.go(-1);</Script>"
response.end
END IF	

SpecialID = Request("SpecialID")
dim Specialname
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Special where SpecialID="&SpecialID
rs.open sql,conn,3,3
Specialname=rs("Specialname")
rs.close
set rs=nothing

button_value=trim(Request.Form("alert_button"))
if button_value="是" then

conn.execute("delete from Special where Specialid=" &Specialid)
response.write "<p align=center><font color=red>恭喜您!您选择的专题已经被删除!<br>两秒钟后返回上页!</font>"


if killnews=1 then
conn.execute("delete from news where Specialid='" &Specialid &"'")
response.write "<p align=center><font color=red>恭喜您!您选择的专题所属的文章已经被删除!</font>"
end if
else
response.write "<p align=center><font color=red>您没有执行操作!<br>"&freetime&"秒钟后返回上页!</font>"

conn.close
set conn=nothing
end if

response.write "<meta http-equiv=""refresh"" content="""&freetime&";url=Special.asp"">"
%>