flagandexpend.asp

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

<%dim Pmtypeid,Pmgroupid,Presumenums,Pmysendnums,Pmyinterviewnums,Pmyfavoritenums,Pletternums
pmember_login=session(""&FRHRCMS&"user_login")
pmember_type=session(""&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")  '职位申请数量
		Pmyinterviewnums=Pmrs("Member_myinterviewnums")   '面试通知数量
		Pmyfavoritenums=Pmrs("Member_myfavoritenums")   '职位收藏数量
		Pletternums=Pmrs("Member_letternums")   '求职信数量
		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 0
			If Group_Plimits(str)=1 Then
			CheckPFlag=True
			else
			CheckPFlag=False
			end if
			Case 1
			If Group_Plimits(str)=0 Then
			CheckPFlag=True	
			else
				if cint(Group_Plimits(str))>Pmyfavoritenums then
				CheckPFlag=True
				end if
			end if
			Case 2
			If Group_Plimits(str)=1 Then CheckPFlag=True
			Case 3
			If Group_Plimits(str)=0 Then
			CheckPFlag=True	
			else
				if cint(Group_Plimits(str))>Pmyinterviewnums then
				CheckPFlag=True
				end if
			end if
			Case 4
			If Group_Plimits(str)=1 Then CheckPFlag=True
			Case 5
			If Group_Plimits(str)=0 Then
			CheckPFlag=True	
			else
				if cint(Group_Plimits(str))>Pmysendnums then
				CheckPFlag=True
				end if
			end if
			Case 6
			If Group_Plimits(str)=0 Then
			CheckPFlag=True	
			else
				if cint(Group_Plimits(str))>Presumenums then
				CheckPFlag=True
				end if
			end if
			Case 7
			If Group_Plimits(str)=0 Then
			CheckPFlag=True	
			else
				if cint(Group_Plimits(str))>Pletternums then
				CheckPFlag=True
				end if
			end if
			Case 8
			If Group_Plimits(str)=1 Then CheckPFlag=True
			Case 9
			If Group_Plimits(str)=1 Then CheckPFlag=True
		End Select
		end if
		Case "Pdianshus"
		
		Case "Pintegrals"
	End Select
end if
End Function
%>