一、 邮件发送组件：微软自的的Smtp发信组件 CDONTS
a) 功能：可使用ASP程序发送邮件
b) 使用例程：
Set objMail = Server.CreateObject("CDONTS.NewMail") '!!!!!!!!!!!!!!!!!!!!!
objMail.To = "对方的Email地址" 'set To address
objMail.From ="此处填写用户的邮件地址,如:support@dns.com.cn" 'set 'From' address
objMail.Subject ="Hi" 'set the subject line
objMail.Body = “邮件内容” 'set the message content
objMail.Send 'and send the message
if err.number<>0 then Response.Write "Error:"+cstr(err.number)+err.description+chr(10)+"对不起，本服务器正在调试，无法发送"
Set objMail = Nothing 'then de

二、文件上传组件： AspSmartUpload 3.1 sitegalaxyupload 1.2
a) 功能：上传文件
b) 使用例程
set uploadform = Server.CreateObject("SiteGalaxyUpload.Form")
if uploadform.ContentDisposition <> "form-data" then
Response.Write "Bad request format"
Response.End
end if

if uploadform.Item("imagefile").MimeType <> "image" then
Response.Write "Image expected"
Response.End
end if

if uploadform.Item("imagefile").Size > 10240 then
Response.Write "Image size is limited to 10KB"
Response.End
end if

if uploadform("submitdisk") <> "" then '
save to disk
set fs = server.CreateObject("Scripting.FileSystemObject")
fn = server.mappath("/")& "\" & fs.GetFileName(uploadform("imagefile").FilePath)
set fs = Nothing
uploadform("imagefile").SaveAs(fn)