common.inc

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

End Sub

'************************************************************************************************
' 函数名　: GetEmpSerial
' 输　入　: (无)
' 输　出　: 用户序列号，整型
' 功能描述: 获取当前用户的序列号
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-29
' 版　本　: 
'************************************************************************************************
Function GetEmpSerial()
	dim sTemp
	sTemp = Session("EmpSerial")
	''sTemp = Request.Cookies("EmpSerial")

	call DealEmptySessionValue(sTemp)
	GetEmpSerial = sTemp
End Function

'************************************************************************************************
' 函数名　: SetRoleId
' 输　入　: id	---- 用户角色标识，整型
' 输　出　: (无)
' 功能描述: 用Session来保存用户角色标识
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-29
' 版　本　: 
'************************************************************************************************
Sub SetRoleId(id)
	Session("RoleID") = id
	''Response.Cookies("RoleID") = id
	''Response.Cookies("RoleID").Expires=#2010-1-1#
End Sub

'************************************************************************************************
' 函数名　: GetRoleId
' 输　入　: (无)
' 输　出　: 用户角色标识，整型
' 功能描述: 获取当前用户的角色标识
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-29
' 版　本　: 
'************************************************************************************************
Function GetRoleId()
	dim sTemp
	sTemp = Session("RoleID")
	''sTemp = Request.Cookies("RoleID")
	
	call DealEmptySessionValue(sTemp)
	GetRoleId = sTemp
End Function

'************************************************************************************************
' 函数名　: SetCoId
' 输　入　: id	---- 用户所在公司的标识，整型
' 输　出　: (无)
' 功能描述: 用Session来保存用户所在公司的标识
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-29
' 版　本　: 
'************************************************************************************************
Sub SetCoId(id)
	Session("co_id") = id
	''Response.Cookies("co_id") = id
	''Response.Cookies("co_id").Expires=#2010-1-1#
End Sub

'************************************************************************************************
' 函数名　: GetCoId
' 输　入　: (无)
' 输　出　: 用户所在公司的标识，整型
' 功能描述: 获取当前用户所在公司的标识
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-29
' 版　本　: 
'************************************************************************************************
Function GetCoId()
	dim sTemp
	sTemp = Session("co_id")
	''sTemp = Request.Cookies("co_id")
	
	call DealEmptySessionValue(sTemp)
	GetCoId = sTemp
End Function

'************************************************************************************************
' 函数名　: SetCoName
' 输　入　: str	---- 用户所在公司的名称，字符串类型
' 输　出　: (无)
' 功能描述: 用Session来保存用户所在公司的名称
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-29
' 版　本　: 
'************************************************************************************************
Sub SetCoName(str)
	Session("co_name") = str
	''Response.Cookies("co_name") = str
	''Response.Cookies("co_name").Expires=#2010-1-1#
End Sub

'************************************************************************************************
' 函数名　: GetCoName
' 输　入　: (无)
' 输　出　: 用户所在公司的名称，字符串类型
' 功能描述: 获取当前用户所在公司的名称
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-29
' 版　本　: 
'************************************************************************************************
Function GetCoName()
	dim sTemp
	sTemp = Session("co_name")
	''sTemp = Request.Cookies("co_name")

	call DealEmptySessionValue(sTemp)
	GetCoName = sTemp
End Function


'************************************************************************************************
' 函数名　: SetOnline
' 输　入　: (无)
' 输　出　: (无)
' 功能描述: 用Cookie来保存用户在岗状态为“on”
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-29
' 版　本　: 
'************************************************************************************************
Sub SetOnline()
	Session("online") = "on"
	''Response.Cookies("online") = "on"
	''Response.Cookies("online").Expires=#2010-1-1#
End Sub

'************************************************************************************************
' 函数名　: SetOffline
' 输　入　: (无)
' 输　出　: (无)
' 功能描述: 用Cookie来保存用户在岗状态为“off”
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-29
' 版　本　: 
'************************************************************************************************
Sub SetOffline()
	Session("online") = "off"
	''Response.Cookies("online") = "off"
	''Response.Cookies("online").Expires=#2010-1-1#
End Sub

'************************************************************************************************
' 函数名　: GetOnlineStatus
' 输　入　: (无)
' 输　出　: 用户在岗状态“on” 或“off”，字符串类型
' 功能描述: 获取当前用户的在岗状态，“on” 或 “off”
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-29
' 版　本　: 
'************************************************************************************************
Function GetOnlineStatus()
	dim sTemp
	sTemp = Session("online")
	''sTemp = Request.Cookies("online")

	call DealEmptySessionValue(sTemp)
	GetOnlineStatus = sTemp
End Function

'************************************************************************************************
' 函数名　: IsOnline
' 输　入　: (无)
' 输　出　: 用户在岗状态true 或false，布尔类型
' 功能描述: 获取当前用户的在岗状态，在岗返回true，离岗返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-29
' 版　本　: 
'************************************************************************************************
Function IsOnline()
	if GetOnlineStatus = "on" then
	''if Request.Cookies("online") = "on" then
		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#