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

%>