famail.asp

人才招聘系统,用asp做的

<!--#include file="../mail.asp"-->
<!--#include file="../CONFIG.ASP"-->
<%
sub sendemail()
Dim Jmail,m_strHTML,m_fso,m_tf,filepath
Set m_fso = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
filepath=server.mappath("2.htm")
Set m_tf = m_fso.OpenTextFile(filepath, 1)
m_strHTML = m_tf.ReadAll
m_strHTML =replace(m_strHTML,"html_title_f",title)
m_strHTML =replace(m_strHTML,"html_name_f",name)
m_strHTML =replace(m_strHTML,"html_jieshao_f",companyIntroduction)
m_strHTML =replace(m_strHTML,"html_companyname_f",companyName)
m_strHTML =replace(m_strHTML,"html_data_f",now())
m_strHTML =replace(m_strHTML,"html_web_f",web)
m_strHTML =replace(m_strHTML,"html_jpnav_f",username)
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 = "IJOB"
Jmail.Subject = "恭喜你！收到一封职位邀请信！"               
Jmail.AddRecipient  ""&email&"" 
Jmail.Body = m_strHTML
Jmail.Send(mailsmtp)  'smtp服务器地址 
Set Jmail=nothing
end sub
%>