<!--#Include File="Connection.Asp"-->
<!--#Include File="JaClog.Asp"-->
<%
Dim adminID,Rs
adminID = Trim(Request.QueryString("adminID"))
Set Rs=Conn.Execute("Select * From [JaAdmin] Where ID="&adminID&" ")
If Not Rs.Eof Then
Conn.Execute("Delete From [JaAdmin] Where ID="&adminID&" ")
Response.Write "<script language=javascript>alert('管理员删除成功!');"
Response.Write "window.document.location.href='Admin.Asp';</script>"
Else
Response.Write "<script language=javascript>alert('该管理员不存在,无法删除!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
End if
Rs.Close
Set Rs=Nothing
%>