ASP+Jmail提交表单到指定邮箱方法
下面以申请友情链接为例，介绍利用ASP+JMail的方法将表单数据发送到指定邮箱。之所以选择JMail为例，是因为国内大部分主机都支持Jmail组件。
Html表单页面代码：
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>友情链接申请</title>
</head>
<body>
<form id="form" name="form" method="post" action="send.asp" >
<ul>
<h1>web技术收藏夹友情链接申请</h1>
<li><input type="text" name="pname" />网站名称</li>
<li><input type="text" name="pname" />网址</li>
<li><input type="text" name="pname" />您的邮箱</li>
<li><input type="text" name="pname" />链接关键词</li>
<li><textarea name="msgg" cols="60" rows="5" >网站介绍</textarea></li>
<Li><input name="submit" type="submit" value="提交" /></Li>
</ul>
</form>
</body>
</html>
send.asp页面代码：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv=refresh content=3;url='http://www.baidu.com'/>
<title>友情链接提交成功</title>
</head>
<!--定义3秒钟自动跳转-->
<script language="JavaScript">
function countDown(secs){
jump.innerText=secs;
if(--secs>0)
setTimeout( "countDown(" +secs+ ")" ,1000);
}
countDown(3);
</script>
<body>
<%
'下面是定义一些变量，是这些变量从表单页面获取信息
webname=Request.Form ("webname")
website=Request.Form ("website")
key=Request.Form ("key")
email=Request.Form ("email")
message=Request.Form ("message")
' 下面就是调用从表单页获取的信息，赋值到mess，&是连接符，vbcrlf表示换行回车:
mess = mess & "---------------Webmail表单开始-------------------" & vbcrlf
mess = mess & "网站名称:" & webname & vbcrlf
mess = mess & "网址:" & website & vbcrlf
mess = mess & "关键词:" & key & vbcrlf
mess = mess & "Email:" & email & vbcrlf
mess = mess & "网站介绍:" & message & vbcrlf
mess = mess & "---------------Webmail表单结束-------------------" & vbcrlf
' 下面是调用Jmail组件的部分，其中邮箱，密码填写正确的，否则发送不成功
Set JMail=Server.CreateObject("JMail.Message")
JMail.silent = true '则errorcode包含的是错误代码
JMail.Logging=True '是否使用日志
JMail.Charset="gb2312"
JMail.ContentType = "text/plain" 'text/html是超文本格式text/plain是文本格式
JMail.MailServerUserName = "[email protected]" '您的邮件服务器登录名
JMail.MailServerPassword = "xxxxxxx" '登录密码
JMail.From = "[email protected]" '发件人(要填合法正确邮箱才能发出去信件)
JMail.FromName = "阿泰ATai" '发件人姓名
JMail.AddRecipient "[email protected]" '收件人
JMail.Subject = "友情链接申请" '主题，
JMail.Body = mess '正文，
JMail.Send "smtp.baidu.com" 'smtp服务器地址
JMail.Priority=3 '1: 最高优先级.2:高 3:普通 4:低 5:最低
Set JMail=nothing
%>
<CENTER>
提交成功，我们会尽快审核回复，谢谢！
</CENTER>
<p align="center">--- < <font color=blue>3</font>秒钟后自动跳转至主页
<a href="http://www.baidu.com">(点击跳转) </a>> ---</p>
</body>
</html>