flagandexpend.asp

嘉缘人才6.0精简 ,很好用的人才系统

<%cmember_login=session(""&FRHRCMS&"user_login")
cmember_type=session(""&FRHRCMS&"user_type")
if cmember_login<>"" and cmember_type="cmember" then
	Set Cmrs=conn.execute("select * from job_Member where Member_login='"&cmember_login&"'")
		if not Cmrs.eof then
		Cmtypeid=Cmrs("Member_typeid")
		Cmgroupid=Cmrs("Member_groupid")
		Cmcontacts=Cmrs("Member_contacts") '查看简历数量
		Cmrecycle=Cmrs("Member_recycle") '回收站数量
		Cmhirenums=Cmrs("Member_hirenums") '职位数量
		Cmreceivenums=Cmrs("Member_receivenums") '收到简历数量
		Cminterviewnums=Cmrs("Member_interviewnums") '发邀请数量
		Cmexpertnums=Cmrs("Member_expertnums") '人才库人才数量
		Cmconsumenums=Cmrs("Member_consumenums") '可消费点数
		end if
		Cmrs.close
	set Cmrs=nothing
	Set Cfrs=conn.execute("select * from JOB_Group where Group_membertype="&Cmtypeid&" and Group_id="&Cmgroupid&"")
		Group_Climit=Cfrs("Group_Climit")
		Group_Climits=split(Group_Climit,",")
		Group_Cdianshu=Cfrs("Group_Cdianshu")
		Group_Cdianshus=split(Group_Cdianshu,",")
		Group_Cintegral=Cfrs("Group_Cintegral")
		Group_Cintegrals=split(Group_Cintegral,",")
		Cfrs.close
	set Cfrs=nothing
end if

'*************************************************
'函数名：CheckCFlag
'参  数：items 项目名称 
'返回值：True or False
'*************************************************
Function CheckCFlag(items,str)
CheckCFlag=False
if items="" or str="" then
	Exit Function
else
	Select Case items
		Case "Climits"
		Select Case str
			Case 0
			If Group_Climits(str)=1 Then
			CheckCFlag=True
			else
			CheckCFlag=False
			end if
			Case 1
			If Group_Climits(str)=0 Then
			CheckCFlag=True	
			else
				if Group_Climits(str)-Cmhirenums>0 then
				CheckCFlag=True
				end if
			end if
			Case 2
			If Group_Climits(str)=1 Then CheckCFlag=True
			Case 3
			If Group_Climits(str)=0 Then
			CheckCFlag=True	
			else
				if Group_Climits(str)-Cmexpertnums>0 then
				CheckCFlag=True
				end if
			end if
			Case 4
			If Group_Climits(str)=1 Then CheckCFlag=True
			Case 5
			If Group_Climits(str)=0 Then
			CheckCFlag=True	
			else
				if Group_Climits(str)-Cminterviewnums>0 then
				CheckCFlag=True
				end if
			end if
			Case 6
			If Group_Climits(str)=1 Then CheckCFlag=True
			Case 7
			If Group_Climits(str)=0 Then
			CheckCFlag=True	
			else
				if Group_Climits(str)-Cmrecycle>0 then
				CheckCFlag=True
				end if
			end if
			Case 8
			If Group_Climits(str)=1 Then
			CheckCFlag=True
			else
			CheckCFlag=False
			end if
			Case 9
			If Group_Climits(str)=0 Then
			CheckCFlag=True	
			else
				if Group_Climits(str)-Cmcontacts>0 then
				CheckCFlag=True
				else
				CheckCFlag=False
				end if
			end if
			Case 10
			If Group_Climits(str)=1 Then CheckCFlag=True
			Case 11
			If Group_Climits(str)=1 Then CheckCFlag=True
		End Select
		Case "Cdianshus"
			if Cmconsumenums-Group_Climits(str)>0 then
			CheckCFlag=True
			else
			CheckCFlag=False
			end if
		Case "Cintegrals"
	End Select
end if
End Function
%>