郵件組件CDONTS 功能簡(jiǎn)介

ASP本身沒(méi)有發(fā)送郵件的能力，但如果希望用ASP來(lái)發(fā)送E-MAIL（例如：你有一個(gè)消息，希望在此頁(yè)被訪問(wèn)后自動(dòng)將該消息E-MAIL給留言的上網(wǎng)者），那么你需要安裝一個(gè)ASP組件。并借助這些組件來(lái)幫你實(shí)現(xiàn)郵件的自動(dòng)發(fā)送、回復(fù)等工作，我們可以提供CDONTS組件。
CDONTS.DLL 在注冊(cè)之后，可以使用ASP發(fā)送E-MAIL，來(lái)實(shí)現(xiàn)動(dòng)態(tài)的EMAIL通信，這經(jīng)常在定單與電子商務(wù)中應(yīng)用。
在IIS5下，可以使用CDONTS。它容易使用的并且性能良好。
步驟如下：
1、檢查你是否安裝了SMTP服務(wù)。OPTION PACK 缺省安裝時(shí)是包括SMTP服務(wù)的。SMTP服務(wù)安裝后，在 的system32目下會(huì)有一個(gè)文件叫CDONTS.DLL。
2、你可以用下面的簡(jiǎn)單腳本通過(guò)ASP發(fā)送E-MAIL
set newmail=server.CreateObject("cdonts.newmail")
newmail.From="webmaster@www.yourdomain.com"
newmail.To ="test@test.com"
newmail.Subject="主題"
newmail.Body = "asp mail"
newmail.BodyFormat =0
newmail.MailFormat =0
newmail.Send

response.write "send ok!"
set newmail=nothing
3、發(fā)送附件
CDONTS 的 一 個(gè) 常 用 特 性 是 用 來(lái) 在 E-MAIL 中 發(fā) 送 附 件 。 代 碼 也 不 難 寫(xiě) 。
CDONTS發(fā)信組件注意事項(xiàng)
由于萬(wàn)網(wǎng)企業(yè)郵局具有反垃圾郵件，包括防偽裝郵件功能，因此可能根據(jù)發(fā)信人來(lái)源地址屏蔽了您的網(wǎng)站郵件投遞。建議您將發(fā)信腳本中發(fā)件人地址（From參數(shù)）設(shè)置為：xxx@www.yourdomain.com，這樣可以保證正常投遞郵件。

文件上傳組件Upload功能簡(jiǎn)介

本Upload組件目前只支持單文件上傳，可以為任意擴(kuò)展名，可以在上傳后保存名字。上傳文件的最大大小為1M，需要在程序中指定上傳目錄并由我們工程師添加權(quán)限。支持上傳文件名修改和使用變量文件名。

1、 上傳界面

產(chǎn)品名稱(chēng)：

上傳產(chǎn)品圖片 (只能上傳gif,jpg文件)

2、 上傳程序testup.asp
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
VirPath="productimg" 'productimg 是你的站點(diǎn)上的一個(gè)存儲(chǔ)HTTP上傳文件的目錄
RealPath=Server.MapPath(VirPath) & "\"
Set objupload=Server.CreateObject("hichinafso.Upload")
objupload.Maxsize=1000000 '設(shè)定最大上傳值
objupload.Path=RealPath '設(shè)定上傳的目錄
objupload.Upload '調(diào)用UPload方法,獲取表單中提交的所有數(shù)據(jù)
filevalue=objUpload.Form("FileName") '獲取文件名
filename=objUpload.filename("FileName")
fieldvalue=objUpload.Form("fieldname") '取得fieldname表單項(xiàng)的值
'response.write filename
'response.end

if trim(filename)="" then
filename="no_pro_img.gif" '指向一個(gè)“無(wú)產(chǎn)品”的圖片
else
extendname=right(filename,3)
if extendname="jpg" or extendname="gif" then
abcd=1
else
response.write "錯(cuò)誤!請(qǐng)輸入圖片的擴(kuò)展名gif或jpg"
response.end
end if
varfilename=FileName
objUpload.Save "FileName",2,varfilename
' 這里使用單獨(dú)保存的方法：
' "FileName" 是HTML的表單上傳FILE名稱(chēng)，本例就是
' 2代表覆蓋，如果在SAVE之前，先調(diào)用文件組件判斷此目錄下是否有同名文件則不會(huì)出現(xiàn)覆蓋' 現(xiàn)象，或者保證新文件名為唯一標(biāo)識(shí)
' "aaFAN.gif" 是我們上傳后修改的文件名。

'objUpload.SaveAll
end if

end if
response.write "上傳文件成功！

" & "你上傳的產(chǎn)品名稱(chēng)為:" & fieldvalue & "
文件名為:" & filename & ""
%>