利用CDONTS发送邮件的ASP函数

&lt;!--#include file=&quot;include/common.asp&quot;--&gt;<br>
&lt;!--#include file=&quot;include/func.asp&quot;--&gt;<br>
&lt;%<br>
'Last Updated By Recon On 05/14/2001<br>
'On Error Resume Next<br>
<br>
'利用CDONTS组件在Win2k上发送邮件<br>
<br>
'发送普通邮件<br>
SendMail &quot;admin@ny.com&quot;, &quot;iamchn@263.net&quot;, &quot;Normal Mail!&quot;, &quot;Please check the attatchment!&quot;, 2, 0, &quot;C:/Love.txt&quot;<br>
<br>
'发送HTML邮件<br>
Dim m_fso, m_tf<br>
Dim m_strHTML<br>
<br>
Set m_fso&nbsp;&nbsp;&nbsp;&nbsp;= Server.CreateObject(&quot;SCRIPTING.FILESYSTEMOBJECT&quot;)<br>
Set m_tf&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;= m_fso.OpenTextFile(&quot;C:/Mail.htm&quot;, 1)<br>
m_strHTML = m_tf.ReadAll<br>
<br>
'Write m_strHTML<br>
Set m_tf&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;= Nothing<br>
Set m_fso&nbsp;&nbsp;&nbsp;&nbsp;= Nothing<br>
<br>
SendMail &quot;admin@ny.com&quot;, &quot;iamchn@263.net&quot;, &quot;HTML Mail!&quot;, m_strHTML, 2, 1, Null<br>
<br>
'参数说明<br>
'strFrom&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 发件人Email<br>
'strTo&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 收件人Email<br>
'strSubject&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 信件主题<br>
'strBody&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 信件正文<br>
'lngImportance&nbsp;&nbsp;&nbsp;&nbsp;: 信件重要性<br>
'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 0 - 低重要性<br>
'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 0 - 中等重要性（默认）<br>
'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 0 - 高重要性<br>
'lngAType&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 信件格式<br>
'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 为1时将邮件正文作为HTML（此时可以发送HTML邮件）<br>
'strAttach&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 附件的路径<br>
Sub SendMail(strFrom, strTo, strSubject, strBody, lngImportance, lngAType, strAttach)<br>
&nbsp;&nbsp;&nbsp;&nbsp;Dim objMail<br>
<br>
&nbsp;&nbsp;&nbsp;&nbsp;Set objMail = Server.CreateObject(&quot;CDONTS.NEWMAIL&quot;)<br>
&nbsp;&nbsp;&nbsp;&nbsp;With objMail<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.From&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;= strFrom<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.To&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;= strTo<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Subject&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;= strSubject<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Body&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;= strBody<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Importance&nbsp;&nbsp;&nbsp;&nbsp;= lngImportance<br>
<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If lngAType = 1 Then<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.BodyFormat&nbsp;&nbsp;&nbsp;&nbsp;= 0<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.MailFormat&nbsp;&nbsp;&nbsp;&nbsp;= 0<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If IsEmpty(strAttach) = False And IsNull(strAttach) = False Then<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.AttachFile strAttach<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Send<br>
&nbsp;&nbsp;&nbsp;&nbsp;End With<br>
&nbsp;&nbsp;&nbsp;&nbsp;Set objMail = Nothing<br>
End Sub<br>
%&gt;