cnresume_view.asp

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

<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/Commoncode.asp"-->
<!--#include file="../inc/CommonFunction.asp"-->
<%
Cid=1
rid=trim(request("rid"))
If isNumeric(rid)=False Then
	Response.Write("<script>alert(""参数不全！"");window.close();</script>")
	Response.End()
End If
set rs=server.createobject("ADODB.Recordset")
sql="select * from job_p_resume where resume_id="&rid
rs.open sql,conn,1,1
if rs.eof then
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing
  response.write "此条信息已不存在，或已被删除！"
  response.end
else
conn.execute("update job_p_resume set resume_visitnum=resume_visitnum+1 where resume_id="&rid&"")
TemplateID=rs("resume_template")
end if
rs.close
set rs=nothing

'读取模版内容
if TemplateID<>"" then
set rs=conn.execute("select * from JOB_Template where ChannelID="&Cid&" and TemplateID="&TemplateID&" and IsDefaultInProject="&FR_HR_True&" and typeid=13")
else
set rs=conn.execute("select * from JOB_Template where ChannelID="&Cid&" and IsDefault="&FR_HR_True&" and IsDefaultInProject="&FR_HR_True&" and typeid=13")
end if
if not rs.eof then
TemplateContent=rs("TemplateContent")
else
Response.Write("读取模板出错!")
Response.end()
end if
rs.close
set rs=nothing
html=TemplateContent
html=ReplaceLableFlag(ReplaceAllLabel(html))
html=ResumeContentHtml(html,rid)
Response.Write(CreateHTMLReplace(html))
conn.close
set conn=nothing
%>