你可以用IIS默认的 Smtp组件，只要默认SMTP服务开着就可以用了。下面是我写的一段函数，你可以直接调用：
'发送邮件CDOMail
'fromWho:发件人
'toWho:收件人
'Subject:主题
'Body:内容
'Author:xiaotian
'Last Update:2002-09-08
Function CDOMail(fromWho,toWho,Subject,Body)
Dim myMail
SET myMail=Server.CreateObject("CDONTS.Newmail")
myMail.MailFormat=1
myMail.BodyFormat=1
myMail.From=fromWho
myMail.To=toWho
myMail.Subject=Subject
myMail.Body=Body
myMail.Send
SET myMail=Nothing
END Function
