asp怎么发邮件，没见有个发信的选项啊！

ASP中发送邮件的函数
有一种方法是通过微软自带的CDONTS组件发邮件,用这种方法经常会出现没有权限或是发不出去的问题。

这里给大家介绍另一种方法：

<%
function SendMail(EmailAddress,Subject,Body)
'参数说明：
'EmailAddress 收信人地址
'Subject 邮件标题
'Body 邮件正文
dim oMsg,oFields
dim FromMail,SmtpServer,SmtpUsername,SmtpPassword
FromMail = "" '发信地址
SmtpServer = "" '发信地址smtp服务器
SmtpUsername = "" '发信地址smtp服务器用户名
SmtpPassword = "" '发信地址smtp服务器密码
on error resume next
set oMsg = server.createobject("CDO.Message")
oMsg.From = FromMail
oMsg.To = EmailAddress
oMsg.Subject = Subject
oMsg.HTMLBody = Body
set oFields = oMsg.Configuration.Fields
oFields("