<%
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.Charset = "GB2312" '邮件的文字编码
jmail.ContentType = "text/html" '邮件的格式为HTML格式或纯文本
jmail.AddRecipient "hksyw@126.com" '邮件收件人的地址
jmail.From = "hksyw@126.com" '发件人的E-MAIL地址
jmail.MailServerUserName = "hksyw" '登录邮件服务器的用户名 (您的邮件地址)
jmail.MailServerPassword = "******" '登录邮件服务器的密码 (您的邮件密码)
jmail.Subject = "test1" '邮件的标题
jmail.Body = "测试一下，看看能不能收到？？这是我做的一个邮件发送的小东东。" '邮件的内容
jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
if jmail.Send("smtp.126.com") then
response.Write "<script>alert('发送成功')</script>"
else
response.Write "<script>alert('发送失败')</script>"
end if
jmail.Close()
set jmail = nothing
%>