网站制作时关于管理员账号删除的设计

一些网站后台都会提供删除管理员账号的功能，然而，很多网站的这个功能都忽略了当只有一个网站管理员时的删除情况。

以下是凯旋网络工作室在编写网站后台时用到的一个代码，发出来供大家参考，代码没有考虑效率，只是贴出来一种方法，有能力的自己优化下：

<%
dim SQL, Rs, contentID,CurrentPage
CurrentPage = request("Page")
contentID=request("ID")

set rso=server.createobject("adodb.recordset")
sqlo="select * from admin"
rso.open sqlo,conn,3,3
num=rso.recordcount
set rso=nothing

if num=1 then
response.write "<script language=’javascript’>alert(’系统唯一管理员账号不能删除！’);window.history.go(-1);</script>"
else
set rs=server.createobject("adodb.recordset")
sqltext="delete from admin where Id="& contentID
rs.open sqltext,conn,3,3
set rs=nothing
response.redirect "Manage_Admin.asp"
end if
%>