📄 deluser.asp
字号:
<%
'功能:删除用户
'参数:
'作者:董力勤
'日期: 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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -