求助 看下代码

<%
email_bd="会员注册提醒邮件<br>" ''(需要改)邮箱底部的文件说明可以写你网站的联系方式
sub jmail(email,bt,nr) ''调试发件代码
set vc_jmail = server.CreateObject ("jmail.message") ''创建对象
vc_jmail.Silent = true ''一般不用改
vc_jmail.Charset = "GB2312" ''邮件的文字编码为国标
vc_jmail.ContentType = "text/html" ''text/html是超文本格式text/plain是文本格式
vc_jmail.Priority = 3 ''设置邮件的优先级(1-5，1为最高)
vc_jmail.From = "shop@ch-shop.cn" ''(需要改)发信人邮箱
vc_jmail.Subject = bt ''信件主题
vc_jmail.AddRecipient email ''收信人信箱
vc_jmail.Body = nr ''信件正文
vc_jmail.FromName="*******" ''(需要改)发件人名称(此处用网站名称名义)
vc_jmail.MailServerUserName = "*******" ''(需要改)邮件服务器登陆用户名(您的邮箱登陆名称)
vc_jmail.MailServerPassWord = "*******" ''(需要改)邮件服务器登陆密码(您的邮箱登陆密码)
vc_jmail.Send("*******") ''(需要改)邮件服务器地址(您的邮件服务器地址)
vc_jmail.Close ''关闭对象
end sub
%>
不知道为什么总发不了。邮局正确

发件服务器支持smtp吗??

发送邮件需要有一个smtp邮件发送服务器。