请帮我看看为什么会收不到邮件 页面没有提示错误 就是收不到邮件 是不是哪里没有填全或是有错误填写。
兄弟们帮我们检查检查。
问题现解决了
<!--#include file="conn1.asp"-->
<%
dim username,usermail
username=trim(request.form("username"))
usermail=trim(request.form("usermail"))
set rs=server.createobject("adodb.recordset")
sql="select * from FORUM_MEMBERS where M_name='"&username&"' and M_email='"&usermail&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write("<script language=javascript>alert('对不起，你输入的资料不正确，不能找回失去的密码！');window.location.href='reg_pwd.asp';</script>")
response.end
else
'---------------------------------------------------------------------------------------------------------------------
Call SendMail(mailtoaddress,mailtoname,subject,mailbody,fromname,mailfrom)
Function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom)
'函数参数说明（收件人地址,收件人姓名(可选),主题,邮件内容,发件人姓名(可选),发件人地址）
MailtoAddress=rs("m_email")
mailtoname=rs("m_firstname")
subject="你在三人行注册的账号信息"
mailbody="你的账号为"&rs("M_name")&"密码为"&rs("M_password")
fromname="管理员"
mailfrom="你的邮箱@163.com"
'on error resume next
Dim JMail,MailServer,Flag
Set JMail=Server.CreateObject("JMail.Message")
If err Then
SendMail = False
err.clear
Exit Function
End if
JMail.Charset="gb2312" '邮件编码
JMail.silent=True
JMail.ContentType = "text/html" '邮件正文格式
MailServer = "smtp.163.com" '用来发送邮件的SMTP服务器
JMail.MailServerUserName = "你的邮箱名" '登录用户名
JMail.MailServerPassWord = "你的密码" '登录密码
JMail.MailDomain = "163.com" '域名（如果用"name@domain.com"这样的用户名登录时，请指明domain.com），可选
JMail.AddRecipient MailtoAddress,MailtoName '收信人邮箱和收信人名称
JMail.Subject = Subject '主题
JMail.AppendHTML(MailBody)
JMail.FromName = FromName '发信人姓名
JMail.From = MailFrom '发信人Email
JMail.Priority = 3 '邮件等级，1为加急，3为普通，5为低级
Flag=JMail.Send(MailServer)
If Flag Then
SendMail=True
Else
SendMail=False
End If
JMail.Close
Set JMail=nothing
End Function
'------------------------------------------------------------------------------------------------------------------------------------------------
'代码没有问题，下载jmail组件就可以了
response.write("<script language=javascript>alert('密码已发出，请进入你的注册的邮箱查收');window.close();</script>")
response.end
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
[此贴子已经被作者于2006-4-27 15:39:38编辑过]
