userdel.asp

来自「《实例精粹ASP》中部分源代码」· ASP 代码 · 共 42 行

<!--#include file = "include/sysbase.asp"-->
<%
dim intId
dim strSQL, rsObj
intId =  RealString(Request.QueryString("userId"))
if Session("AdminAccount")  =  intId then
%>
<script language = Javascript>
<!--
alert("不能删除当前登录的管理员！");
window.history.go(-1);
//-->
</script>
<%
	Response.End
end if

set rsObj = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Admins"
rsObj.Open strSQL, conn, adOpenKeyset, adLockReadOnly 
if rsObj.recordCount<= 1 then%>
<script language = Javascript>
<!--
alert("无法删除最后一个管理员！");
window.history.go(-1);
//-->
</script>

<%
	Response.End
end if
strSQL = "DELETE FROM Admins WHERE Account = '"& intId & "'"
'Response.Write strSQL
'Response.End
conn.execute (strSQL)
%>
<script language = Javascript>
<!--
alert("删除成功！");
window.location = "<%=Session("adminoldUrl")%>"
//-->
</script>