英语论文3000字:关于JMAIL发信的问题

<%
dim my_mailto,email_bd,myjmail
'发信参数设置，当设置为1时需要将注释中带有◆的修改成您自己的参数值
'------------------------------------------------------
my_mailto = "1" '◆发信组件0为smtp,1为jmail
'------------------------------------------------------
'◆自动发信时邮件底部签名信息设置
'------------------------------------------------------
email_bd = site_name&"※客户服务中心※"
'------------------------------------------------------
'jmail发信调用方法jmail email,bt,nr
sub jmail(email,bt,nr)
set myjmail = server.CreateObject ("jmail.message") '创建对象
myjmail.Silent = true '一般不用改
myjmail.Charset = "GB2312" '邮件的文字编码为国标
myjmail.ContentType = "text/plain" 'text/html是超文本格式text/plain是文本格式
myjmail.Priority = 1 '设置邮件的优先级(1-5，1为最高)
myjmail.From = my_email '发信人邮箱
myjmail.Subject = bt '信件主题
myjmail.AddRecipient email '收信人信箱
myjmail.Body = nr '信件正文
myJMail.FromName =site_name '发件人名称(此处用网站名称名义)
myjmail.MailServerUserName = "sugel20@163.com" '◆邮件服务器登陆用户名(您的邮箱登陆名称)
myjmail.MailServerPassWord = "******" '◆邮件服务器登陆密码(您的邮箱登陆密码)
myjmail.Send("smtp.163.com") '◆邮件服务器地址(您的邮件服务器地址)
myjmail.Close '关闭对象
end sub
%>
以上是我的代码

========================
调用：
e_mail = "sugelan20@163.com"

html = "测试"

bt = "你的信封"

jmail e_mail,bt,html

在确认服务器已经安装JMAIL组件的情况下，死活发不出信件，到底怎么会事呢