ASP 发送邮件的代码 错在哪里?
<html>
<head>
<title>阔资网址导航—密码找回</title>
<body>
<%
dim conn,DBPath
dim rs1
dim sql1
dim username
dim lkz
dim connstr
username=request("username")
lkz="../db/m#lkz.mdb"
set conn=server.createobject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(lkz)
conn.open connstr
Set rs1= Server.CreateObject("ADODB.Recordset")
sql1="select * from [user] where [username] like '" & username & "' "
rs1.open sql1,conn,3,2
%>
<%if request("answer")<>rs1("answer") then%>
<font color=red class="titletext">问题回答错误!</font>
<%else%>
<%
Set jmail = Server.CreateObject("JMAIL.Message")
jmail.silent = true
jmail.Charset = "GB2312"
jmail.ContentType = "text"
jmail.AddRecipient "<%=rs1("email")%>"
jmail.From = "lvkuozi@tom.com"
jmail.MailServerUserName = "lvkuozi"
jmail.MailServerPassword = "1******"
jmail.Subject = "你好,这里是你在阔资网址导航找回的密码"
jmail.Body = "你的密码为:<%=rs1("password")%>"
jmail.Body = "阔资网络公司 网址导航部"
jmail.Body = "本邮件由服务器自动发送,请不要回复!"
jmail.Priority = 1
jmail.Send("smtp.tom.com")
jmail.Close()
set jmail = nothing
%>
<center>
邮件发送成功!
</center>
<%end if%>
</body>
</html>
参考答案:jmail.AddRecipient "<%=rs1("email")%>"
改成
jmail.AddRecipient rs1("email")
jmail.Body = "你的密码为:<%=rs1("password")%>"
改成
jmail.Body = "你的密码为:" & rs("password")