<%Session.CodePage=65001%> <%if session("adxclass")<>"超管" then response.Write"" response.End() end if%> <%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("") 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"" response.end end if%>