common_bak.inc

物业管理和办公自动化系统

		IsOnline = true
	else
		IsOnline = false
	end if
End Function

'************************************************************************************************
' 函数名　: IsLogin
' 输　入　: (无)
' 输　出　: 用户登录状态true 或false，布尔类型
' 功能描述: 获取当前用户的登录状态，已登录返回true，未登录返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-30
' 版　本　: 
'************************************************************************************************
Function IsLogin()
	dim sLoginname
	sLoginname = Session("UserID")
	if sLoginname = "" then
		IsLogin = false
	else
		IsLogin = true
	end if
End Function


'************************************************************************************************
' 函数名　: GetNodeId
' 输　入　: (无)
' 输　出　: 用户所在的岗位，整型
' 功能描述: 获取当前用户的岗位，返回该用户在T_Employee中的Node_id
' 调用模块: 
' 作　者　: 蔡晓燕
' 日　期　: 2002-06-14
' 版　本　: 
'************************************************************************************************
Function GetNodeId
	dim sTemp
	sTemp = Session("node_id")
	''sTemp = Request.Cookies("node_id")

	call DealEmptySessionValue(sTemp)
	GetNodeId = sTemp
End Function

'************************************************************************************************
' 函数名　: SetNodeId
' 输　入　: id	---- 用户对应的岗位标识，整型
' 输　出　: (无)
' 功能描述: 用Session来保存用户的岗位标识
' 调用模块: 
' 作　者　: 蔡晓燕
' 日　期　: 2002-06-14
' 版　本　: 
'************************************************************************************************
Sub SetNodeId(id)
	Session("Node_id") = id
	''Response.Cookies("Node_id") = id
	''Response.Cookies("Node_id").Expires=#2010-1-1#
End Sub

'************************************************************************************************
' 函数名　: GetDepartmentId
' 输　入　: (无)
' 输　出　: 用户所在的部门，整型
' 功能描述: 获取当前用户的部门，返回该用户的岗位对应的部门
' 调用模块: 
' 作　者　: 蔡晓燕
' 日　期　: 2002-06-14
' 版　本　: 
'************************************************************************************************
Function GetDepartmentId
	dim sTemp
	sTemp = Session("department_id")
	''sTemp = Request.Cookies("department_id")

	call DealEmptySessionValue(sTemp)
	GetDepartmentId = sTemp
End Function

'************************************************************************************************
' 函数名　: SetDepartmentId
' 输　入　: id	---- 用户对应的部门标识，整型
' 输　出　: (无)
' 功能描述: 用Session来保存用户的部门标识
' 调用模块: 
' 作　者　: 蔡晓燕
' 日　期　: 2002-06-14
' 版　本　: 
'************************************************************************************************
Sub SetdepartmentId(id)
	Session("department_id") = id
	''Response.Cookies("department_id") = id
	''Response.Cookies("department_id").Expires=#2010-1-1#
End Sub

'************************************************************************************************
' 函数名　: GetOfficer
' 输　入　: (无)
' 输　出　: (无)
' 功能描述: 给出办公室主任的序列号
' 调用模块: 
' 作　者　: 蔡晓燕
' 日　期　: 2002-06-14
' 版　本　: 
'************************************************************************************************
function GetOfficer()
	'' 从表 t_specialpost 中取出办公室主任的emp_serial
	GetOfficer = EmpSerialOfSpecialPost(ID_OFFICER)
end function


'************************************************************************************************
' 函数名　: IsAdministrator
' 输　入　: (无)
' 输　出　: 布尔型 true 或 false
' 功能描述: 当前用户是否是系统管理员，是返回true，否返回false
' 调用模块: 
' 作　者　: 蔡晓燕
' 日　期　: 2002-06-14
' 版　本　: 
'************************************************************************************************
function IsAdministrator()
	if GetUserId = "admin" then
		IsAdministrator = true
	else
		IsAdministrator = false
	end if
end function

'************************************************************************************************
' 函数名　: GetAdminLevel
' 输　入　: (无)
' 输　出　: 整型，1公司领导级；2部门经理级；3普通员工级
' 功能描述: 取到当前用户的管理级别：1公司领导级；2部门经理级；3普通员工级
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-12
' 版　本　: 
'************************************************************************************************
function GetAdminLevel()
	dim sSQL, crs, rs, sTemp
	sSQL = "select admin_level from t_position where position_id = (select pos from t_employee where serial = " & GetEmpSerial & ")" 
	set crs = New CRecordset
	set rs = crs.Open(dbLocal, sSQL)
	sTemp = crs.GetValue("admin_level")
	crs.Close()

	GetAdminLevel = sTemp
end function

'************************************************************************************************
' 函数名　: IsOfficer
' 输　入　: (无)
' 输　出　: 布尔型 true 或 false
' 功能描述: 判断当前用户是不是办公室主任，是返回true，否返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-12
' 版　本　: 
'************************************************************************************************
function IsOfficer()
	if CStr(GetEmpSerial) = CStr(GetOfficer) then
		IsOfficer = true
	else
		IsOfficer = false
	end if
end function

'************************************************************************************************
' 函数名　: IsHrAdmin
' 输　入　: (无)
' 输　出　: 布尔型 true 或 false
' 功能描述: 判断当前用户是不是人事管理员，是返回true，否返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-12
' 版　本　: 
'************************************************************************************************
function IsHrAdmin()
	'' 从表 t_specialpost 中取出人事管理员的emp_serial
	dim HrAdminEmpSerial
	HrAdminEmpSerial = EmpSerialOfSpecialPost(ID_HRADMIN)
	if CStr(HrAdminEmpSerial) = CStr(GetEmpSerial) then 
		IsHrAdmin = true
	else 
		IsHrAdmin = false
	end if
end function

'************************************************************************************************
' 函数名　: IsDocAdmin
' 输　入　: (无)
' 输　出　: 布尔型 true 或 false
' 功能描述: 判断当前用户是不是公文管理员，是返回true，否返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-12
' 版　本　: 
'************************************************************************************************
function IsDocAdmin()
	'' 从表 t_specialpost 中取出人事管理员的emp_serial
	dim DocAdminEmpSerial
	DocAdminEmpSerial = EmpSerialOfSpecialPost(ID_DOCADMIN)
	if CStr(DocAdminEmpSerial) = CStr(GetEmpSerial) then 
		IsDocAdmin = true
	else 
		IsDocAdmin = false
	end if
end function

'************************************************************************************************
' 函数名　: IsRuleAdmin
' 输　入　: (无)
' 输　出　: 布尔型 true 或 false
' 功能描述: 判断当前用户是不是制度管理员，是返回true，否返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-12
' 版　本　: 
'************************************************************************************************
function IsRuleAdmin()
	'' 从表 t_specialpost 中取出制度管理员的emp_serial
	dim RuleAdminEmpSerial
	RuleAdminEmpSerial = EmpSerialOfSpecialPost(ID_RULEADMIN)
	if CStr(RuleAdminEmpSerial) = CStr(GetEmpSerial) then 
		IsRuleAdmin = true
	else 
		IsRuleAdmin = false
	end if
end function

'************************************************************************************************
' 函数名　: IsHotspotAdmin
' 输　入　: (无)
' 输　出　: 布尔型 true 或 false
' 功能描述: 判断当前用户是不是大事管理员，是返回true，否返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-12
' 版　本　: 
'************************************************************************************************
function IsHotspotAdmin()
	'' 从表 t_specialpost 中取出大事管理员的emp_serial
	dim HotspotAdminEmpSerial
	HotspotAdminEmpSerial = EmpSerialOfSpecialPost(ID_HOTSPOTADMIN)
	if CStr(HotspotAdminEmpSerial) = CStr(GetEmpSerial) then 
		IsHotspotAdmin = true
	else 
		IsHotspotAdmin = false
	end if
end function

'************************************************************************************************
' 函数名　: IsLibraryAdmin
' 输　入　: (无)
' 输　出　: 布尔型 true 或 false
' 功能描述: 判断当前用户是不是图书管理员，是返回true，否返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-12
' 版　本　: 
'************************************************************************************************
function IsLibraryAdmin()
	'' 从表 t_specialpost 中取出大事管理员的emp_serial
	dim LibraryAdminEmpSerial
	LibraryAdminEmpSerial = EmpSerialOfSpecialPost(ID_LIBRARYADMIN)
	if CStr(LibraryAdminEmpSerial) = CStr(GetEmpSerial) then 
		IsLibraryAdmin = true
	else 
		IsLibraryAdmin = false
	end if
end function

'************************************************************************************************
' 函数名　: IsCustomerAdmin
' 输　入　: (无)
' 输　出　: 布尔型 true 或 false
' 功能描述: 判断当前用户是不是单位名录管理员，是返回true，否返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-14
' 版　本　: 
'************************************************************************************************
function IsCustomerAdmin()
	'' 从表 t_specialpost 中取出大事管理员的emp_serial
	dim CustomerAdminEmpSerial
	CustomerAdminEmpSerial = EmpSerialOfSpecialPost(ID_CUSTOMERADMIN)
	if CStr(CustomerAdminEmpSerial) = CStr(GetEmpSerial) then 
		IsCustomerAdmin = true
	else 
		IsCustomerAdmin = false
	end if
end function

'************************************************************************************************
' 函数名　: IsNewsAdmin
' 输　入　: (无)
' 输　出　: 布尔型 true 或 false
' 功能描述: 判断当前用户是不是大楼动态新闻管理员，是返回true，否返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-26
' 版　本　: 
'************************************************************************************************
function IsNewsAdmin()
	'' 从表 t_specialpost 中取出大楼动态新闻管理员的emp_serial
	dim NewsAdminEmpSerial
	NewsAdminEmpSerial = EmpSerialOfSpecialPost(ID_NEWSADMIN)
	if CStr(NewsAdminEmpSerial) = CStr(GetEmpSerial) then 
		IsNewsAdmin = true
	else 
		IsNewsAdmin = false
	end if
end function


'************************************************************************************************
' 函数名　: EmpSerialOfSpecialPost
' 输　入　: post_id
' 输　出　: 整型，员工序列号
' 功能描述: 根据特殊角色的post_id取到相应员工的emp_serial
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-26
' 版　本　: 
'************************************************************************************************
function EmpSerialOfSpecialPost(conn,post_id)
	dim sSQL, iEmpSerial

	'' special post 中指定的必须是在职员工
	iEmpSerial = DLookUp(conn, "select emp_serial from t_specialpost where post_id = " & ToSQL(post_id,"Number") & " and emp_serial in (select serial from t_employee where co_id = 1 and dismissed=0 and isdummy = 0)")
	EmpSerialOfSpecialPost = iEmpSerial
end function

'************************************************************************************************
' 函数名　: HasRightToDocInfor
' 输　入　: (无)
' 输　出　: 布尔型，有为true，无为false
' 功能描述: 员工相对应的角色是否有公文查询的权限，有返回true，无返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-14
' 版　本　: 
'************************************************************************************************
function HasRightToDocInfor(conn)
	dim iRight
	iRight = DLookUp(conn, "select operation_right from t_rights where item_id = " & ToSQL(ID_DOCINFOR,"Text") & _
			" and role_id = (select role_id from t_account where emp_serial = " & GetEmpSerial & ")")

	if CStr(iRight) = "1" then
		HasRightToDocInfor = true
	else
		HasRightToDocInfor = false
	end if
end function

'************************************************************************************************
' 函数名　: HasRightToHrInfor
' 输　入　: (无)
' 输　出　: 布尔型，有为true，无为false
' 功能描述: 员工相对应的角色是否有人事信息查询的权限，有返回true，无返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-14
' 版　本　: 
'************************************************************************************************
function HasRightToHrInfor()
	dim iRight
	iRight = DLookUp(dbLocal, "t_rights", "operation_right", "item_id = " & ToSQL(ID_HRINFOR,"Text") & _
			" and role_id = (select role_id from t_account where emp_serial = " & GetEmpSerial & ")")
	if CStr(iRight) = "1" then
		HasRightToHrInfor = true
	else
		HasRightToHrInfor = false
	end if
end function
%>