<%Dim Cmtypeid,Cmgroupid,Cmcontactnum,Cmrecyclenum,Cmhirenum,Cminterviewnum,Cmexpertnum,Cmconsumenums,Cmsmsnum,Cmflag,Cmstartdate,Cmenddate
cmember_login=CheckStr(Request.Cookies(FRHRCMS)("user_login"))
cmember_type=CheckStr(Request.Cookies(FRHRCMS)("user_type"))
if cmember_login<>"" and cmember_type="cmember" then
	Set Cmrs=conn.execute("select Member_typeid,Member_groupid,Member_contactnum,Member_recyclenum,Member_hirenum,Member_interviewnum,Member_expertnum,Member_balance,Member_consumenums,Member_smsnum,Member_flag,Member_startdate,Member_enddate from job_Member where Member_login='"&cmember_login&"' and member_typeid=2")
		if not Cmrs.eof then
		Cmtypeid=Cmrs("Member_typeid")
		Cmgroupid=Cmrs("Member_groupid")
		Cmcontactnum=Cmrs("Member_contactnum") '查看简历数量
		Cmrecyclenum=Cmrs("Member_recyclenum") '回收站数量
		Cmhirenum=Cmrs("Member_hirenum") '职位数量
		Cminterviewnum=Cmrs("Member_interviewnum") '发邀请数量
		Cmexpertnum=Cmrs("Member_expertnum") '人才库人才数量
		Cmconsumenums=Cmrs("Member_consumenums") '可消费点数
		Cmbalance=Cmrs("Member_balance") '可消费点数
		Cmsmsnum=Cmrs("Member_smsnum") '可消费短信数
		Cmflag=Cmrs("Member_flag") '帐户是否已经审核
		Cmstartdate=Cmrs("Member_startdate")
		Cmenddate=Cmrs("Member_enddate")
		end if
		Cmrs.close
	set Cmrs=nothing
	Set Cfrs=conn.execute("select * from JOB_Group where Group_membertype="&Cmtypeid&" and Group_id="&Cmgroupid&"")
		Group_name=Cfrs("Group_name")
		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 1
			If Group_Climits(str)=0 Or Cmhirenum>0 Then CheckCFlag=True	
			Case 3
			If Group_Climits(str)=0 Or Cmexpertnum>0 Then CheckCFlag=True	
			Case 5
			If Group_Climits(str)=0 Or Cminterviewnum>0 Then CheckCFlag=True	
			Case 7
			If Group_Climits(str)=0 Or Cmrecyclenum>0 then CheckCFlag=True
			Case 9
			If Group_Climits(str)=0 Or Cmcontactnum>0 then CheckCFlag=True
			Case 13
			If Group_Climits(str)=0 Or Cmsmsnum>0 then CheckCFlag=True
			Case Else
			If Group_Climits(str)=1 Then CheckCFlag=True
		End Select
		Case "Cdianshus"
		if str>ubound(Group_Cdianshus) then  '防止下标越界
		Exit Function
		else
			If PayPoint(cmember_login,2,Group_Cdianshus(str),0)=True Then
			CheckCFlag=True
			else
			CheckCFlag=False
			end if
		end if
	End Select
end if
End Function
%>