如何在Classic ASP中生成错误报告电子邮件？

<%
On Error Resume Next

' 捕获错误
Err.Clear
' 这里是你的代码

If Err.Number <> 0 Then
    ' 错误发生，生成错误报告邮件
    Dim errorReport
    errorReport = "错误信息：" & Err.Description & vbCrLf
    errorReport = errorReport & "错误代码：" & Err.Number & vbCrLf
    errorReport = errorReport & "错误位置：" & Err.Source & vbCrLf
    errorReport = errorReport & "错误行号：" & Erl & vbCrLf

    ' 创建CDOSYS.Message对象
    Dim objMail
    Set objMail = Server.CreateObject("CDO.Message")

    ' 设置邮件属性
    objMail.From = "发件人邮箱"
    objMail.To = "收件人邮箱"
    objMail.Subject = "Classic ASP错误报告"
    objMail.TextBody = errorReport

    ' 配置SMTP服务器
    Dim objConfig
    Set objConfig = Server.CreateObject("CDO.Configuration")
    objConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTP服务器地址"
    objConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTP服务器端口号
    objConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' 使用SMTP服务发送邮件
    objConfig.Fields.Update

    ' 将配置应用到Message对象
    Set objMail.Configuration = objConfig

    ' 发送邮件
    objMail.Send

    ' 释放对象
    Set objMail = Nothing
    Set objConfig = Nothing
End If
%>