|
楼主 |
发表于 2009-4-20 10:47:27
|
显示全部楼层
../inc/Commoncode.asp,行 2725
修改简历时删除简历HTML页
\'********************************************************
Sub PersonResumeContentDelHtml(ResumeStr)
if not isNumeric(ResumeStr) then
exit Sub
end if
\'读取文章信息
set Prcdhrs=conn.execute(\"select resume_id,resume_announcedate from job_p_resume where resume_id=\"&ResumeStr&\"\")
resume_id=Prcdhrs(\"resume_id\")
resume_announcedate=Prcdhrs(\"resume_announcedate\")
Prcdhrs.close
set Prcdhrs=nothing
\'判断是否生成文件
if CreateHTML=1 then
\'判断文件是否存在
Set fso = Server.CreateObject(FR_HR_FSO)
HtmlFileName=Server.MapPath(\"\"&FormatLink(resume_announcedate,1,1,resume_id,0)&\"\")
if fso.fileexists(HtmlFileName) then
fso.deleteFile(HtmlFileName)
end if
Set fso = Nothing
end if
End Sub
少个s 我改成FormatLinks 就没事了 |
|