del.asp

asp

<%response.expires=0%>
<!--#include file="../inc/conn.asp"-->
<%
userid=Session("userid")
userlevel=Session("userlevel")
if userid="" or userlevel="" then
  call msgbox("请重新登陆！",3)
end if
if not isnumeric(userid) or not isnumeric(userlevel) then
  call msgbox("请重新登陆！",3)
end if
userlevel=CCur(userlevel)
if not userlevel=1 then
  call msgbox("管理员级别够！",1)
end if

userid	=request("userid")
if userid="" then
  call msgbox("请确定要删除的管理员！",1)
end if
if not isnumeric(userid) then
  call msgbox("请确定要删除的管理员！",1)
end if
rs.open "delete from admin where userid="&userid,conn,1,3

call msgbox("管理员成功删除！","../admin/admin.asp")
%>