<% option explicit %>
<!-- #include virtual="/admin/level/_lib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'	功能：權限管理--刪除管理員
'	@Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Dim sql
Dim id   

call DB_Connect(strconn)

'---驗證身份----
Call AdminCheck

id=getForm("id")
if not isnumeric(id) then id=0
sql="delete from t_AdminUserInfo  where asr_id=" & id
oConn.execute(sql)
call DB_DisConnect
response.redirect "index.asp"
%>