求ASP在线发邮件的代码

ASP在线发邮件ASP在线发邮件
要做在线发邮件首先要该服务器支持jamil组件(现在的空间商基本上都支持)，如果在自己机子上测试的

时候到网上去找个jmail安装一个就行了，记住本程序只适用于4.2以后的版本！

<%
dim jmail

set jmail=server.createobject("Jmail.message")

jmail.silent=true

jmail.charset="gb2312"

jmail.fromname="发件人名称" '这里是发件人名称，可以从数据库或表单中取值

jmail.from="发件人邮箱" '这里是发件人邮箱，可以从数据库或表单中取值，但格式一定要正确

jmail.addrecipient "收件人邮箱地址","收件人姓名"

jmail.subject="发送邮件标题" '该值可以从数据库或表单中取值

jmail.mailserverusername="smtp服务器登录用户名" '邮件发送服务器登录名称

jmail.mailserverpassword="smtp服务器登录密码" '邮件发送服务器登录密码

jmail.maildomain="邮件服务器域名" '邮件发送服务器域名

sendok=jmail.send("smtp服务器名") 'smtp服务器名称

if sendok then

response.write "恭喜您，邮件发送成功"

else

response.write "对不起，邮件发送失败，可能由于