广告：
网页制作参考
千千学园
雨路开发频道
雨路技术文档
技术问答
编程技术

作者： unknow

&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;