<%@language=vbscript codepage=936 %>
<%path="../basedata"%>
<!--#include file="../inc/function.asp"-->
<%call Loginpower%>
<%call Legalpower%>
<!--#include file="../conn/conn_admin.asp"-->
<%
dim id,sql,rs
id=request.querystring("id")
if not idboolean(id) then	response.write errorback("·Ç·¨²Ù×÷")	:	response.end
if session("masterflag") then
conn_admin.begintrans
conn_admin.execute("delete from Admin where Admin_id="&id)
if conn_admin.errors.count>0 then
conn_admin.rollbacktrans
err.clear
conn_admin.close
set conn_admin=nothing
else
conn_admin.committrans
conn_admin.close
set conn_admin=nothing
end if
end if
response.Redirect "Manage_Admin.asp"
%>
