利用jmail发送邮件，发现服务器资源被dllhost.exe大量占用，濒临死机！（附源码）

[lyjlee]

<%
'##SendMail from chinaft.com
'##use [e-mail]
'##return 1:success 0:fail
function SendMail(MailTo,Subject,Msg)
dim SMTPServer,SMTPUser ,SMTPPwd,JMail,strAppend
'收件人信息

SMTPServer = "chinaft.com" '//发送邮件服务器
SMTPUser = "webmaster" '//寄件人用户名
MailFrom = "[e-mail]" '//寄件人邮箱

'发送邮件
Set JMail= server.CreateObject ("JMail.Message")
JMail.Silent = true
JMail.Charset = "gb2312"
JMail.ContentType = "text/html"
JMail.From = MailFrom
JMail.FromName = "中国花木大世界" '//寄件人姓名
Msg=Msg+strAppend
JMail.Subject = Subject '//标题
JMail.AddRecipient MailTo '//地址
JMail.Body = Msg '//内容

'JMail.MailServerUserName = SMTPUser
'JMail.MailServerPassWord = SMTPPwd

JMail.Send SMTPServer

if err then
response.write err.description
err.clear
SendMail=0
else
SendMail=1
end if
JMail.Close
set JMail = nothing
end function
%>

[笑对最好]

注意看其它代碼，很有可能是進入了死循環！

[gshope]

Jmail有冲突，最有可能的是杀毒软件的实时监控，关闭它！