specialkillok.asp

社区天地图文系统(核心:尘缘雅境图文系统) 版本: 1.0 本系统是ASP+ACCESS环境下开发成功

<!--#include file="Conn.ASP"--><!--#include file="char.inc"--><!--#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
else
usernamecookie=CheckStr(request.cookies("UserName"))
passwdcookie=replace(trim(Request.cookies("passwd")),"'","''")
KEYcookie=replace(trim(request.cookies("KEY")),"'","''")
if usernamecookie="" or passwdcookie="" then
response.redirect "login.asp"
response.end
else
'判断用户的合法性
  set rs=server.createobject("adodb.recordset")
  sql="select * from admin where username='"&usernamecookie&"'"
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
             response.redirect "login.asp"
            response.end
         end if
  IF passwdcookie<>rs("passwd") THEN
          response.redirect "login.asp"
           response.end
      END IF
   '下面判断用户级别实际在有用户级别是都应该判断
   if KEYcookie<>rs("OSKEY") then
      response.redirect "index_face.asp"
      response.end
    end if
           rs.close
           set rs=nothing
END IF
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"">"
%>