<%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
%>作者: a415734243 时间: 2010-10-1 12:46
没人知道吗？顶下让知道的朋友帮忙解决下！作者: qinmo 时间: 2010-11-29 13:04
关注一下，楼下的来。作者: mvmv88 时间: 2011-3-4 20:02
关注下24行 Cmenddate=Cmrs("Member_enddate")
的数据是否存在作者: sukula 时间: 2015-11-19 11:02
助人为快乐之本，，，我为人人，人人为我。。。。