ASP本身沒有發送郵件的能力但是如果你希望用ASP來發送EMAIL(例如你有一個消息只想讓那些在你的留言薄上留了言的上網者們知道你希望上網者在你的留言薄上填寫完成後你的留言簿便自動將該消息EMAIL給留言的上網者)那麼你需要安裝一個ASP組件並借助這些組件來幫你實現郵件的自動發送回復等工作
如果你的ASP及WEB數據庫的運行平台是IIS(Internet Information Server )你可以使用CDONTSDLL如果你已經缺省安裝過NT Option PackCDONTSDLL便存放在你機器的C:\\Winnt\\System\\目錄下面有了該組件我們還不能立即應用它在對它進行應用之前我們必須先完成組件的注冊那麼怎樣才能對CDONTSDLL進行注冊呢?我們可以在MSDOS方式下進入到CDONTSDLL所在的目錄C:\\Winnt\\System\\下輸入
c:\\winnt\\system>regsvr cdontsdll
(如果我們想將其御載可用指令 c:\\winnt\\system>regsvr/u cdontsdll)
在完成了組件的注冊後現在我們可以開始來解說如何對該組件的使用我們可以用下面簡單的腳本來給留言簿的添加自動發EMAIL的功能
< %
Dim MailObject
Dim Email
Email = Requestform(\Email\)
Set MailObject = ServerCreateObject(\CDONTSNewMail\)
Set myMail = ServerCreateObject(\CDONTSNewMail\)
myMailSubject = \歡迎您下次再來\
MailObjectSend \你本人的EMAIL\ Email \歡迎您下次再來給我們留言\ myMailSend
Set myMail=Nothing
%>
將上述的代碼COPY到manageasp 去一個簡單的通過ASP來發送EMAIL的留言簿就實現了也許你並不會滿意這種發EMAIL的方式理由很簡單因為為了答謝你的網友對你的支持你昨晚熬夜足足寫了幾千字(也許是我說少了)的感激話語今早一大早起來才發現原來上述的留言簿竟然未具備發附件的功能瞧這有多氣人的還好原來CDONTSDLL也可以用來發送附件事不宜遲我們立即就將其奉獻出來< %
Dim MailObject
Dim Email Email = Request(\Email\)
Set MailObject = ServerCreateObject(\CDONTSNewMail\)
att_file=\D:\\cwj\\GOasp\\guestbook\\emailtxt\
f_name=\emailtxt\
MailObjectFrom=\你本人的EMAIL\
MailObjectTo = Email
MailObjectSubject=\感謝您對我們工作的支持\
MailObjectBody=\感謝您對我們工作的支持\
MailObjectAttachFile att_filef_name
MailObjectSend
%>
只需將上述的代碼COPY下來用以取代第一個實例我們的留言簿便能實現自動發附件功能在這裡值得我們注意的是att_file=\D:\\cwj\\GOasp\\guestbook\\emailtxt\
必須是我們放附件的絕對路徑其實除了CDONTSDLL 組件外有許多由第三方廠商開發的組件你也可以使用例如據說連Intel公司也在用的ASPmail組件和似乎很受歡迎的w Jmail等等組件能受到大家的歡迎個中原由自是不言而宣的我們可以直接從以下地方去下載它們
ASPmail組件的下載地址
Jmail組件的下載地址
說實際的我的第一個用ASP來發送EMAIL的留言簿所用的組件就是ASPmail組件(自然是因為聽說連Intel公司也在使用它的緣故)既然使用過了自然對其會有所了解我想在這裡也不妨對ASPmail組件的使用作下簡單的介紹
應用ASPmail組件的方法其實也很簡單首先我們得先對該組件進行安裝安裝完畢後在ASPmail的安裝目錄下面會附有Sample實例我們只要對照著這些例子再稍加改動即可我在這裡提供了一個實例給大家並單獨將使用該組件時所涉及到的所有其它文件一並放在ASPmail目錄下面大家可以從下載區下載後再細作研究我在這裡只稍作一下簡單的說明
首先我們在manageasp中輸入<!#include file=\ASPmail/sendmailasp\ >並另存成manageasp而具體sendmailasp的腳本如下所示
< %
Set mailer = ServerCreateObject(\ASPMAILASPMailCtrl\)
%>
< %
name = Requestform(\name\)
email = Requestform(\email\)
subject = \歡迎您下次再來\
memo = \歡迎您下次再來留言!\
mailserver = \\
result = mailerSendMail(mailserver name email subject memo)
%>
這裡值得大家注意的是mailserver = \\ 中填寫的是SMTP服務器我在這裡用了世紀的SMTP的郵件服務器來作例子當然你也可以用其它地方的或你自己的(真是羨慕煞人了)就是有一點非常重要你必須填寫正確而且確信它們確實是開通了該服務至於我最後為什麼又放棄了使用該組件大家用過之後很可能如我者也不會在少數原因很簡單就因為該免費的組件會在你所發送的每一封信的下面討厭地放上幾句催你趕快去購買它的注冊版的文字
From:http://tw.wingwit.com/Article/program/ASP/201311/21702.html