asp發送郵件源碼
『壹』 asp jmail 發送郵件代碼
<%
Function getmail(Sname,Spass,Smail,Smtp,Rmail)
On error resume next
Dim JMail, contentId,gmail
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 郵件字元集,默認為"US-ASCII"
' JMail.ISOEncodeHeaders = False ' 是否進行ISO編碼,默認為True
' 發送者信息(可用變數方式賦值)
JMail.From = Smail ' 發送者地址
JMail.FromName = "Name" ' 發送者姓名
JMail.Subject = "郵件主題" ' 郵件主題
gmail=""
' 身份驗證
JMail.MailServerUserName = Sname ' 身份驗證的用戶名
JMail.MailServerPassword = Spass ' 身份驗證的密碼
' 設置優先順序,范圍從1到5,越大的優先順序越高,3為普通
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' 加入一個收件人【變數email:收件人地址】可以同一語句重復加入多個
JMail.AddRecipient("[email protected]")
'JMail.AddRecipient(Rmail)
' 加入附件【變數filename:附件文件的絕對地址,確保用戶IUSR_機器名有訪問的許可權】
' 【參數設置是(True)否(False)為Inline方式】
'contentId = JMail.AddAttachment (Server.MapPath("jmail.asp"), True)
' 郵件主體(HTML(注意信件內鏈接附件的方式))
JMail.HTMLBody = "<html><head><META content=zh-cn http-equiv=Content-Language><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><style type=text/css>A:link { FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION: underline}BODY {FONT-SIZE: 9pt} --></style></head><body><font color=red>Mail</font><br><font color=green>郵件正文</font><br><b>郵件正文</b>< /body></html>"
' 郵件主體(文本部分)
JMail.Body = "我們的郵件採用了HTML格式,但是您的郵件查看軟體可能不支持。。。郵件正文,郵件正文,郵件正文"
' 發送【調用格式:objJMail.Send([username:password@]SMTPServerAddress[:Port])】
JMail.Send(Smtp)
' 關閉並清除對象
JMail.Close()
Set JMail = Nothing
if err.number<>0 then
response.write "發送發送失敗!"
gmail="發送發送失敗!"
else
response.write "郵件發送成功!"
gmail="郵件發送成功!"
end If
End Function
%>
<%=getmail("用戶名","密碼","發送郵箱","smtp.163.com","收件人")%>-----
『貳』 ASP郵件收發系統源代碼
'****************************************************
'函數名:SendMail
'作 用:用Jmail組件發送郵件
'參 數:ServerAddress ----伺服器地址
' AddRecipient ----收信人地址
' Subject ----主題
' Body ----信件內容
' Sender ----發信人地址
'****************************************************
function SendMail(MailServerAddress,AddRecipient,Subject,Body,Sender,MailFrom)
on error resume next
Dim JMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
if err then
SendMail= "<br><li>沒有安裝JMail組件</li>"
err.clear
exit function
end if
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress=MailServerAddress
JMail.AddRecipient=AddRecipient
JMail.Subject=Subject
JMail.Body=MailBody
JMail.Sender=Sender
JMail.From = MailFrom
JMail.Priority=1
JMail.Execute
Set JMail=nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end function
『叄』 ASP實現在提交表單到資料庫的同時發郵件通知 本人不懂asp 希望給個修改一下就可以的源代碼
這個我有,我剛好做過的,一直在使用,只是你的使用環境是區域網還是外網使用?
你在提交表單的同時將表單數據使用郵件代碼發送出來。
<%
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From ="**** <這里填你的郵件地址>"
objCDOMail.To =ren '收件人
objCDOMail.Cc =email '抄送
objCDOMail.Subject =bn '主題
objCDOMail.Body =memo 』內容
objCDOMail.BodyFormat =1 '郵件格式
objCDOMail.MailFormat =1
objCDOMail.Send
Set objCDOMail = Nothing
%>
我的使用環境是區域網,使用的內部郵箱,可以用的。
你的伺服器要開通 CDONTS服務,方法如下:
Windows xp, Windows 2003 默認沒有附帶CDONTS.DLL的,必須手動安裝,你可以從Windows 2000的system32中得到該文件.下載cdonts.dll這個文件,拷到windows的system32目錄下然後在開始運行里輸入regsvr32 cdonts.dll回車注冊,注冊成功cdonts組件就可以使用了
安裝方法:
Step1: 將該文件拷貝至 %SystemRoot%\System32 下;
Step2: 開始 -> 運行 -> Regsvr32 cdonts.dll;
Step3: 確認
cdonts文件我已上傳,你直接下載使用就好。
『肆』 在線表單後以郵件形式發送到郵箱里(ASP)
我有一個現成的,請參考www.kingstar.biz/kingstar/about.asp?articleId=10&type=6&tabid=1
要程序也有。請加分吧
『伍』 急需,無組件把網頁上的表單全部內容發送到郵箱里的ASP源碼
需要伺服器支持的,jmail組件很方便,你可以研究用用,無組件的呵呵,按照道理是不可能的吧
『陸』 易語言如何寫網頁ASP發信,麻煩提供源碼和必要的解釋
這個源碼可以用的。
親測不錯,有些 空間雖然支持asp,但為防止這類東西有相關的程式,比如3v這類空間就是不可以的,免費空間大都不靠譜,善意提醒一下,這不是我要回答的
這裡面有asp文件 和.e源碼文件,非常通俗,懂點易語言就可以明白。
主要就是兩個編輯框 代表 發送的信息,一個編輯框 代表asp的網址,還有一個發信按鈕。
不要做壞事哦
『柒』 Jmail的用法 .求源代碼 :html php 或asp (用戶提交郵箱地址後。jmai插件l就回復一份准備好的郵件給他)
資料庫操作我就不寫了...
下面是JMAIL發件代碼.
Set JMail = Server.CreateObject("JMail.Message")
'是否將信頭編碼成iso-8859-1字元集. 預設是True
JMail.ISOEncodeHeaders = False
'如果JMail.silent設置為true,ErrorCode包含的是錯誤代碼
JMail.Silent = True
'設置標題和內容編碼,如果標題有中文,必須設定編碼為gb2312
JMail.Charset = "gb2312"
'JMail.ContentType = "text/html" '如果發內嵌附件一定要注釋掉這行,重要!
JMail.From = FEmail ' 發送者地址
JMail.FromName = FName ' 發送者姓名
JMail.MailServerUserName =FUserName ' 身份驗證的用戶名
JMail.MailServerPassword = FPassword ' 身份驗證的密碼
'加入新的收件人
JMail.AddRecipient FRecipient, FRecipientName
JMail.Subject = username&"的付款信息"
JMail.Body = "購買服務."
JMail.appendHTML "<br></body></html>"
'如果對方信箱不支持HTML格式郵件,我們仍需要給他一個友善的提示
' But as not all mailreaders are capable of showing HTML emails
' we will also add a standard text body
JMail.Body = "Too bad you can't read HTML-mail."
JMail.appendText " There would have been a nice picture for you"
JMail.Send(SServer)
JMail.Close()
Set JMail = Nothing
'Send to admin
Set JMail = Server.CreateObject("JMail.Message")
'是否將信頭編碼成iso-8859-1字元集. 預設是True
JMail.ISOEncodeHeaders = True
'如果JMail.silent設置為true,ErrorCode包含的是錯誤代碼
JMail.Silent = True
'設置標題和內容編碼,如果標題有中文,必須設定編碼為gb2312
JMail.Charset = "gb2312"
'JMail.ContentType = "text/html" '如果發內嵌附件一定要注釋掉這行,重要!
JMail.From = FEmail ' 發送者地址
JMail.FromName = FName ' 發送者姓名
JMail.MailServerUserName =FUserName ' 身份驗證的用戶名
JMail.MailServerPassword = FPassword ' 身份驗證的密碼
'加入新的收件人
JMail.AddRecipient FRecipient_Admin, FRecipientName_Admin
JMail.Subject = username&"的付款信息"
JMail.Body = "購買服務."
JMail.appendHTML "<br></body></html>"
'如果對方信箱不支持HTML格式郵件,我們仍需要給他一個友善的提示
' But as not all mailreaders are capable of showing HTML emails
' we will also add a standard text body
JMail.Body = "Too bad you can't read HTML-mail."
JMail.appendText " There would have been a nice picture for you"
JMail.Send(SServer)
JMail.Close()
Set JMail = Nothing
先把郵件伺服器用OE調通
『捌』 請問有沒有asp.net c# email發送的類的源碼
using System.Collections.Generic;
using System.Text;
using System.Net.Mail;
using System.Net;namespace cn.SwordYang
...{
public class MailSender
...{
protected int emailPriority=1; //郵件緊急程度
protected string mailFormat="text"; //郵件類型
protected string fromMail; //發件人郵箱地址
protected string toMail; //收件人地址
protected string subject; //郵件主題
protected string body; //郵件內容
protected Encoding mailEncoding=Encoding.GetEncoding(936); //郵件編碼
//protected int isLocalSmtp=2; //是否啟用本地smtp伺服器
protected string smtpServer;
protected int smtpPort=25;
//protected int isSmtpAuthenticate=1; //是否需要驗證
protected bool isSSL=true; //是否需要SSL認證
protected string mailUserName; //用戶名
protected string mailPassWord; //密碼
屬性#region 屬性
/**//// <summary>
/// 郵件緊急程度,0為低,1為普通,2為高
/// </summary>
public int EmailPriority
...{
get...{return emailPriority;}
set...{emailPriority=value;}} /**//// <summary>
/// 郵件類型 text為純文本型,html為Html編碼型
/// </summary>
public string MailFormat
...{
get...{return mailFormat;}
set...{mailFormat=value;}}
/**//// <summary>
/// 發件人郵箱地址
/// </summary>
public string FromMail
...{
get ...{ return fromMail; }
set ...{ fromMail = value; }}
/**//// <summary>
/// 收件人地址
/// </summary>
public string ToMail
...{
get ...{ return toMail; }
set ...{ toMail = value; }}
/**//// <summary>
/// 郵件主題
/// </summary>
public string Subject
...{
get ...{ return subject; }
set ...{ subject = value; }}/**//// <summary>
/// 郵件內容
/// </summary>
public string Body
...{
get ...{ return body; }
set ...{ body = value; }}
/**//// <summary>
/// 郵件編碼格式
/// </summary>
public Encoding MailEncoding
...{
get...{return mailEncoding;}
set...{mailEncoding=value;}
}
/**//// <summary>
/// 是否啟用本地smtp伺服器,1為啟用本地,2為啟用遠程smtp,默認為2
/// </summary>
/**//*
public int IsLocalSmtp
{
get{return isLocalSmtp;}
set{isLocalSmtp=value;}
}
*//**//// <summary>
/// 遠程stmp伺服器名稱
/// </summary>
public string SmtpServer
...{
get ...{ return smtpServer; }
set ...{ smtpServer = value; }
}/**//// <summary>
/// 遠程stmp伺服器埠號
/// </summary>
public int SmtpPort
...{
get ...{ return smtpPort; }
set ...{ smtpPort = value; }
}/**//*
* /// <summary>
/// 是否需要驗證 0為不驗證,1為BASIC驗證,2為NTLM驗證方式
/// </summary>
public int IsSmtpAuthenticate
{
get { return isSmtpAuthenticate; }
set { isSmtpAuthenticate = value; }
}*/
/**//// <summary>
/// 是否需要SSL認證
/// </summary>
public bool IsSSL
...{
get ...{ return isSSL; }
set ...{ isSSL = value; }
}/**//// <summary>
/// 郵箱用戶名
/// </summary>
public string MailUserName
...{
get ...{ return mailUserName; }
set ...{ mailUserName = value; }}/**//// <summary>
/// 郵箱密碼
/// </summary>public string MailPassWord
...{
get ...{ return mailPassWord; }
set ...{ mailPassWord = value; }
} #endregion
public string SendEmail()
...{ try
...{
MailMessage msg = new MailMessage(fromMail,toMail); msg.Subject = subject;
msg.Body = body;
msg.BodyEncoding =mailEncoding;
//是否啟用html
switch (mailFormat)
...{
case "html":
msg.IsBodyHtml=true;
break;
case "text":
msg.IsBodyHtml=false;
break;
} switch (emailPriority)
...{
case 2:
msg.Priority = MailPriority.High;
break;
case 1:
msg.Priority = MailPriority.Normal;
break;
case 0:
msg.Priority = MailPriority.Low;
break;
} SmtpClient SC=new SmtpClient(smtpServer,smtpPort);
if (!String.IsNullOrEmpty(mailUserName) && !String.IsNullOrEmpty(mailPassWord))
...{
SC.Credentials = new NetworkCredential(mailUserName, mailPassWord);
} SC.EnableSsl=isSSL;
SC.Send(msg);
return "Send Mail OK";}
catch (Exception ex)
...{
return ex.Message;
}
}
}
}
『玖』 我下載了一個ASP源代碼,不知道怎麼用
IIS伺服器組建攻略
詳細介紹頁面:
http://www.qqread.com/net-knowledge/v690125081.html
http://www.qqread.com/net-knowledge/v690125081.html
http://www.qqread.com/net-knowledge/v690125081.html
介紹:
IIS(Internet Information Server,互聯網信息服務)是一種Web(網頁)服務組件,其中包括Web伺服器、FTP伺服器、NNTP伺服器和SMTP伺服器,分別用於網頁瀏覽、文件傳輸、新聞服務和郵件發送等方面,
它使得在網路(包括互聯網和區域網)上發布信息成了一件很容易的事。本文將向你講述Windows 2000高級伺服器版中自帶的IIS 5.0的配置和管理方法。
准備篇 IIS的添加和運行
一、IIS的添加
請進入「控制面板」,依次選「添加/刪除程序→添加/刪除Windows組件」,將「Internet信息服務(IIS)」前的小鉤去掉(如有),重新勾選中後按提示操作即可完成IIS組件的添加。用這種方法添加的IIS組件中將包括Web、FTP、NNTP和SMTP等全部四項服務。
二、IIS的運行
當IIS添加成功之後,再進入「開始→程序→管理工具→Internet服務管理器」以打開IIS管理器,對於有「已停止」字樣的服務,均在其上單擊右鍵,選「啟動」來開啟。
第一篇 IIS之Web伺服器
一、建立第一個Web站點
................................
................................
................................
................................
................................