role_dele.asp

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

<%
'功能：删除职位
'作者：展亮
'日期：2003-12-2 12:00
'参数： request("id")=int #用户ID;	request("Dep_ID")=int '职位ID
%>

<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->

<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
strDepID=request("Dep_ID") '职位ID
pid=request("id") '用户ID
'------------------------------------------------
'-------------------------------------------------删除用户职位
sql="update tbioaUser set RoleID=" & "replace(replace(replace(replace(replace('@' + RoleID +'@','@" & pid & ",',''),'," & pid & ",',','),'," & pid & "@',''),'@" & pid & "@',''),'@','')" '修改用户的职务
oConn.Execute sql

sql="DELETE FROM tbioarole WHERE ID="&pid 	'删除职位
oConn.Execute sql
'------------------------------------------------
oConn.close
response.Redirect "../hrm/depart_manage.asp?id="&strDepID
response.end
%>