孙振超's Show

很多空间服务商在虚拟主机中，并没有安装JMail组件，所以在我们需要有人留言就有邮件提醒的时候，没办法让网站发邮件提醒站长。
其实简单点，在IIS中，给网站设置STMP邮件，就可以。但我们很多时候租赁的虚拟主机是不允许设置IIS的。
这时候，只要在网站根目录上传一个 web.config 文件就可以开启IIS的 SMTP邮件 服务。
这样，我们就可以让网页留言板有人留言的时候，同时发邮件到你的信箱提醒你了。

web.config文件的代码如下：

<?xml version="1.0" encoding="UTF-8"?>
<configuration>
  <system.webServer>
    <defaultDocument>
      <files>
        <clear />
        <add value="index.asp" />
        <add value="index.htm" />
        <add value="index.html" />
        <add value="Default.htm" />
        <add value="Default.asp" />
        <add value="default.aspx" />
        <add value="iisstart.htm" />
      </files>
    </defaultDocument>
  </system.webServer>
    <system.net>
        <mailSettings>
            <smtp from="发邮件的邮件地址">
                <network defaultCredentials="false" host="你的邮件SMTP发送服务器地址" password="密码或客户端授权码" port="邮件发送服务器的端口号" userName="用户名" />
            </smtp>
        </mailSettings>
    </system.net>
</configuration>

别人发送留言的提交页面，增加如下代码（我的是ASP语言，你们的网页脚本如果不一样，请用AI转换一下）：

' 发送邮件
    Set objMail = Server.CreateObject("CDO.Message")
    objMail.Subject = "邮件标题"
    objMail.From = "发邮件的邮箱地址"
    objMail.To = "接收邮件的邮箱地址"
    objMail.TextBody = “留言内容”

    ' 配置CDO对象
    With objMail.Configuration.Fields
        ' 指定通过网络（SMTP服务器）发送邮件
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        ' 设置SMTP服务器地址
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "你的邮件SMTP发送服务器地址"
        ' 设置SMTP服务器端口
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 端口号
        ' 是否启用SSL加密
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        ' 启用身份验证
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        ' 设置发件人的用户名
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "发邮件的邮箱地址"
        ' 设置发件人的密码
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "密码或授权码"
        .Update
    End With

    objMail.Send

    Set objMail = Nothing