如何在classic asp页面读取web.config的mailsettings配置并发送邮件

Classic ASP没有内置读取.NET格式web.config的接口，不过web.config本质是标准XML文件，可以直接通过服务端XMLDOM组件读取，全程纯服务端VBScript实现，不需要客户端JS。

前提说明 #

你web.config里的mailSettings节点通常结构如下：

<configuration>
  <system.net>
    <mailSettings>
      <smtp from="sender@example.com">
        <network host="smtp.example.com" port="25" userName="smtp_user" password="smtp_pass" enableSsl="false" />
      </smtp>
    </mailSettings>
  </system.net>
</configuration>

实现代码（纯服务端VBScript） #

以下代码可同时完成配置读取+触发事件发送邮件的需求：

<%
Dim xmlDoc, rootNode, smtpNode, networkNode
Dim smtpHost, smtpPort, smtpUser, smtpPass, smtpFrom, enableSsl

' 初始化XMLDOM对象
Set xmlDoc = Server.CreateObject("Msxml2.DOMDocument.6.0")
xmlDoc.Async = False
xmlDoc.ValidateOnParse = False

' 加载站点根目录的web.config文件
If xmlDoc.Load(Server.MapPath("/web.config")) Then
    ' 定位mailSettings下的smtp和network节点
    Set smtpNode = xmlDoc.SelectSingleNode("//configuration/system.net/mailSettings/smtp")
    Set networkNode = smtpNode.SelectSingleNode("network")
    
    ' 读取配置项
    smtpFrom = smtpNode.GetAttribute("from")
    smtpHost = networkNode.GetAttribute("host")
    smtpPort = networkNode.GetAttribute("port")
    smtpUser = networkNode.GetAttribute("userName")
    smtpPass = networkNode.GetAttribute("password")
    enableSsl = CBool(networkNode.GetAttribute("enableSsl"))
    
    ' 触发指定事件时的发邮件逻辑
    Dim mailObj
    Set mailObj = Server.CreateObject("CDO.Message")
    mailObj.From = smtpFrom
    mailObj.To = "recipient@example.com" ' 替换为实际收件人
    mailObj.Subject = "事件触发邮件"
    mailObj.TextBody = "这是Classic ASP页面指定事件触发后发送的邮件"
    
    ' 配置CDO的SMTP参数
    With mailObj.Configuration.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpHost
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtpPort
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = smtpUser
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = smtpPass
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = enableSsl
        .Update
    End With
    
    mailObj.Send
    Set mailObj = Nothing
    
    ' 释放XML对象
    Set smtpNode = Nothing
    Set networkNode = Nothing
Else
    ' 加载web.config失败的处理逻辑
    Response.Write "读取邮件配置失败：" & xmlDoc.ParseError.Reason
End If

Set xmlDoc = Nothing
%>

注意事项 #

• 确保IIS应用池的运行身份有web.config文件的读取权限，避免加载失败
• IIS默认会禁止外部用户直接访问.config后缀的文件，不用担心配置泄露
• 建议使用Msxml2.DOMDocument.6.0版本，不要用旧版的DOMDocument组件，兼容性和安全性更好

内容的提问来源于stack exchange，提问作者Miguel Jackson