person_addresume.asp

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

rs("resume_school")=resume_school
rs("resume_graduate")=resume_graduate
rs("resume_tel")=resume_tel
rs("resume_chat")=resume_chat
rs("resume_email")=resume_email
rs("resume_url")=resume_url
rs("resume_address")=resume_address
rs("resume_post")=resume_post
rs("resume_sumup")=resume_sumup
rs("resume_appraise")=resume_appraise
rs("resume_personinfo")=1
rs("resume_announcedate")=now()
rs("resume_chinese")=1
rs("resume_openness")=0
if resume_template<>"" then
rs("resume_template")=resume_template
end if
if AdminResCheckReg=1 then '系统是否审核简历
	rs("resume_flag")=0
else
	if resume_usergroup=2 then  '高级简历未审核
		if rid="" then  '新建高级简历审核
			rs("resume_flag")=0
		end if
	else
		rs("resume_flag")=1
	end if
end if 
rs.update
rs.close
'如果是创建的第一份简历，将自动更新个人基本资料
Set rs1=conn.Execute("select * from JOB_member where member_login='"&pmember_login&"'")
	member_name=rs1("member_name")
	rs1.close
	Set rs1=Nothing
if member_name="" or isnull(member_name) then
	set rs1=server.createobject("ADODB.Recordset")
	sql="select * from JOB_member where member_login='"&pmember_login&"'"
	rs1.open sql,conn,1,3
	rs1("Member_name")=resume_name
	rs1("Member_sex")=resume_sex
	rs1("Member_birth")=resume_birth
	rs1("Member_cardtype")=resume_cardtype
	rs1("Member_idcard")=resume_idcard
	rs1("Member_marriage")=resume_marriage
	rs1("Member_polity")=resume_polity
	rs1("Member_hukouprovinceid")=resume_hukouprovinceid
	rs1("Member_hukoucapitalid")=resume_hukoucapitalid
	rs1("Member_hukoucityid")=resume_hukoucityid
	rs1("Member_provinceid")=resume_provinceid
	rs1("Member_capitalid")=resume_capitalid
	rs1("Member_cityid")=resume_cityid
	rs1("Member_edu")=resume_edu
	rs1("Member_tel")=resume_tel
	rs1("Member_chat")=resume_chat
	rs1("Member_url")=resume_url
	rs1("Member_address")=resume_address
	rs1("Member_post")=resume_post
	rs1.update
	rs1.close
	Set rs1=Nothing
end if
session(""&FRHRCMS&"resume_title")=resume_title
sql="select resume_id from job_p_resume where resume_title='"&resume_title&"' and resume_pmember='"&pmember_login&"'"
rs.open sql,conn,1,1
resume_id=rs("resume_id")
rs.close
set rs=nothing
response.redirect "person_addresume.asp?action=Addtwo&rid="&resume_id&""
response.end
End Sub
Sub Saveedu()
education_school=CheckStr(trim(request("school")))
if education_school="" then
 Response.Write ("<script language=JavaScript>{alert('错误：院校名称不能为空!');location.href = 'javascript:history.go(-1)';}</script>")
 Response.End
end if

set rs=server.createobject("ADODB.Recordset")
sql="select education_school from job_p_education where education_school='"&education_school&"' and education_resumeid="&rid
rs.open sql,conn,1,1
if not rs.eof then
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
 Response.Write ("<script language=JavaScript>{alert('错误：此教育记录已经添加！');location.href = 'javascript:history.go(-1)';}</script>")
 Response.End
end if
rs.close
set rs=nothing

education_detail=CheckStrbox(request("detail"))
If lenmix(education_detail)>=8000 Then 
response.write "<script language=javascript>alert('错误：专业描述太长了，要求不多于8000个字符！');location.href='javascript:history.back()';</script>"
response.end 
end if

education_startyear=cint(trim(request("start_year")))
education_startmonth=cint(trim(request("start_month")))
education_endyear=cint(trim(request("end_year")))
education_endmonth=cint(trim(request("end_month")))
education_mainprofession=cint(trim(request("mainprofession")))
education_subprofession=cint(trim(request("subprofession")))
education_edu=cint(trim(request("edu")))
'判断时间时候正确
if education_endyear<>0 then
	if education_startyear=<education_endyear then
		if education_endmonth<>0 then
			if education_startyear=education_endyear and education_startmonth>education_endmonth then
			response.write "<script language=javascript>alert('错误：教育时间填写不正确！');location.href='javascript:history.back()';</script>"
			response.end 
			end if
		end if
	else
	response.write "<script language=javascript>alert('错误：教育时间填写不正确！');location.href='javascript:history.back()';</script>"
	response.end 
	end if
end if
'把信息存入教育表education

sql="select * from job_p_education"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("education_startyear")=education_startyear
rs("education_startmonth")=education_startmonth
rs("education_endyear")=education_endyear
rs("education_endmonth")=education_endmonth
rs("education_school")=education_school
rs("education_mainprofession")=education_mainprofession
rs("education_subprofession")=education_subprofession
rs("education_edu")=education_edu
rs("education_detail")=education_detail
rs("education_pmember")=pmember_login
rs("education_resumeid")=rid
rs("education_language")=lang
rs.update

conn.execute("update job_p_resume set resume_education=1,resume_chinese=1,resume_announcedate="&FR_HR_Now&" where resume_id="&rid)
 
 response.redirect "person_addresume.asp?action=Addtwo&rid="&rid&""
 response.end
End Sub
Sub Savetrain()
train_train=CheckStr(trim(request("train")))
if train_train="" then
 Response.Write ("<script language=JavaScript>{alert('错误：培训机构不能为空!');location.href = 'javascript:history.go(-1)';}</script>")
 Response.End
end if
train_detail=CheckStrbox(request("detail"))
If lenmix(train_detail)>=8000 Then 
response.write "<script language=javascript>alert('错误：详细描述太长了，要求不多于8000个字符!！');location.href='javascript:history.back()';</script>"
response.end 
end if
train_startyear=cint(trim(request("start_year")))
train_startmonth=cint(trim(request("start_month")))
train_endyear=cint(trim(request("end_year")))
train_endmonth=cint(trim(request("end_month")))
train_address=CheckStr(trim(request("address")))
train_course=CheckStr(trim(request("course")))
train_certificate=CheckStr(trim(request("certificate")))
'判断时间时候正确
if train_endyear<>0 then
	if train_startyear=<train_endyear then
		if train_endmonth<>0 then
			if train_startyear=train_endyear and train_startmonth>train_endmonth then
			response.write "<script language=javascript>alert('错误：培训时间填写不正确！');location.href='javascript:history.back()';</script>"
			response.end 
			end if
		end if
	else
	response.write "<script language=javascript>alert('错误：培训时间填写不正确！');location.href='javascript:history.back()';</script>"
	response.end 
	end if
end if

sql="select * from job_p_training"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("train_startyear")=train_startyear
rs("train_startmonth")=train_startmonth
rs("train_endyear")=train_endyear
rs("train_endmonth")=train_endmonth
rs("train_train")=train_train
rs("train_address")=train_address
rs("train_course")=train_course
rs("train_certificate")=train_certificate
rs("train_detail")=train_detail
rs("train_pmember")=pmember_login
rs("train_resumeid")=rid
rs.update
rs.close
set rs=nothing
	conn.execute("update job_p_resume set resume_train=1,resume_chinese=1,resume_announcedate="&FR_HR_Now&" where resume_id="&rid)
 response.redirect "person_addresume.asp?action=Addtwo&rid="&rid&""
 response.end
End Sub
Sub Savelang()
lang_name=cint(trim(request("language")))
lang_master=cint(trim(request("master")))
set rs=server.CreateObject("adodb.recordset")
sql="select * from job_p_lang"
rs.open sql,conn,1,3
rs.addnew
rs("lang_name")=lang_name
rs("lang_master")=lang_master
rs("lang_pmember")=pmember_login
rs("lang_resumeid")=rid
rs.update
rs.close
set rs=nothing
conn.execute("update job_p_resume set resume_lang=1,resume_chinese=1,resume_announcedate="&FR_HR_Now&" where resume_id="&rid)
response.redirect "person_addresume.asp?action=Addtwo&rid="&rid&""
response.end
End Sub
Sub Savework()
work_comname=CheckStr(trim(request("comname")))
if work_comname="" then
 Response.Write ("<script language=JavaScript>{alert('错误：公司名称不能为空!');location.href = 'javascript:history.go(-1)';}</script>")
 Response.End
end if
work_introduce=CheckStrbox(request("introduce"))
If lenmix(work_introduce)>=8000 Then 
response.write "<script language=javascript>alert('错误：工作描述太长了，要求不多于8000个字符!！');location.href='javascript:history.back()';</script>"
response.end 
end if

work_startyear=cint(trim(request("start_year")))
work_startmonth=cint(trim(request("start_month")))
work_endyear=cint(trim(request("end_year")))
work_endmonth=cint(trim(request("end_month")))
work_ecoclass=cint(trim(request("ecoclass")))
work_trade=cint(trim(request("trade")))
work_dept=CheckStr(trim(request("dept")))
work_mainposition=cint(trim(request("mainposition")))
work_subposition=cint(trim(request("subposition")))
work_place=CheckStr(trim(request("place")))
work_leftreason=CheckStr(trim(request("leftreason")))
'判断时间时候正确
if work_endyear<>0 then
	if work_startyear=<work_endyear then
		if work_endmonth<>0 then
			if work_startyear=work_endyear and work_startmonth>work_endmonth then
			response.write "<script language=javascript>alert('错误：工作时间填写不正确！');location.href='javascript:history.back()';</script>"
			response.end 
			end if
		end if
	else
	response.write "<script language=javascript>alert('错误：工作时间填写不正确！');location.href='javascript:history.back()';</script>"
	response.end 
	end if
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from job_p_work"
rs.open sql,conn,1,3
rs.addnew
rs("work_startyear")=work_startyear
rs("work_startmonth")=work_startmonth
rs("work_endyear")=work_endyear
rs("work_endmonth")=work_endmonth
rs("work_comname")=work_comname
rs("work_ecoclass")=work_ecoclass
rs("work_trade")=work_trade
rs("work_dept")=work_dept
rs("work_mainposition")=work_mainposition
rs("work_subposition")=work_subposition
rs("work_place")=work_place
rs("work_introduce")=work_introduce
rs("work_leftreason")=work_leftreason
rs("work_pmember")=pmember_login
rs("work_resumeid")=rid
rs.update
rs.close
'  --把简历表中的相应语言版本的工作经验标志置1，同时更新时间
conn.execute("update job_p_resume set resume_work=1,resume_chinese=1,resume_announcedate="&FR_HR_Now&" where resume_id="&rid)
response.redirect "person_addresume.asp?action=Addthree&rid="&rid&""
response.end
End Sub
Sub Deledu()
education_id=clng(trim(request("id")))
rid=clng(trim(request("rid")))

conn.execute("delete from job_p_education where education_id="&education_id)

conn.execute("update job_p_resume set resume_announcedate="&FR_HR_Now&"  where resume_id="&rid)
set rs=server.CreateObject("adodb.recordset")
sql="select * from job_p_education where education_resumeid="&rid
rs.open sql,conn,1,1
educationnum=rs.RecordCount
rs.close
set rs=nothing
if educationnum=0 then
        conn.execute("update job_p_resume set resume_education=0 where resume_id="&rid)
end if
 response.redirect "person_addresume.asp?action=Addtwo&rid="&rid&""
 response.end
End Sub
Sub Deltrain()
train_id=clng(trim(request("id")))
rid=clng(trim(request("rid")))
conn.execute("delete from job_p_training where train_id="&train_id)
'  --更新简历时间
conn.execute("update job_p_resume set resume_announcedate="&FR_HR_Now&" where resume_id="&rid)
   '--判断是否还有该语言版本的培训经历,若没有则把该简历中的相应语言版本的培训标志置0
set rs=server.CreateObject("adodb.recordset")
sql="select * from job_p_training where train_resumeid="&rid&""
rs.open sql,conn,1,1
trainnum=rs.RecordCount
rs.close
set rs=nothing
    if trainnum=0 then
         conn.execute("update job_p_resume set resume_train=0 where resume_id="&rid)       
    end if
 response.redirect "person_addresume.asp?action=Addtwo&rid="&rid&""
 response.end
End Sub
Sub Dellang()
lang_id=clng(trim(request("id")))
rid=clng(trim(request("rid")))

'   --删除语言水平
    conn.execute("delete from job_p_lang where lang_id="&lang_id)
'   --更新简历时间
    conn.execute("update job_p_resume set resume_announcedate="&FR_HR_Now&"  where resume_id="&rid)
'   --判断是否还有该语言版本的语言水平,若没有则把该简历中的相应语言版本的语言标志置0
	sql="select * from job_p_lang where lang_resumeid="&rid&""
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,1
	langnum=rs.RecordCount
    rs.close
	set rs=nothing
	if langnum=0 then
         conn.execute("update job_p_resume set resume_lang=0 where resume_id="&rid)
    end if
 response.redirect "person_addresume.asp?acti