d.asp

网上商城的设计与实现

<%
set jmail=server.createobject("jmail.message")
jmail.charset="gb2312"
jmail.silent=true
jmail.addrecipient "[e-mail]"
jmail.subject="sfsd"
jmail.appendtext "sdfsdfsd"
jmail.from="[e-mail]"
jmail.priority = "3"
jmail.MailServerUserName ="[e-mail]"
jmail.MailServerPassWord ="810812"
jmail.addattachment("d:\wecerr.txt")
err=jmail.send("smtp.163.com")
jmail.close
set jmail=nothing
if err then
Response.Write ("<script>alert('邮件内容已经发送到指定的邮箱地址了，请确定返回！');javascript:history.back(1)</script>")
else
response.write ("<script>alert('由于系统错误，邮件未能正常发送，请确定返回检查各项数据是否错误！');javascript:history.back(1)</script>")
end if

%>
hkh