<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
OA_DepartmentID=trim(Request("departmentID"))
|
Old_userID=trim(Request("Old_userID"))
|
|
'各种返回信息
|
SystemMessageType=trim(Request("SystemMessageType"))
|
SMT=trim(Request("SMT"))
|
if SystemMessageType<>"" then
|
if SMT="1" then
|
SystemMessageTXT="数据不完整!! 请填写所有选项"
|
elseif SMT="2" then
|
SystemMessageTXT="用户账号/姓名/手机/微信/邮箱必须唯一，不可重复!!"
|
elseif SMT="3" then
|
SystemMessageTXT="用户账号增加完成"
|
elseif SMT="4" then
|
SystemMessageTXT="手机/微信/邮箱至少填写一个!!"
|
end if
|
'临时信息返回
|
OA_User=session("Temp_OA_User")
|
OA_Name=session("Temp_OA_Name")
|
OA_gender=session("Temp_OA_gender")
|
OA_mobile=session("Temp_OA_mobile")
|
OA_weixinID=session("Temp_OA_weixinID")
|
OA_email=session("Temp_OA_email")
|
OA_Position=session("Temp_OA_Position")
|
OA_CompetencyID=session("Temp_OA_CompetencyID")
|
OA_province=session("Temp_province")
|
OA_city=session("Temp_city")
|
OA_execLevel=session("Temp_OA_execLevel")
|
Post_Name=session("Temp_Post_Name")
|
Post_MoneyP=session("Temp_Post_MoneyP")
|
Post_MoneyP1=session("Temp_Post_MoneyP1")
|
OA_IdentityCard=session("Temp_OA_IdentityCard")
|
If OA_Province<>"" Then ProvinceCityID=OA_Province
|
If OA_City<>"" Then ProvinceCityID=OA_City
|
Else
|
OA_execLevel=1
|
Post_MoneyP=0
|
Post_MoneyP1=0.5
|
end If
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
If OA_DepartmentID<>"0" then
|
sql="select id,vID,vtext,vType,vOrder,vtitle from dictionary where vtitle='OA_Department' and vID="&OA_DepartmentID
|
rs.open sql,objConn,1,1
|
If rs.Eof then Response.Redirect "/"
|
departmentID = rs("vID")
|
departmentName = rs("vtext")
|
rs.close()
|
Else
|
departmentName = "系统角色"
|
End If
|
If Old_userID<>"" Then
|
sql="select * from OA_User where OA_User_ID="&Old_userID
|
rs.open sql,objConn,1,1
|
if not rs.eof then
|
OA_DepartmentID = rs("OA_DepartmentID")
|
OA_Position = rs("OA_Position")
|
OA_Power = rs("OA_Power")
|
OA_Province = rs("OA_Province")
|
OA_City = rs("OA_City")
|
OA_OrderClass = rs("OA_OrderClass")
|
OA_Img_64 = rs("OA_Img_64")
|
OA_Img = rs("OA_Img")
|
Post_Name = rs("Post_Name")
|
Post_MoneyP = rs("Post_MoneyP")
|
Post_MoneyP1 = rs("Post_MoneyP1")
|
OA_UserRemark = rs("OA_UserRemark")
|
OA_IdentityCard=rs("OA_IdentityCard")
|
end if
|
rs.close()
|
OA_CompetencyID=""
|
sql="select OA_CompetencyID from OA_Competency where OA_CompetencyUserID="&Old_userID
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
OA_CompetencyID = OA_CompetencyID&","&rs(0)
|
rs.movenext
|
loop
|
rs.close()
|
If OA_CompetencyID<>"" Then OA_CompetencyID=Mid(OA_CompetencyID,2)
|
End If
|
|
'权限证验
|
if (isDepartment("060201")=1 and OA_DepartmentID=session("adminDepartmentID")) or isDepartment("060203")=1 then
|
else
|
response.redirect "/"
|
end if
|
%>
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
<head>
|
<title><%=LindemanAdmin%></title>
|
<!--#include virtual="/inc/ccs.gds"-->
|
</head>
|
<body onkeydown="xKeyEvent(event)">
|
<!--#INCLUDE FILE="menu_header.gds" -->
|
<!-- content -->
|
<div id="content">
|
<!--#INCLUDE FILE="AdminUser_menu_left.gds" -->
|
<!-- content / right -->
|
<div id="right">
|
<!-- messages -->
|
|
<!-- forms -->
|
<div class="box">
|
<!-- box / title -->
|
<div class="title">
|
<h5>新建员工账号资料 <%=departmentName%></h5>
|
<ul class="links">
|
<%
|
if PositionURLID="1" then PositionURLID=11
|
ReturnURL=session("PositionURL"&PositionURLID-1)
|
if InStr(ReturnURL,"?")<1 then
|
ReturnURL=ReturnURL&"?ReturnURLID="&(PositionURLID-1)
|
else
|
ReturnURL=ReturnURL&"&ReturnURLID="&(PositionURLID-1)
|
end if
|
%>
|
<li><a href="<%=ReturnURL%>">返回</a></li>
|
</ul>
|
</div>
|
<!-- end box / title -->
|
<!--#include virtual="/inc/SystemMessages.gds" -->
|
<form name="form1" method="post" action="admin_save.gds">
|
<input name="admin_save" type="hidden" value="9">
|
<input name="Old_userID" type="hidden" value="<%=Old_userID%>">
|
<input name="OA_Power" type="hidden" value="<%=OA_Power%>">
|
<div class="form">
|
<div class="fields">
|
<div class="field field-first">
|
<div class="label">
|
<label for="input-small">用户账号:</label>
|
</div>
|
<div class="input">
|
<input type="text" id="OA_User" name="OA_User" value="<%=OA_User%>" class="small" /> <font color="#ff0000">*</font>
|
</div>
|
</div>
|
|
<div class="field">
|
<div class="label">
|
<label for="input-medium">姓名:</label>
|
</div>
|
<div class="input">
|
<input type="text" id="OA_Name" name="OA_Name" value="<%=OA_Name%>" class="small" /> <font color="#ff0000">*</font>
|
</div>
|
</div>
|
<div class="field">
|
<div class="label">
|
<label for="input-medium">性别:</label>
|
</div>
|
<div class="select">
|
<select id="OA_gender" name="OA_gender" class="select1">
|
<option value="0">请选择性别</option>
|
<option value="1"<%if 1=OA_gender then Response.Write " selected"%>>男</option>
|
<option value="2"<%if 2=OA_gender then Response.Write " selected"%>>女</option>
|
</select>
|
</div>
|
</div>
|
<div class="field">
|
<div class="label">
|
<label for="input-medium">手机:</label>
|
</div>
|
<div class="input">
|
<input type="text" id="OA_mobile" name="OA_mobile" value="<%=OA_mobile%>" class="small" /> <font color="#ff0000">*</font>
|
</div>
|
</div>
|
<div class="field">
|
<div class="label">
|
<label for="input-medium">微信号:</label>
|
</div>
|
<div class="input">
|
<input type="text" id="OA_weixinID" name="OA_weixinID" value="<%=OA_weixinID%>" class="small" />（注意：是微信号，不是微信的名字）
|
</div>
|
</div>
|
<div class="field">
|
<div class="label">
|
<label for="input-medium">邮箱:</label>
|
</div>
|
<div class="input">
|
<input type="text" id="OA_email" name="OA_email" value="<%=OA_email%>" class="small" />
|
</div>
|
</div>
|
<div class="field">
|
<div class="label">
|
<label for="input-medium">身份证:</label>
|
</div>
|
<div class="input">
|
<input type="text" id="OA_IdentityCard" name="OA_IdentityCard" value="<%=OA_IdentityCard%>" class="small" />
|
</div>
|
</div>
|
|
<%if isDepartment("060201")=1 And isDepartment("060203")=1 And OA_DepartmentID<>"0" then%>
|
<div class="field">
|
<div class="label">
|
<label for="input-medium">部门:</label>
|
</div>
|
<div class="select">
|
<select id="OA_DepartmentID" name="OA_DepartmentID" class="select1" style="height:280px;" multiple="multiple">
|
<%
|
sql="select id,vID,vtext,vType,vOrder,vtitle from dictionary where vtitle='OA_Department' and vType>=0 order by vOrder"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
departmentID = rs("vID")
|
departmentName = rs("vtext")
|
if cint(OA_DepartmentID)=cint(departmentID) Then App_departmentName=Replace(departmentName,"车队","司机")
|
%>
|
<option value="<%=departmentID%>"<%if cint(OA_DepartmentID)=cint(departmentID) then Response.Write " selected"%>><%=departmentName%></option>
|
<%rs.movenext
|
loop
|
rs.close()%>
|
</select>
|
</div>
|
</div>
|
<%else%>
|
<input name="OA_DepartmentID" type="hidden" value="<%=OA_DepartmentID%>">
|
<%End if%>
|
<div class="field">
|
<div class="label">
|
<label for="input-medium">职位:</label>
|
</div>
|
<div class="input">
|
<input type="text" id="OA_Position" name="OA_Position" value="<%=OA_Position%>" class="small" />
|
</div>
|
</div>
|
<div class="field">
|
<div class="label1">
|
<label for="input-medium">职能:</label>
|
</div>
|
<div class="checkboxes">
|
<%
|
OA_CompetencyIDSP = SPLIT(OA_CompetencyID,",")
|
sql="select vID,vtext from dictionary where vType=1 and vtitle='OA_Competency' order by vOrder"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
CompetencyID = rs("vID")
|
CompetencyName = rs("vtext")
|
Competency_is=""
|
for i = 0 to UBOUND(OA_CompetencyIDSP)
|
If CInt(CompetencyID)=CInt(OA_CompetencyIDSP(i)) Then Competency_is="1"
|
Next
|
If InStr(App_departmentName,CompetencyName)>0 Then Competency_is="1"
|
%>
|
<input type="checkbox" id="OA_CompetencyID_<%=CompetencyID%>" value="<%=CompetencyID%>" name="OA_CompetencyID" style="margin: auto;"<%If Competency_is="1" Then Response.Write " checked=""checked"""%>/>
|
<label for="OA_CompetencyID_<%=CompetencyID%>"><%=CompetencyName%></label>
|
<%
|
rs.movenext
|
loop
|
rs.close()
|
%>
|
|
</div>
|
</div>
|
<div class="field">
|
<div class="label">
|
<label for="input-medium">组别:</label>
|
</div>
|
<div class="select">
|
<select id="OA_EmployeeGroup" name="OA_EmployeeGroup" class="select1">
|
|
<%
|
Response.Write "<option value=""0"">请选择</option>"
|
sql="select id,vID,vtext,vType,vOrder,vtitle from dictionary where vtitle='EmployeeGroup' and vType>=0 order by vOrder"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
EmployeeGroupID = rs("vID")
|
EmployeeGroupName = rs("vtext")
|
%>
|
<option value="<%=EmployeeGroupID%>"<%if OA_EmployeeGroup=cint(EmployeeGroupID) then Response.Write " selected"%>><%=EmployeeGroupName%></option>
|
<%rs.movenext
|
loop
|
rs.close()%>
|
</select>
|
</div>
|
</div>
|
<div class="field">
|
<div class="label">
|
<label for="input-medium">岗位级别:</label>
|
</div>
|
<div class="input">
|
<input type="text" id="Post_Name" name="Post_Name" value="<%=Post_Name%>" class="small" />
|
</div>
|
</div>
|
<div class="field">
|
<div class="label">
|
<label for="input-medium">岗位工资:</label>
|
</div>
|
<div class="checkboxes">
|
|
<label>P:</label>
|
<input type="text" id="Post_MoneyP" name="Post_MoneyP" value="<%=Post_MoneyP%>" class="small" style="width: 50px;"/>
|
<label>元 </label>
|
|
<label>P1:</label>
|
<input type="text" id="Post_MoneyP1" name="Post_MoneyP1" value="<%=FormatNumber(Post_MoneyP1,2,-1)%>" class="small" style="width: 40px;"/>
|
<label>元/公里</label>
|
</div>
|
</div>
|
<div class="field">
|
<div class="label1">
|
<label for="input-medium">可查看单据类型:</label>
|
</div>
|
<div class="checkboxes" style="line-height: 18px;">
|
<%
|
OA_OrderClassIDSP = SPLIT(OA_OrderClass,",")
|
If InStr(App_departmentName,"--")>0 Then
|
App_OrderClassName=Mid(App_departmentName,1,InStr(App_departmentName,"--")-1)
|
Else
|
App_OrderClassName="广州"
|
End If
|
If instr(OA_Power,"020114")>=1 Then
|
Response.Write "全部类型"
|
Else
|
'sql="select vID,vtext,vOrder2 from dictionary where vType>0 and vtitle='OrderClass' order by vOrder"
|
sql="select replace(vtext,'服务单','') as vtext,UnitState,vOrder2 from dictionary left join IntroducerUnitData on ServiceBranch=vOrder2 and UnitID not in (32) where vtitle='OrderClass' and vType=1 and UnitID>0 order by UnitState desc"
|
rs.open sql,objConn,1,1
|
m=1
|
do while not rs.Eof
|
OrderClassID = rs("vOrder2")
|
OrderClassName = rs("vtext")
|
OrderClass_is=""
|
for i = 0 to UBOUND(OA_OrderClassIDSP)
|
If OrderClassID=Trim(OA_OrderClassIDSP(i)) Then OrderClass_is="1"
|
Next
|
If App_OrderClassName<>"" And InStr(OrderClassName,App_OrderClassName)>0 Then OrderClass_is="1"
|
m=m+1
|
%>
|
<input type="checkbox" id="OA_OrderClass_<%=OrderClassID%>" value="<%=OrderClassID%>" name="OA_OrderClass" style="margin: auto;"<%If OrderClass_is="1" Then Response.Write " checked=""checked"""%>/>
|
<label for="OA_OrderClass_<%=OrderClassID%>"><%=OrderClassName%></label>
|
<%If m mod 10=1 Then Response.Write "<br>"
|
rs.movenext
|
loop
|
rs.close()
|
End If
|
%>
|
</div>
|
</div>
|
|
<script src="/js/address.js" type="text/javascript"></script>
|
<div class="field">
|
<div class="label">
|
<label for="input-medium">地区:</label>
|
</div>
|
<div class="input">
|
<select class="f-input" id="province" name="province" style="padding: 5px 0 5px 8px;"> <option value="" selected="selected">请选择</option></select>
|
<select class="f-input" id="city" name="city" style="padding: 5px 0 5px 8px;"><option value="" selected="selected">请选择</option></select>
|
<input type="hidden" name="area" id="area" value="<%=ProvinceCityID%>">
|
</div>
|
</div>
|
|
|
<div class="field">
|
<div class="label">
|
<label for="input-medium">账号状态:</label>
|
</div>
|
<div class="select">
|
<select id="OA_execLevel" name="OA_execLevel" class="select1">
|
<%'管理员选项
|
if session("admin_execLevel")="2" then%>
|
<option value="-1"<%if -1=cint(OA_execLevel) then Response.Write " selected"%>>停用</option>
|
<option value="0"<%if 0=cint(OA_execLevel) then Response.Write " selected"%>>只读</option>
|
<option value="1"<%if 1=cint(OA_execLevel) then Response.Write " selected"%>>正常</option>
|
<option value="2"<%if 2=cint(OA_execLevel) then Response.Write " selected"%>>管理员</option>
|
<option value="3"<%if 3=cint(OA_execLevel) then Response.Write " selected"%>>系统角色</option>
|
<%ElseIf OA_execLevel="2" then%>
|
<option value="2"<%if 2=cint(OA_execLevel) then Response.Write " selected"%>>管理员</option>
|
<%ElseIf OA_execLevel="3" then%>
|
<option value="3"<%if 3=cint(OA_execLevel) then Response.Write " selected"%>>系统角色</option>
|
<%else%>
|
<option value="-1"<%if -1=cint(OA_execLevel) then Response.Write " selected"%>>停用</option>
|
<option value="0"<%if 0=cint(OA_execLevel) then Response.Write " selected"%>>只读</option>
|
<option value="1"<%if 1=cint(OA_execLevel) then Response.Write " selected"%>>正常</option>
|
<%end if%>
|
</select>
|
</div>
|
</div>
|
|
<div class="buttons">
|
<div class="highlight">
|
<input type="submit" name="submit" value="提交新建" />
|
</div>
|
</div>
|
</div>
|
</div>
|
</form>
|
</div>
|
<!-- end forms -->
|
</div>
|
<!-- end content / right -->
|
</div>
|
<!-- end content -->
|
<!--#include FILE="vicgame.asp"-->
|
</body>
|
</html>
|
