Asp基于Jmail组件的邮件发送

作者：郑州网站建设 2013/6/22 16:45:54 点击：来源：

Asp基于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=utf-8" /> 
<meta http-equiv="x-ua-compatible" content="ie=emulateie7" />  
<title>留言本</title> 
<link href="css/style.css" rel="stylesheet" type="text/css" /> 
</head> 
<body> 
<form action="SentEmail.Asp" method="post"> 
<input name="usm" type="text" id="usm" /> 
<h6>ENTER YOUR E-MAIL</h6> 
<input name="mail" type="text" id="mail" /> 
<h6>ENTER YOUR MESSAGE</h6> 
<textarea name="message" rows="" id="message"></textarea> 
<span><input name="" type="submit"  value="SUBMIT>>" style="border:0; width:60px; background:none; margin:0; text-align:right;"/> 
</span> 
</form> 
</body> 
</html>

Asp发送页面：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>    
<%    
Response.Charset="UTF-8" 
'接受前个页面提交的数据    
dim usm,mail,message    
usm=request.Form("usm")    
mail=request.Form("mail")    
message=request.Form("message")    
        
'================================配置区===================================    
dim fsmail,fsr,sjr,bt,nr,smtp,mm    
        
smtp="smtp.163.com" '用于发送邮件邮箱的smtp    
fsmail="test@163.com" '用于发送邮件的邮箱    
mm="abc123456" '用于发送邮件邮箱的密码    
fsr="爱音数码客户" ' 发送人名字    
sjr="test@qq.com" '收件人邮箱    
bt=usm+"的意见反馈" '发送的邮件主题    
nr="用户名："+usm+"<br/>邮箱："+mail+"<br/>留言内容："+message '发送的邮件内容    
'=========================================================================    
        
'发送邮件    
dim Send    
Send=SendEmail(fsmail,fsr,sjr,bt,nr,smtp,mm)    
If Send then    
response.write "<script>alert('发送成功！确认返回！');this.location.href='/';</script>"
Else
response.write "<script>alert('发送失败！请重试！');this.location.href='/';</script>"
End If
        
'SendEmail(发送人Email,发送者,收件人Email,邮件标题,邮件内容,smtp服务器地址,邮件服务器验证密码)    
Function SendEmail(frommail,fromname,tomail,subject,content,mailserver,ServerPass)    
    On Error Resume Next
    Set JMail = server.CreateObject("JMail.Message")     
    JMail.Logging = True 
    JMail.charset = "utf-8" '邮件编码，缺省为"US-ASCII"，最好加上，免得出现乱码    
    JMail.ContentType = "text/html" 
    JMail.From = frommail     
    JMail.FromName = fromname     
    JMail.AddRecipient tomail     
    JMail.Subject = subject     
    JMail.Priority = 3     
    JMail.Body = content     
    JMail.MailServerUserName = frommail    
    JMail.MailServerPassword = ServerPass     
    JMail.Send(mailserver)     
    Set JMail = Nothing 
    If Err.Number<>0 Then 
        SendEmail = False
    Else
        SendEmail = True
    End If
End Function
%>