ADODB.Field 错误 '800a0bcd' 帮看下错误

a415734243 · 发表于 2010-9-30 15:05:01

ADODB.Field 错误 '800a0bcd'

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

D:\FREEHOST\LANYURCW\WEB\MEMBER\../company/flagandexpend.asp，行 24

网页代码：

<%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
%>