大家都来看看，帮帮啊，(Jmail在线发邮件问题)
各拉高手，小弟网站目前出现了一个这样的问题，会员在线注册的事．会员通过自已的邮箱在我网站上注册，注册完后通过Jmail把会员注册的密码和注册成功的信发给会员，可现在点击注册后，提示注册成功，但会员邮箱里收不到那封邮件，而源程序里的数据库中注册的密码已经生成了．以前都能注册的．
那段源代码在下面,请教大家，是不是源代码的问题，如果有高手能帮改决的话，小弟不胜感激．
<%
Function SendMailHK_old( SendTo, SendFrom, ServerName, UserName, UserPass, Subject, Body)
'参数说明
' 接收人 发送人 发送服务器 用户名 密码 主题 内容
'Eg: SendMailHK "ohko@qq.com", "hktest@21cn.com", "smtp.21cn.com", "hktest", "testhk", "测试成功！", "这是来自JMail的测试邮件！"
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
jmail.logging = true '启用邮件日志
jmail.Charset = "GB2312"'邮件的文字编码为国标
jmail.ContentType = "text/html"'邮件的格式为HTML格式
jmail.AddRecipient SendTo '邮件收件人的地址
jmail.From = SendFrom '发件人的E-MAIL地址
jmail.MailServerUserName = UserName '登录邮件服务器所需的用户名
jmail.MailServerPassword = UserPass '登录邮件服务器所需的密码
jmail.Subject = Subject '邮件的标题
jmail.Body = Body '邮件的内容
jmail.Priority = 3 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Send(ServerName) '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
End Function
%>
<%
Function SendMailHK( SendTo, SendFrom, ServerName, UserName, UserPass, Subject, Body)
'参数说明
' 接收人 发送人 发送服务器 用户名 密码 主题 内容
'Eg: SendMailHK "ohko@qq.com", "hktest@21cn.com", "smtp.21cn.com", "hktest", "testhk", "测试成功！", "这是来自JMail的测试邮件！"
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
jmail.logging = true '启用邮件日志
jmail.Charset = "gb2312" '邮件的文字编码为国标
jmail.ContentType = "text/html"'邮件的格式为HTML格式
jmail.MailServerUserName = "administrator@1xin1yi.cn"'登录邮件服务器所需的用户名
jmail.MailServerPassword = "19700920" '登录邮件服务器所需的密码
jmail.From = "administrator@1xin1yi.cn" '发件人的E-MAIL地址
jmail.FromName = "administrator" '发件人姓名
jmail.AddRecipient SendTo '邮件收件人的地址
jmail.Subject = Subject '邮件的标题
jmail.Body = Body '邮件的内容
'jmail.Priority = 3 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Send("mail.1xin1yi.com")'执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
set jmail = nothing
End Function
%>
问题点数：20、回复次数：0Top
