deluser.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 25 行

<%
'功能：删除用户
'参数：
'作者：董力勤
'日期: 2003-11-29 15:18
%>

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
dim strID
strUserID=request("strID")
strDepID=request("strDepID")
if strUserID="1" or GetUserName(strUserID)="Administrator" then
	response.write "<script> alert('系统管理员不能删除！'); javascript:history.back()</script>"
	oConn.close
	response.end
end if
sql=" delete from tbioaUser where LoginName<>'administrator' and ID=" & strUserID 
oConn.execute sql
response.Redirect "depart_manage.asp?id="&strDepID
response.end
oConn.close
%>