Asp环境下,用 C 写一个邮件发送组件如此简单[附源代码]

以前使用别人的组件，如 Jmail 等，总是这样那样的受到限制或者遇到问题，而且在受到限制和遇到问题的时候也不能得到最终的解决方案，现在好了，我们有了免费的开放源代码的邮件发送组件，希望能给大家带来提高的机会和使用的便利。
明日网 XingerAspMail 1.0.0.0 组件是用 C++ 语言编写的高效率基于 Windows 服务器 COM 接口的开放源代码的邮件发送组件，此组件代码简单易懂。
本组件版权归明日网（XingWorld.Net）所有，转载请著名出处。
主要功能：发送邮件
适用范围：Windows 服务器上运行的任何脚本程序、应用程序
注册方法：在组件所在目录下，使用 regsvr32 XingerAspMail.dll 即可
主要使用方法如下：

<%
'--------------------------------------------------
' XingerAspMail.Control 邮件发送组件使用示例
'--------------------------------------------------
dim xmail, bRet, strError

strError = ""
set xmail = Server.CreateObject("XingerAspMail.Control")
if IsObject(xmail) then
xmail.SmtpHost  = "smtp.263.net"                ' 配置 SMTP 邮件服务器
xmail.From      = "xing@263.net"                ' 邮件发送者地址
xmail.FromName  = "刘其星"                       ' 邮件发送人姓名
xmail.To        = "xing@263.net"                ' 发送目标
xmail.Subject   = "网站开通通知[明日自助]!"        ' 邮件标题
xmail.IsHtml    = true                          ' 邮件格式，是否使用 HTML 格式
xmail.Body      = "尊敬的XX：<br><br>    你好，" & _
"这里是<a href=http://tt15.com target=_blank>明日自助建站系统</a>" & _
"发出的通知邮件。<br><br>    " & _
"<font color=blue face=verdana>This mail was sent by " & _
"<a href=http://XingWorld.Net target=_blank>XingerAspMail!</a>" & _
"</font><br><br><br><br>"
xmail.Charset   = "gb2312"                      ' 字符集，默认是 "gb2312"
if xmail.Send(strError) then                    ' 发送邮件
response.write "successfully.."
else
response.write "failed: " & strError
end if
else
response.write "请先注册 XingerAspMail.dll 组件"
end if
set xmail = nothing

%>

获取 C 源代码和软件请访问：
http://www.xingworld.net/show.asp?root=3&branch=12&leaf=60&id=4019

如果您有任何意见或者建议请登陆明日网站（http://XingWorld.Net），我们会及时给予回答。