xuanjuAsp/xafch315/admag/adDel.asp

<%Session.CodePage=65001%>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<%if session("adxclass")<>"超管" then
response.Write"<script language='javascript'>alert('您没有权限');history.go(-1);</script>"
response.End()
end if%>
<!--#include file="../bdcommx/connxyz.asp"-->

<%call log_chk()
dim xxx
xxx=trim(request("xxx"))
if xxx<>"" then
Set rs=Server.Createobject("Adodb.Recordset")
sql="select * from adminx where adx_id="&xxx
rs.open sql,conn,1,3
if rs("adx_name")=session("adminxxx") then
response.Write("<script languge='javascript'>alert('您不能删除自己！');history.back(-1);</script>")
response.End()
end if
rs.delete
rs.close
set rs=nothing
'删除大类！为彻底，也删除登录日志
conn.Execute("delete from adminlog where adx_id="&xxx&"")
conn.Close
Set conn=Nothing
response.write"<SCRIPT language=JavaScript>alert('删除成功！');"
response.write"this.location.href='adMag.asp';</SCRIPT>" 
response.end
end if%>