del.asp

视频源代码 视频源代码

<%response.expires=0%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/vip.asp"-->
<%
if not adminlevel=1 then
  call msgbox("管理员级别够！",1)
end if

adminid	=request("adminid")
if adminid="" then
  call msgbox("请确定要删除的管理员！",1)
end if
if not isnumeric(adminid) then
  call msgbox("请确定要删除的管理员！",1)
end if

sql="select top 1 adminname from admin where adminid="&adminid
rs.open sql,conn,1,1
if not rs.eof then
  admin=rs(0)
else
  rs.close
  call msgbox("该用户不存在！",1)
end if
rs.close

rs.open "delete from admin where adminid="&adminid,conn,1,3

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