想在编号后面加个NEW标准，版主给看看我加的程序那里不对啊
'***************************************************'函数名：GetResumeList
'返回值：
'***************************************************
Function GetResumeList(nums,rows,sqlfield,flag,cnstatus,commands,groupid,usergroup,jobtype,order,target,ppic,bxpic,picw,pich,cityid)
Dim I,T,ResumeRS,ResumeSql,ResumeSqls,Resumefield
Resumefield=Split(sqlfield,"|")
Set ResumeRS = Server.CreateObject(FR_HR_RS)
ResumeSqls=""
If flag=1 then ResumeSqls=" and resume_flag=1"
If cnstatus=1 then ResumeSqls=ResumeSqls&" and resume_cnstatus=1"
If usergroup<>3 then ResumeSqls=ResumeSqls&" and resume_usergroup="&usergroup&""
If jobtype<>3 then ResumeSqls=ResumeSqls&" and resume_jobtype="&jobtype&""
If commands=1 then ResumeSqls=ResumeSqls&" and Member_logostatus=1 and Member_logoflag=1"
If ppic<>0 then ResumeSqls=ResumeSqls&" and Member_logo<>'nophoto.gif' and Member_logo<>'error.gif'"
If ppic<>0 and bxpic=1 then ResumeSqls=ResumeSqls&" and Member_logo<>'nophoto.gif' and Member_logo<>'error.gif'"
If groupid<>0 then ResumeSqls=ResumeSqls&" and Member_groupid="&groupid&""
If cityid="-1" and session(FRHRCMS&"cityid")<>"" then
cityid = clng(session(FRHRCMS&"cityid"))
else
cityid = 0
end if
if cityid<>0 then
ResumeSqls=ResumeSqls&" and (Member_provinceid="&cityid&" or Member_capitalid="&cityid&" or Member_cityid="&cityid&")"
end if
ResumeSqls=ResumeSqls&" order by "&order&",resume_id desc"
html="":htmls=""
If nums<>0 Then
ResumeSql = "Select top "&nums&"
resume_id,resume_sex,resume_birth,resume_edu,resume_position,resume_jobtype,resume_workadd,resume_announcedate,resume_pmember,resume_name,Member_logo from
JOB_Member,job_p_resume where Member_login=resume_pmember and resume_name is not null and Member_name is not null and resume_openness=0"&ResumeSqls&""
Else
ResumeSql = "Select
resume_id,resume_sex,resume_birth,resume_edu,resume_position,resume_jobtype,resume_workadd,resume_announcedate,resume_pmember,resume_name,Member_logo from
JOB_Member,job_p_resume where Member_login=resume_pmember and Member_name is not null and resume_openness=0"&ResumeSqls&""
End If
ResumeRS.open ResumeSql,conn,1,1
htmls=htmls&("<table width=100% border=0 align=center cellpadding=0 cellspacing=0 >"& vbCrLf)
htmls=htmls&("<tr>"& vbCrLf)
If ppic=0 Or ppic=1 then
For T=1 to rows
if ppic=1 then htmls=htmls&("<td></td>"& vbCrLf)
if Resumefield(0)=1 then htmls=htmls&("<td><b>编号</b></td>"& vbCrLf)
if Resumefield(1)=1 then htmls=htmls&("<td><b>用户名</b></td>"& vbCrLf)
if Resumefield(2)=1 then htmls=htmls&("<td><b>姓名</b></td>"& vbCrLf)
if Resumefield(3)=1 then htmls=htmls&("<td><b>性别</b></td>"& vbCrLf)
if Resumefield(4)=1 then htmls=htmls&("<td><b>出生日期</b></td>"& vbCrLf)
if Resumefield(5)=1 then htmls=htmls&("<td><b>学历</b></td>"& vbCrLf)
if Resumefield(6)=1 then htmls=htmls&("<td><b>意向工作职位</b></td>"& vbCrLf)
if Resumefield(7)=1 then htmls=htmls&("<td><b>性质</b></td>"& vbCrLf)
if Resumefield(8)=1 then htmls=htmls&("<td><b>意向工作地</b></td>"& vbCrLf)
next
htmls=htmls&("</tr><tr>"& vbCrLf)
End If
html=html&htmls
htmls=""
I=0
Do While Not ResumeRS.EOF
I=I+1
'tithtml鼠标提示
'tithtml="编号为"&ResumeRS("resume_id")&"的简历基本信息：<br>性别："&Hiresex(ResumeRS("resume_sex"))&"<br>出生日期："&ResumeRS("resume_birth")&"<br>学
历："&Hireedu(ResumeRS("resume_edu"))&"<br>意向职位："&Hireposition(ResumeRS("resume_position"),1)&"<br>意向工作类型："&Hiretype(ResumeRS("resume_jobtype"))&"<br>意向
工作地："&Hireworkadds(ResumeRS("resume_workadd"))&""
if ppic<>0 then'读取照片
if ResumeRS("Member_logo")<>"" and not Isnull(ResumeRS("Member_logo")) then
memberlogo=ResumeRS("Member_logo")
else
memberlogo="nophoto.gif"
end if
htmls=htmls&("<td><li class=perlistlogo><a href="&FormatLink(ResumeRS("resume_announcedate"),1,1,ResumeRS("resume_id"),0)&" target="&target&"><img
src="""&InstallDir&FR_UPFILES_DIR&"/Person/"&memberlogo&""" style=""padding:1px; border:1px #F0F0F0 solid;"" height="&pich&" width="&picw&" title="""&tithtml&"""
/></a></li></td>"& vbCrLf)
end if
if ppic=0 or ppic=1 then
if Resumefield(0)=1 then htmls=htmls&("<td><a href="&FormatLink(ResumeRS("resume_announcedate"),1,1,ResumeRS ("resume_id"),0)&" target="&target&"
title="""&tithtml&""">"&ResumeRS("resume_id")&"</a>"& vbCrLf)
if datediff("d",rs("Member_regdate"),date())<=7 then
htmls=htmls&("<img src='images/new.gif'width='21' height='9'>"& vbCrLf)
end
htmls=htmls&("</td>"& vbCrLf)
end
if Resumefield(1)=1 then htmls=htmls&("<td><a href="&FormatLink(ResumeRS("resume_announcedate"),1,1,ResumeRS("resume_id"),0)&" target="&target&"
title="""&tithtml&""">"&ResumeRS("resume_pmember")&"</a></td>"& vbCrLf)
if Resumefield(2)=1 then htmls=htmls&("<td><a href="&FormatLink(ResumeRS("resume_announcedate"),1,1,ResumeRS("resume_id"),0)&" target="&target&"
title="""&tithtml&""">"&ResumeRS("resume_name")&"</a></td>"& vbCrLf)
if Resumefield(3)=1 then htmls=htmls&("<td>"&Hiresex(ResumeRS("resume_sex"))&"</td>"& vbCrLf)
if Resumefield(4)=1 then htmls=htmls&("<td>"&ResumeRS("resume_birth")&"</td>"& vbCrLf)
if Resumefield(5)=1 then htmls=htmls&("<td>"&Hireedu(ResumeRS("resume_edu"))&"</td>"& vbCrLf)
if Resumefield(6)=1 then htmls=htmls&("<td><a href="&FormatLink(ResumeRS("resume_announcedate"),1,1,ResumeRS("resume_id"),0)&" target="&target&"
title="""&tithtml&""">"&Hireposition(ResumeRS("resume_position"),0)&"</a></td>"& vbCrLf)
if Resumefield(7)=1 then htmls=htmls&("<td>"&Hiretype(ResumeRS("resume_jobtype"))&"</td>"& vbCrLf)
if Resumefield(8)=1 then htmls=htmls&("<td>"&Hireworkadd(ResumeRS("resume_workadd"),2,1)&"</td>"& vbCrLf)
elseif ppic=2 then
htmls=htmls&("<td><div class=perlistinfo>"& vbCrLf)
if Resumefield(0)=1 then htmls=htmls&("<li><a href="&FormatLink(ResumeRS("resume_announcedate"),1,1,ResumeRS("resume_id"),0)&"
target="&target&" title="""&tithtml&""">"&ResumeRS("resume_id")&"</a></li>"& vbCrLf)
if Resumefield(1)=1 then htmls=htmls&("<li><a href="&FormatLink(ResumeRS("resume_announcedate"),1,1,ResumeRS("resume_id"),0)&"
target="&target&" title="""&tithtml&""">"&ResumeRS("resume_pmember")&"</a></li>"& vbCrLf)
if Resumefield(2)=1 then htmls=htmls&("<li><a href="&FormatLink(ResumeRS("resume_announcedate"),1,1,ResumeRS("resume_id"),0)&"
target="&target&" title="""&tithtml&""">"&ResumeRS("resume_name")&"</a></li>"& vbCrLf)
if Resumefield(3)=1 then htmls=htmls&("<li>"&Hiresex(ResumeRS("resume_sex"))&"</li>"& vbCrLf)
if Resumefield(4)=1 then htmls=htmls&("<li>"&ResumeRS("resume_birth")&"</li>"& vbCrLf)
if Resumefield(5)=1 then htmls=htmls&("<li>"&Hireedu(ResumeRS("resume_edu"))&"</li>"& vbCrLf)
if Resumefield(6)=1 then htmls=htmls&("<li><a href="&FormatLink(ResumeRS("resume_announcedate"),1,1,ResumeRS("resume_id"),0)&"
target="&target&" title="""&tithtml&""">"&Hireposition(ResumeRS("resume_position"),0)&"</a></li>"& vbCrLf)
if Resumefield(7)=1 then htmls=htmls&("<li>"&Hiretype(ResumeRS("resume_jobtype"))&"</li>"& vbCrLf)
if Resumefield(8)=1 then htmls=htmls&("<li>"&Hireworkadd(ResumeRS("resume_workadd"),2,1)&"</li>"& vbCrLf)
htmls=htmls&("</div></td>"& vbCrLf)
end if
html=html&htmls
htmls=""
if I mod rows=0 then
if I=ResumeRS.RecordCount then
html=html&("</tr>"& vbCrLf)
else
html=html&("</tr><tr>"& vbCrLf)
end if
end if
If numS<>0 Then
if I>=numS then exit do
End If
ResumeRS.MoveNext
Loop
ResumeRS.Close:Set ResumeRS=Nothing
html=html&("</table>"& vbCrLf)
GetResumeList=html:html="":htmls=""
End Function 您可以在官方的qq群同大家交流解决这个问题，官方因近期忙于修正PHP1.0版本已知BUG暂不为免费用户提供技术支持。qq群 69057959 这个我自己搞定了，
页:
[1]