其實asp可以做很多事,只是大家不知道怎麼用而以。微軟為ASP提供了非常多的現成有用的組件,而這些組件卻沒有人知道,如用CDO.Message發送郵件。
什麼是CDO.Message?在winnt和win2k下發送郵件要用CDONTS.NewMail,CDONTS.NewMail組件是需要注冊的,很簡單,只要在服務器上運行命令行regsvr32 Cdonts.dll,在彈出的對話框中確定即可,使用CDONTS.NewMail服務還需安裝有IIS自帶的smtp。到了Windows2003,系統就沒有附帶Cdonts.dll文件了,只剩下一個類似的文件cDOSys.dll,當然這個文件在win2k也是有的(需要注冊組件),不過2003下好的是什麼呢?該組件無需手動注冊,系統已經自動注冊了。現在我們來看看如何使用該組件吧。
<%
Dim cm
Set cm=Server.CreateObject("CDO.Message")
'創建對象
cm.From="[email protected]"
'設置發信人的郵箱
cm.To="[email protected]"
'設置收信人的郵箱
cm.Subject="我發現一個可以在線訂閱rss的網站,以後不用再安裝什麼軟件了。"
'設定郵件的主題
'cm.TextBody="http://www.knowsky.com/rss/"
'上面是使用普通的文本格式發送郵件,只能是文字,不能支持Html,所以這裡不用
cm.HtmlBody="Online RSS Feeds Reader 是一個在線的RSS新聞閱讀系統。"&_
"無需下載安裝,只要注冊了之後你就可以擁有和軟件一樣強大功能的RSS在線訂閱聚合新聞的系統了。"&_
"不管你在任何地方,只要你能上網,你就能閱讀你喜歡的訂閱。"&_
"快去注冊吧:<a href=http://www.gbmad.net/rss/>http://www.gbmad.Net/rss/</a>"
'上面就是你構建的html正文,這樣發出的郵件就比只有文字的好看多了。不要說你不會Html吧
'cm.AddAttachment Server.MapPath("test.zip")
'如果有需要發送附件的話就用上面的方法把文件附加進去。
cm.Send
'最後當然是執行發送了
Set cm=Nothing
'發送成功後即時釋放對象
Response.Write("發送郵件成功。")
%>