请高手给小弟讲一讲,最好能给源代码
先谢了
装个Jmail v4.3 ASP邮件组件
源代码为:
<%
on Error resume Next
dim conn
set conn=server.createobject("ADODB.connection")
conn.Open "Driver={microsoft access Driver (*.mdb)};Dbq=" & server.mappath("db.mdb")
dim sql
sql="select * from mailParam where id=1"
set rs=conn.execute(sql)
if rs("useMailFlag")=1 then
Dim msg,SendMailResult
Set msg = Server.Createobject("JMail.Message")
msg.Logging = true
msg.From = rs("mailFrom") '发送人地址
msg.FromName = rs("mailFromName") '发送人姓名
msg.AddRecipient Session("user_email") '接收人地址1
msg.Subject = "在线图书销售系统账单确认" '邮件主题
'msg.Body = "asp mail test 主体内容" '邮件内容
msg.HTMLBody = Session("mailHtmlBody")
msg.Charset = "gb2312"
msg.MailServerUserName = rs("mailServerUserName") '邮件服务器登录帐号的姓名
msg.MailServerPassword = rs("mailServerPassword") '邮件服务器登录帐号的密码
'response.Write(rs("smtpMailServer"))
'response.End()
msg.Send(rs("smtpMailServer")) '发送邮件到邮件服务器
set msg = nothing
if err then
SendMailResult="尝试发送邮件到" & Session("user_email") & "时失败,错误信息为:" & err.description & "。 (系统管理员用:请检查邮件服务器及本系统中的相应参数是否正确。)"
err.clear
else
SendMailResult="订单已成功发送到" & Session("user_email") & "。"
end if
response.write SendMailResult
end if
'释放资源
rs.close
set rs=nothing
conn.close
set conn=nothing
Session("mailHtmlBody")=""
%>
其它修改一下就可以了!!