<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include file="JsonPost_user.gds"-->
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
<%
|
'删除成员 Https请求方式: GET
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
|
appUrl="https://qyapi.weixin.qq.com/cgi-bin/user/delete"
|
|
OA_weixinUserID = trim(Request("OA_weixinUserID"))
|
OA_DepartmentID = trim(Request("OA_DepartmentID"))
|
If OA_weixinUserID="" Or session("admin_execLevel")<>"2" Then Response.Redirect "/"
|
sql="select OA_User_ID,count(id) from OA_Running,OA_User where OAid=OA_User_ID and OA_weixinUserID='"&OA_weixinUserID&"' GROUP BY OA_User_ID"
|
rs.open sql,objConn,1,1
|
if not rs.eof then
|
If rs(1)>=10 then
|
Response.Redirect "/AdminUser.gds?userID="&rs(0)&"&h_menu1_1=1&SystemMessageType=4&SMT=9"
|
Response.End()
|
end If
|
End If
|
rs.close()
|
|
Origin="access_token="&access_token&"&userid="&OA_weixinUserID
|
|
HTMLCODE= GetBody(appUrl,Origin)
|
|
'If Mid(HTMLCODE,12,1)<>"0" Then
|
' Response.Write HTMLCODE
|
'Else
|
sql="delete from OA_User where OA_weixinUserID='"&OA_weixinUserID&"'"
|
objConn.Execute sql
|
Response.Write HTMLCODE
|
Response.Redirect "/AdminUser_List.gds?h_menu1_1=1&departmentID="&OA_DepartmentID
|
'End If
|
%>
|
