<%Dim Pmtypeid,Pmgroupid,Presumenums,Pmysendnums,Pmysendnum,Pmyinterviewnums,Pmyinterviewnum,Pmyfavoritenums,Pmyfavoritenum,Pletternums,Pmconsumenums,Pmcontactnum,Pmsmsnum,Pmflag,Pmstartdate,Pmenddate
pmember_login=CheckStr(Request.Cookies(FRHRCMS)("user_login"))
pmember_type=CheckStr(Request.Cookies(FRHRCMS)("user_type"))
if pmember_login<>"" and pmember_type="pmember" then
	Set Pmrs=conn.execute("select * from job_Member where Member_login='"&pmember_login&"'")
		if not Pmrs.eof then
		Pmtypeid=Pmrs("Member_typeid")
		Pmgroupid=Pmrs("Member_groupid")
		Presumenums=Pmrs("Member_resumenums")  '简历数量
		Pmysendnums=Pmrs("Member_mysendnums")  '职位申请数量
		Pmysendnum=Pmrs("Member_mysendnum")  '职位申请数量
		Pmyinterviewnums=Pmrs("Member_myinterviewnums")   '面试通知数量
		Pmyinterviewnum=Pmrs("Member_interviewnum")   '面试通知数量
		Pmyfavoritenums=Pmrs("Member_myfavoritenums")   '职位收藏数量
		Pmyfavoritenum=Pmrs("Member_myfavoritenum")   '职位收藏数量
		Pletternums=Pmrs("Member_letternums")   '求职信数量
		Pmconsumenums=Pmrs("Member_consumenums") '可消费点数
		Pmcontactnum=Pmrs("Member_contactnum") '查看职位数量
		Pmsmsnum=Pmrs("Member_smsnum") '可消费短信数
		Pmflag=Pmrs("Member_flag") '帐户是否已经审核
		Pmstartdate=Pmrs("Member_startdate")
		Pmenddate=Pmrs("Member_enddate")
		end if
		Pmrs.close
	set Pmrs=nothing
	if Pmtypeid<>0 then
		Set Pfrs=conn.execute("select * from JOB_Group where Group_membertype="&Pmtypeid&" and Group_id="&Pmgroupid&"")
		if not Pfrs.eof then
			Group_Plimit=Pfrs("Group_Plimit")
			Group_Plimits=split(Group_Plimit,",")
			Group_Pdianshu=Pfrs("Group_Pdianshu")
			Group_Pdianshus=split(Group_Pdianshu,",")
			Group_Pintegral=Pfrs("Group_Pintegral")
			Group_Pintegrals=split(Group_Pintegral,",")
		end if
			Pfrs.close
		set Pfrs=nothing
	end if
end if
'*************************************************
'函数名：CheckPFlag
'参  数：items 项目名称 
'返回值：True or False
'*************************************************
Function CheckPFlag(items,str)
CheckPFlag=False
if items="" or str="" then
	Exit Function
else
	Select Case items
		Case "Plimits"
		if str>ubound(Group_Plimits) then  '防止下标越界
		Exit Function
		else
		Select Case str
			Case 1
			If Group_Plimits(str)=0 Or Pmyfavoritenum>0 Then CheckPFlag=True
			Case 3
			If Group_Plimits(str)=0 Or Pmyinterviewnum>0 Then CheckPFlag=True
			Case 5
			If Group_Plimits(str)=0 Or Pmysendnum>0 Then CheckPFlag=True
			Case 6
			If Group_Plimits(str)=0 Then
			CheckPFlag=True	
			else
				if Clng(Group_Plimits(str))>Presumenums then
				CheckPFlag=True
				end if
			end if
			Case 7
			If Group_Plimits(str)=0 Then
			CheckPFlag=True	
			else
				if Clng(Group_Plimits(str))>Pletternums then
				CheckPFlag=True
				end if
			end if
			Case 11
			If Group_Plimits(str)=0 Or Pmcontactnum>0 then CheckPFlag=True
			Case 13
			If Group_Plimits(str)=0 Or Pmsmsnum>0 then CheckPFlag=True
			Case else
			If Group_Plimits(str)=1 Then CheckPFlag=True
		End Select
		end if
		Case "Pdianshus"
		if str>ubound(Group_Pdianshus) then  '防止下标越界
		Exit Function
		else
			If PayPoint(pmember_login,1,Group_Pdianshus(str),0)=True Then
			CheckPFlag=True
			else
			CheckPFlag=False
			end if
		end if
	End Select
end if
End Function
%>