用ASP发送EMAIL

<%
function SendMail(ToAddress,subject,msg)
Dim Jmail
sender="cyc0005@163.com" '发送邮箱,需要根据实际修改
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset = "GB2312" '发送编码
jmail.ContentType = "text/html"
jmail.ISOEncodeHeaders ="False"
Jmail.Silent = true
Jmail.Priority = 3
Jmail.MailServerUserName = "cyc0005" '邮箱用户名,需要根据实际修改
Jmail.MailServerPassword = "123456" '邮箱密码,需要根据实际修改
Jmail.From = sender
Jmail.Subject = "你好"
Jmail.AddRecipient "123456@qq.com"
Jmail.Body="内容"
Jmail.Send("smtp.163.com") 'SMTP服务器,需要根据实际修改
response.write "发送成功！"
Set Jmail=nothing
end function

MailBody=trim(Request("MailBody"))
ToAddress=trim(("Tomail"))
subject=trim(Request("subject"))
sender=trim(Request("sender"))

set f=Server.CreateObject("scripting.filesystemobject")
set ff=f.opentextfile(server.mappath(".")&"\save.txt",8,true,0)
ff.writeline("收信人:"&ToAddress&"时间:"&date&" "&time&chr(13)+chr(10))
ff.writeline("信件内容:"&chr(13)&chr(10)&MailBody)
ff.close

mailbody=Mailbody&"发信时间:"&date&" "&time&chr(13)+chr(10)&"发信人ip地址:"&request.servervariables("REMOTE_HOST")&chr(10)+chr(10)+chr(10)&"感谢"
Call SendMail (ToAddress,Subject,MailBody)
%>