作者：    来源：    点击：    日期：2007-3-29 23:34:27   

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

首页 上一页 [1] [2] [3]  下一页 尾页