"hello",
"smtp.sina.com.cn",
"hello",
"PassWord")
if str=
"Y" then
response.
write(
"发送成功")
else
response.
write(
"发送失败!请重试!")
end if
function JmailSend(Subject,Body,isHtml,HtmlBody,MailTo,From,FromName,Smtp,Username,Password)
dim JmailMsg
set JmailMsg=
server.
createobject(
"jmail.message")
JmailMsg.mailserverusername=Username
JmailMsg.mailserverpassword=Password
JmailMsg.addrec
ipient MailTo
JmailMsg.from=From
JmailMsg.fromname=FromName
JmailMsg.
charset=
"gb2312"
JmailMsg.logging=
true
JmailMsg.silent=
true JmailMsg.subject=Subject
JmailMsg.body=Body
if isHtml=
true then JmailMsg.htmlbody=HtmlBody
if not JmailMsg.send(Smtp)
then
JmailSend=
"N"
else
JmailSend=
"Y"
end if
JmailMsg.
close
set JmailMsg=
nothing
end function %>