employee_function.asp

北京华信东方网络办公系统

<%'=================产生员工数据库----由公司结构生成==========================
function employee(department)
	sql=" SELECT  isnull(v_PicturePath,'picture/default.jpg') as v_PicturePath, c_UserID, "&_
		" v_UserTrueName, v_DepartmentName, v_duty, v_WorkPlace, "&_
		" v_Peoples, d_Birthday,  v_remark,"&_
		" isnull(v_MobileNumber,'') as v_MobileNumber, v_OtherTelNum, v_Email, n_id "&_
		" FROM hxdf_user_info "&_
		" WHERE v_DepartmentName in (SELECT v_DepartmentName "&_
		" FROM hxdf_department_form "&_
		" WHERE (v_DepartmentCode LIKE '"& department &"%')) "&_
		" order by c_UserID "
	dim rs
	set rs=server.CreateObject("adodb.recordset")
	rs.Open sql,conn,1,1
	if rs.EOF then
	dim rsInfo(12,0)
	rsInfo(0,0)="picture/nobody.gif"
	rsInfo(1,0)="xxxxxx"
	rsInfo(2,0)="--未知--"
	rsInfo(3,0)="--未知--"
	rsInfo(4,0)="--未知--"
	rsInfo(5,0)="--未知--"
	rsInfo(6,0)="--未知--"
	rsInfo(7,0)="--未知--"
	rsInfo(8,0)="--未知--"
	rsInfo(9,0)="--未知--"
	rsInfo(10,0)="--未知--"
	rsInfo(11,0)="--未知--"
	rsInfo(12,0)=0
	else
	rsInfo=rs.GetRows
	end if
	rs.Close: set rs=nothing
	employee=rsInfo
end function
'===================员工数据--由部门名称的字符串生成==================
function DepartmentNameEmployee(DepartmentNameStr)
	sql=" SELECT c_UserID, v_UserTrueName, v_DepartmentName "&_
		" FROM hxdf_user_info "&_
		" WHERE (v_DepartmentName IN ("& DepartmentNameStr &")) "&_
		" ORDER BY v_DepartmentName "
	dim rs
	set rs=server.CreateObject("adodb.recordset")
	rs.Open sql,conn,1,1
	if rs.EOF then
	temp=null
	else
	temp=rs.GetRows
	end if
	rs.Close: set rs=nothing
	DepartmentNameEmployee=temp
end function

'===================员工数据信息-----列出数组内数据信息
sub InfoShow(ArrayName,i)
str = "ID:"& ArrayName(1,i) &"<br>Name:"& ArrayName(2,i) &"("& ArrayName(4,i) &")<br>Department:"& ArrayName(3,i)
str = str & "<br>Tel:"& ArrayName(10,i) &"<br>Mobile:"& replace(ArrayName(9,i),",","<br>")
str = str & "<br>Email:<a href='mailto:"&ArrayName(11,i)&"'>"&ArrayName(11,i)&"</a>"
response.Write (str)
end sub

'==================员工Title信息-----列出数组内数据信息
sub InfoTitle(ArrayName,i)
str = "工号："& ArrayName(1,i) &" <br>姓名："& ArrayName(2,i) &"("& ArrayName(4,i) &") <br>部门："& ArrayName(3,i)
str = str & " <br>电话："& ArrayName(10,i) &" <br>手机："& ArrayName(9,i)
str = str & " <br>电子信箱："& ArrayName(11,i)
str = str & " <br>个人简介：出生于"& ArrayName(7,i) &"，民族 "& ArrayName(6,i) 
str = str & " <br>负责项目："& ArrayName(8,i)
response.Write (str)
end sub

'==================单个员工信息
function employeeInfo(id)
sql=" SELECT N_ID, c_UserID, v_UserTrueName, c_Sex, v_Peoples, v_NativePlace, d_Birthday, "&_
	" v_MobileNumber, v_OtherTelNum, v_Email, v_DepartmentName, v_duty, v_remark, "&_
	" v_PicturePath, v_WorkPlace "&_
	" FROM hxdf_user_info "&_
	" WHERE N_ID = "& clng(id)
	dim rs
	set rs=server.CreateObject("adodb.recordset")
	rs.Open sql,conn,1,1
	if rs.EOF then
	rsInfo=null
	else
	rsInfo=rs.GetRows
	end if
	rs.Close: set rs=nothing
	employeeInfo = rsInfo
end function
'==================检验工号===============
function CheckUID(UID)
dim rs
set rs=server.CreateObject("adodb.recordset")
sql=" SELECT c_UserID FROM hxdf_user_info WHERE c_UserID like '"& UID &"'"
rs.open sql,conn,1,1
if rs.EOF then
flag= false
elseif rs.RecordCount=1 then
flag=true
else
flag=false
end if
CheckUID=flag
end function

'==================添加员工信息====================
sub EmployeeAddnew(FieldDataArray)
dim rs
set rs=server.CreateObject("adodb.recordset")
sql=" SELECT * FROM hxdf_user_info where c_UserID like '"&FieldDataArray(1,0)&"'"
on error resume next
rs.open sql,conn,1,3
if rs.eof then
rs.addnew
for i=0 to ubound(FieldDataArray,2)
	if FieldDataArray(1,i)<>"" then
	rs(FieldDataArray(0,i)).value=FieldDataArray(1,i)
	end if
next
rs.update
if err.number<>0 then
	response.Write err.Description
	response.End()
end if
	if not DealPurview(FieldDataArray(1,0),FieldDataArray(1,0)) then
	response.Write("数据权限更新失败")
	response.End()
	end if
else
	response.Write("工号重复")
	response.End()
end if
end sub
'==============================修改用户信息,已经相应的用户登陆账号和权限账号================
sub EmployeeModify(FieldDataArray,condition)
dim rs
set rs=server.CreateObject("adodb.recordset")
sql=" SELECT * FROM hxdf_user_info where n_id =" & clng(condition)
on error resume next
rs.open sql,conn,1,3
if not rs.eof then
OldUID=rs("c_UserID")
for i=0 to ubound(FieldDataArray,2)
	if FieldDataArray(1,i)<>"" then
	rs(FieldDataArray(0,i)).value=FieldDataArray(1,i)
	end if
next
rs.update
	if err.number<>0 then
		response.Write err.Description
		response.End()
	end if
	if not DealPurview(OldUID,FieldDataArray(1,0)) then
	response.Write("数据权限更新失败")
	response.End()
	end if
	if not DealLogin(OldUID,FieldDataArray(1,0)) then
	response.Write("数据登陆更新失败")
	response.End()
	end if
	else
	response.Write("该用户不存在")
	response.End()
end if
end sub
'======================彻底删除用户信息(登陆账号,权限账号,以及档案======================
sub EmployeeDelete(Condition)
sql=" delete from hxdf_user_login where c_userid like '"& Condition &"'"
conn.execute sql
sql=" delete from hxdf_user_purview where c_userid like '"& Condition &"'"
conn.execute sql
sql=" delete from hxdf_user_info where c_userid like '"& Condition &"'"
conn.execute sql
end sub
'======================改变登陆信息中的相应用户的工号=========================
function DealLogin(OldUID,NewUID)
dim rs
set rs=server.CreateObject("adodb.recordset")
sql=" Select c_UserID FROM hxdf_user_login WHERE c_UserID like '"& OldUID &"'"
on error resume next
rs.open sql,conn,1,3
if rs.eof then
else
rs("c_UserID")=NewUID
rs.update
end if
if err.number<>0 then
temp=false
else
temp=true
end if
DealLogin=temp
end function
'=======================改变相应权限用户中工号==========================
function DealPurview(OldUID,NewUID)
dim rs
set rs=server.CreateObject("adodb.recordset")
sql=" Select c_UserID FROM hxdf_user_purview WHERE c_UserID like '"& OldUID &"'"
on error resume next
rs.open sql,conn,1,3
if rs.eof then
rs.addnew
end if
rs("c_UserID")=NewUID
rs.update
if err.number<>0 then
temp=false
else
temp=true
end if
DealPurview=temp
end function
%>