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 "对不起，邮件发送失败，可能由于服务器登录设置配置不当造成或填写的信息有误，请

确认正确后再进行发送！"

end if

%>

上面就是利用jmail发送邮件的主要代码

下面还有一个html页面就是用来填写发送信息的

小妖——在线发送邮件发件人名称：

发件人邮箱：

收件人名称：

收件人邮箱：

邮件标题：

邮件内容：

已经全部结束了，上面那个发送邮件的asp代码中的注释部分可以用表单值代替，不过最好写成先把

值赋给一个变量，如：title=request.form("title"),然后把注释部份用title代替，一但用了变变量赋

值时就要把jmail.subject=""这对引号去掉了可以直接写成jmail.subject=title就OK了。