sendemail.asp

人才招聘系统,用asp做的

<!--#include file="../mail.asp"-->
<%
sub sendemail()
Dim Jmail,m_strHTML,m_fso,m_tf,filepath
Set m_fso = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
filepath=server.mappath("1.htm")
Set m_tf = m_fso.OpenTextFile(filepath, 1)
m_strHTML = m_tf.ReadAll
m_strHTML =replace(m_strHTML,"html_UserName",username)

m_strHTML =replace(m_strHTML,"html_i_job_logo",logo)
m_strHTML =replace(m_strHTML,"html_i_job_web",web)

m_strHTML =replace(m_strHTML,"html_Password",Password1)
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 = "猎才网 www.s169.com 个人帐号!"               
Jmail.AddRecipient  ""&useremail&"" 
Jmail.Body = m_strHTML
Jmail.Send(mailsmtp)  'smtp服务器地址 
Set Jmail=nothing
end sub
%>