resumesendoutmail.asp

人才招聘系统,用asp做的

<!--#include file="../mail.asp"-->
<!--#include file="../config.asp"-->
<%sub sendemail(chklogin_email)
dim m_strHTML,Jmail,m_fso,m_tf,filepath,jingyanshuoming,photo,bj1,bj2
Set m_fso = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
filepath=server.mappath("jianli1.htm")
Set m_tf = m_fso.OpenTextFile(filepath, 1)
m_strHTML = m_tf.ReadAll
m_strHTML =replace(m_strHTML,"html_name",rs("name"))
if rs("phototre")=0 then
m_strHTML =replace(m_strHTML,"html_phototre","")
else
photo="<a target=_blank href='"&web&"/person/zhaopian.asp?jobid="&rs("jobid")&"'><img border=""0"" src='"&web&"/person/img/zhaopian.gif'></a>"
m_strHTML =replace(m_strHTML,"html_phototre",photo)
end if
bj1=""&web&"/person/img/jl1.gif"
m_strHTML =replace(m_strHTML,"html_jl111112",bj1)
bj2=""&web&"/person/img/bj.gif"
m_strHTML =replace(m_strHTML,"html_imgbj",bj2)
m_strHTML =replace(m_strHTML,"html_pingjia",HTMLEncode(rs("pingjia")))
m_strHTML =replace(m_strHTML,"html_xgsj",now())
if rs("xingbie")=0 then
m_strHTML =replace(m_strHTML,"html_xingbie","女")
else
m_strHTML =replace(m_strHTML,"html_xingbie","男")
end if
m_strHTML =replace(m_strHTML,"web_html",web)
m_strHTML =replace(m_strHTML,"html_birthyear",rs("birthyear"))
m_strHTML =replace(m_strHTML,"html_birthmonth",rs("birthmonth"))
m_strHTML =replace(m_strHTML,"html_birthday",rs("birthday"))
if rs("hunyin")=0 then
m_strHTML =replace(m_strHTML,"html_hunyin","保密")
elseif rs("hunyin")=1 then
m_strHTML =replace(m_strHTML,"html_hunyin","未婚")
elseif rs("hunyin")=2 then
m_strHTML =replace(m_strHTML,"html_hunyin","已婚")
elseif rs("hunyin")=3 then
m_strHTML =replace(m_strHTML,"html_hunyin","离异")
end if
m_strHTML =replace(m_strHTML,"html_age",rs("age"))
m_strHTML =replace(m_strHTML,"html_minzu",rs("minzu"))
m_strHTML =replace(m_strHTML,"html_shengao",rs("shengao"))
if rs("xueli")=0 then
m_strHTML =replace(m_strHTML,"html_xueli","高中")
elseif rs("xueli")=1 then
m_strHTML =replace(m_strHTML,"html_xueli","中专")
elseif rs("xueli")=2 then
m_strHTML =replace(m_strHTML,"html_xueli","大专")
elseif rs("xueli")=3 then
m_strHTML =replace(m_strHTML,"html_xueli","本科")
elseif rs("xueli")=4 then
m_strHTML =replace(m_strHTML,"html_xueli","硕士")
elseif rs("xueli")=5 then
m_strHTML =replace(m_strHTML,"html_xueli","博士")
end if
m_strHTML =replace(m_strHTML,"html_huji",rs("huji"))
m_strHTML =replace(m_strHTML,"html_huji1",rs("huji1"))
if rs("l_OneAbility")=0 then
m_strHTML =replace(m_strHTML,"html_l_OneAbility","没有填写")
elseif rs("l_OneAbility")=1 then
m_strHTML =replace(m_strHTML,"html_l_OneAbility","熟练")
elseif rs("l_OneAbility")=2 then
m_strHTML =replace(m_strHTML,"html_l_OneAbility","一般")
elseif rs("l_OneAbility")=3 then
m_strHTML =replace(m_strHTML,"html_l_OneAbility","较差")
elseif rs("l_OneAbility")=4 then
m_strHTML =replace(m_strHTML,"html_l_OneAbility","差")
end if
if rs("mandarinLevel")=0 then
m_strHTML =replace(m_strHTML,"html_mandarinLevel","没有填写")
elseif rs("mandarinLevel")=1 then
m_strHTML =replace(m_strHTML,"html_mandarinLevel","熟练")
elseif rs("mandarinLevel")=2 then
m_strHTML =replace(m_strHTML,"html_mandarinLevel","一般")
elseif rs("mandarinLevel")=3 then
m_strHTML =replace(m_strHTML,"html_mandarinLevel","较差")
elseif rs("mandarinLevel")=4 then
m_strHTML =replace(m_strHTML,"html_mandarinLevel","差")
end if
if rs("dianaLevel")=0 then
m_strHTML =replace(m_strHTML,"html_dianaLevel","没有填写")
elseif rs("dianaLevel")=1 then
m_strHTML =replace(m_strHTML,"html_dianaLevel","熟练")
elseif rs("dianaLevel")=2 then
m_strHTML =replace(m_strHTML,"html_dianaLevel","一般")
elseif rs("dianaLevel")=3 then
m_strHTML =replace(m_strHTML,"html_dianaLevel","较差")
elseif rs("dianaLevel")=4 then
m_strHTML =replace(m_strHTML,"html_dianaLevel","差")
end if
m_strHTML =replace(m_strHTML,"html_xuexiao",rs("xuexiao"))
m_strHTML =replace(m_strHTML,"html_zhuanye",rs("zhuanye"))
if rs("jsjshuiping")=0 then
m_strHTML =replace(m_strHTML,"html_jsjshuiping","精通")
elseif rs("jsjshuiping")=1 then
m_strHTML =replace(m_strHTML,"html_jsjshuiping","熟练")
elseif rs("jsjshuiping")=2 then
m_strHTML =replace(m_strHTML,"html_jsjshuiping","一般")
end if
m_strHTML =replace(m_strHTML,"html_x_suozaidi",rs("x_suozaidi"))
m_strHTML =replace(m_strHTML,"html_jiaoyubeijing",HTMLEncode(rs("jiaoyubeijing")))
m_strHTML =replace(m_strHTML,"html_jingyan",rs("jingyan"))

if rs("workdata")<>"" then
m_strHTML =replace(m_strHTML,"html_workdata",rs("workdata"))
else
m_strHTML =replace(m_strHTML,"html_workdata","没有填写")
end if

if rs("jingyanshuoming")="" then
m_strHTML =replace(m_strHTML,"html_jing_yanshuoming","没有填写")
else
m_strHTML =replace(m_strHTML,"html_jing_yanshuoming",HTMLEncode(rs("jingyanshuoming")))
end if
if rs("jinengzhuanchang")="" then
m_strHTML =replace(m_strHTML,"html_jinengzhuanchang","没有填写")
else
m_strHTML =replace(m_strHTML,"html_jinengzhuanchang",HTMLEncode(rs("jinengzhuanchang")))
end if
if rs("fazhanfangxiang")="" then
m_strHTML =replace(m_strHTML,"html_fazhanfangxiang","没有填写")
else
m_strHTML =replace(m_strHTML,"html_fazhanfangxiang",HTMLEncode(rs("fazhanfangxiang")))
end if
m_strHTML =replace(m_strHTML,"html_selectedjob1",rs("selectedjob1"))
m_strHTML =replace(m_strHTML,"html_selectedjob2",rs("selectedjob2"))
m_strHTML =replace(m_strHTML,"html_selectedjob3",rs("selectedjob3"))
m_strHTML =replace(m_strHTML,"html_s_PWL1",rs("s_PWL1"))
m_strHTML =replace(m_strHTML,"html_s_PWL2",rs("s_PWL2"))
m_strHTML =replace(m_strHTML,"html_s_PWL3",rs("s_PWL3"))
if rs("daiyuyaoqiu")=0 then
m_strHTML =replace(m_strHTML,"html_daiyuyaoqiu","面议")
else
m_strHTML =replace(m_strHTML,"html_daiyuyaoqiu",rs("daiyuyaoqiu"))
end if
if rs("provideHouseNeeded")=1 then
m_strHTML =replace(m_strHTML,"html_provideHouseNeeded","要求提供住房")
else
m_strHTML =replace(m_strHTML,"html_provideHouseNeeded","")
end if
if rs("availOpts")=0 then
m_strHTML =replace(m_strHTML,"html_availOpts","随时到岗")
else
m_strHTML =replace(m_strHTML,"html_availOpts",rs("availOpts")&"月")
end if
m_strHTML =replace(m_strHTML,"html_dianhua",rs("dianhua"))
m_strHTML =replace(m_strHTML,"html_useremail",rs("useremail"))
m_strHTML =replace(m_strHTML,"html_gerenzhuye",rs("gerenzhuye"))
m_strHTML =replace(m_strHTML,"html_qq",rs("qq"))
Set m_tf = Nothing
Set m_fso = Nothing
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset = "gb2312"
JMail.ContentType = "text/html"
Jmail.Silent = true
Jmail.Priority = 3
Jmail.MailServerUserName = mailname  '有效电子邮件帐号
Jmail.MailServerPassword = mailpass  '有效电子邮件密码
Jmail.From = mailform    
Jmail.FromName = "猎才网"
Jmail.Subject = "应聘贵公司<"&zhiwei&">一职" 'email的标题                
Jmail.AddRecipient  ""&emailAddress&"" 
Jmail.Body = m_strHTML
Jmail.Send(mailsmtp)  'smtp服务器地址
Set Jmail=nothing
end sub%>