📄 deluser.asp
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%
action=request("action"):WS_Uid=request("WS_Uid"):ColumnName="":Tablename="HX_CompanyUser"
if WS_Uid<>"" then
select case action
case "deluser"
if instr(WS_Uid,",")>0 then
for ii=0 to ubound(split(WS_Uid,","))
if WS_S.HX_IsNUM(split(WS_Uid,",")(ii)) then conn.execute("update HX_CompanyUser set WS_leave=True where WS_Uid="&split(WS_Uid,",")(ii))
next
else
if isnumeric(WS_Uid) then conn.execute("update HX_CompanyUser set WS_leave=True where WS_Uid="&WS_Uid)
end if
WS_S.HX_Redirect"deluser.asp"
case "reuser"
if instr(WS_Uid,",")>0 then
for ii=0 to ubound(split(WS_Uid,","))
if WS_S.HX_IsNUM(split(WS_Uid,",")(ii)) then conn.execute("update HX_CompanyUser set WS_leave=False where WS_Uid="&split(WS_Uid,",")(ii))
next
else
if isnumeric(WS_Uid) then conn.execute("update HX_CompanyUser set WS_leave=False where WS_Uid="&WS_Uid)
end if
WS_S.HX_Redirect"deluser.asp"
end select
end if
response.Write "<head><title>删除员工</title><link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><meta http-equiv='Content-Type' content='text/html; charset=gb2312'></head><body topmargin='20' leftmargin='0' bottommargin='20'><table width='609' border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td width='609' colspan='2' bgcolor=ffffff><table width='609' border='0' cellspacing='0' cellpadding='0'><tr><td width='609' height='25' background='../hximages/titleline.gif'><font class='fontmenu'>删除员工</font></td></tr></table><table width='100%' border='1' cellspacing='0' cellpadding='3' align='center' bordercolorlight='#000000' bordercolordark='#FFFFFF'><tr bgcolor='#F1F1F1'><td height='25'>请选择将要离职的员工</td><td>请选择要恢复数据的员工(<font color='FF0000'>离职员工不能登录OA</font>)</td></tr><tr bgcolor='#F1F1F1'><form action='' method='post' name='form1'><td width='49%' valign='top'><script language='javascript'>function func_select_all1(){ for (i=document.form1.WS_Uid.options.length-1; i>=0; i--) document.form1.WS_Uid.options(i).selected=true;}function func_select_all2(){ for (i=document.form2.WS_Uid.options.length-1; i>=0; i--) document.form2.WS_Uid.options(i).selected=true;}</script>"
set rs=WS_S.HX_SetRSD(ColumnName,Tablename," where WS_leave=False")
response.Write "<div align='center'><select name='WS_Uid' class='box' MULTIPLE style='width:200;height:280'>"
while not rs.eof
WS_S.HX_OutUserInfo(rs("WS_Uid"))
response.Write "<option value='"&rs("WS_Uid")&"'>["&Outdepartment&" "&OutAppointment&"] "&OutUserName&"</option>"
rs.movenext
wend
WS_S.HX_RSClose rs
response.Write "</select><br><input type='button' value=' 全 选 ' onclick='func_select_all1();' class='SmallInput'> <input name='submit' type='submit' value='删除>>>'><input type='hidden' name='action' value='deluser'></div></td></form><form action='' method='post' name='form2'><td width='51%' valign='top'>"
set rs=WS_S.HX_SetRSD(ColumnName,Tablename," where WS_leave=True")
response.Write "<div align='center'><select name='WS_Uid' MULTIPLE style='width:200;height:280'>"
while not rs.eof
WS_S.HX_OutUserInfo(rs("WS_Uid"))
response.Write "<option value='"&rs("WS_Uid")&"'>["&Outdepartment&" "&OutAppointment&"] "&OutUserName&"</option>"
rs.movenext
wend
WS_S.HX_RSClose rs
response.Write "</select><br><input name='Submit2' type='submit' value='<<<恢复'> <input name='button' type='button' class='SmallInput' onClick='func_select_all2();' value=' 全 选 '><input type='hidden' name='action' value='reuser'></div></td></form></tr><tr bgcolor='#CCCCCC'><td colspan='2' align='center'>点击条目时，可以组合CTRL或SHIFT键进行多选</td></tr></table></td></tr></table>"
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -