果你希望用
ASP发送E-MAIL，你需要安装一个A S P部件。有几种第三方厂商的部件你可以使用。但是在
IIS4下，你可以使用CDONTS。
' @% D( T5 L: j# d {% h) s9 f. s% o: h* P. N9 A. O
虽然名字奇怪，它是很容易使用的并且性能良好。如果你希望使用它，请跟随下面步骤。
0 L. r0 T, s2 I+ I, `2 R
4 Y/ S7 f8 Z! F& H$ F6 G
1.检查你是否安装了SMTP服务。OPTION PACK缺省安装时是包括SMTP服务的。
* i1 j3 |7 Y E2 X q
# b# B5 J# _- _. n$ a# K' S& z
SMTP服务安装后，在你的system32目录下会有一个文件叫CDONTS.DLL。
' ~4 g- X' t0 ~7 H' T @
( H+ p0 L4 u7 F
2.你可以用下面的简单脚本通过A S P发送E-MAIL：
1 j! r' s$ `: u( R6 m6 Q7 C8 F% n6 P5 ^7 b4 t/ {) [6 R
& \+ z7 ^" V( V5 n1 _3 K, L0 w* i+ N* d2 x$ Z4 V, C7 k
$#@60;%
5 G/ o2 x$ O. y$ q1 k
, J& }2 w# [$ `- i Dim MailObject
3 A) B. r; i+ j, m" R, B0 \
) ]; Q* y6 Y( L Set MailObject = Server.CreateObject("CDONTS.NewMail")
! K; F4 c9 I' q! T' M1 }4 T! T
8 I! ?1 G$ x6 c0 r2 i/ O! Z
MailObject.Send "stelede@ozemail.com.au","stelede@ozemail.com.au","My subject","My text"
c2 N+ }$ ]0 B. M* }
0 ?6 f: O$ O! ?5 x6 v
%$#@62;
3 _! A1 J8 b$ k( ~. S3 }4 z0 i# Z# Z* i# B) J
是不是很简单？
% s: B" g3 X) B# v* N4 O
/ V! d5 Q: A, i9 U( f" T6 ? 4 F5 T) l% m# d: z
! m* Q% v/ L' e; ?- j
发送附件
9 h$ D$ F" r3 G
) R' b1 K% K" A* Q CDONTS的一个常用特性是用来在E-MAIL中发送附件。代码也不难写。
% V" F7 h0 I+ ?& Q
^4 P8 n7 s# i Q _' |6 Z J $#@60;%
5 m2 h+ E P3 _- {
: U( K: t8 ], f& R# P: H' ?6 J Dim MailObject
: w( }2 U1 n- W. J- K3 z0 N7 l( G( o" z/ u& b4 l' j# k5 Z$ O ?
Set MailObject = Server.CreateObject("CDONTS.NewMail")
0 f# x; {$ G9 i) G5 M7 {6 U9 o& ~, X, l
att_file="c:\attachments\StandardPolicy.txt"
. z' X* g" ?0 H4 F; Z3 ^+ v V9 i( |$ X
. ?; G! a3 f: H; f/ m x' N; @5 \ f_name="Policy.txt"
7 u. n6 p" w: b3 e+ [/ ]1 s. O1 V7 N3 I$ q
MailObject.From="stelede@ozemail.com.au"
' T1 b" V0 S$ U& F! p* M, Q# V1 U7 f% T- [9 j- G5 L
MailObject.To="j_smith@zentus.com"
7 J/ f% A8 }: G( ^+ \ E) p
8 h2 |: L! `# R! E( y, b
MailObject.Subject="Subject Text Here"
1 f/ L9 a8 ]6 W$ Q* I0 ~6 B" c W/ P% l6 i- j# b* X7 J! t `( d
MailObject.Body="Body Text Here"
4 U! E9 b' V. W; P' J6 b
" n; `% Q# U; x6 U, s* o7 E k MailObject.AttachFile att_file,f_name
# e9 z; a* l" O1 k4 O Q4 Y/ L* S9 E9 |2 k
MailObject.Send
, M% A& u1 T& l- |8 B9 N; q" K2 ]* V: D- ?
%$#@62;
' L9 K# J: `& {! A
. I4 K* Z; t4 p% W# q' i% x 第三方厂商部件
" ^# v0 U1 v$ m4 D
; u7 ]* w5 F. t& m* \ b如果你对CDONTS不满意，下面的地址清单是你可以找到的第三方厂商部件（大多数你需要花钱购买）
& e. x8 E' ]6 A, b6 l. k: f" p# r6 W9 ~- \8 Z
Blat -
http://gepasi.dbs.aber.ac.uk/softw/Blat.html
% @) ~1 c% ~5 Q8 ~9 f5 F7 z+ l( m5 S% n J$ [7 T
Try Looking through:
http://www.15seconds.com/
