<% 7 @9 I d0 i3 }3 L/ ]
if Cint(request(\"send\"))=1 then
8 u; \: J. S8 A4 Lon error resume next- N5 ^! Z0 j% a# m' ~# k) o, r
set mymail=server.CreateObject (\"CDONTS.Newmail\")
# K! h& \0 A/ d5 s fmymail.mailformat=0
+ ^$ i! H9 W* N5 o4 |: l1 Pmymail.bodyformat=0$ n) S" F+ T% l+ h: r8 K
mymail.from =request(\"from\")
" L/ H* S5 l0 f4 v: [( R D [mymail.to =request(\"to\")( @- G3 {3 t3 |$ Q; O2 j
mymail.BCC =request(\"bbc\")1 a8 X, \) H3 c. r0 d E
mymail.subject =request(\"subject\")& N4 E- n8 ]) L5 K' h& q
mymail.body =request(\"body\")
" \ p( h- ~ [! C( l$ ?3 Bmymail.send0 k! A; X6 f8 e5 l4 m
if err.number<>0 then2 S" \/ g% S# y1 g: h
response.write err.description
, p' ^) D! C. j3 |+ `* ^, Fresponse.end
/ a* e' U, m D/ \: dend if
# F8 v# ^ u) v s% B8 d* S( k/ [set mymail=Nothing
# T: G' w4 o7 `6 t! Aresponse.write \"邮件已成功发送到\"+request(\"to\")1 U) D% N. n# [) @+ }
response.end
! Y5 y8 v/ R, U# \$ p9 r' E5 aend if+ P" S. W+ |8 H$ a3 k
%><html><body><table width=\"100%\" border=\"0\" cellpadding=\"1\" cellspacing=\"1\" bgcolor=\"#6699FF\"><form method=\"post\"><tr bgcolor=\"#E7E7CB\"> + B& ?' u# x$ B( M; Z+ j
<td width=\"20%\" height=\"26\">发件人：</td><td width=\"80%\"><input></td></tr><tr bgcolor=\"#E7E7CB\"> ! @: p/ s5 C5 I, Y! s( g! V
<td height=\"25\">收件人：</td><td><input></td></tr><tr bgcolor=\"#E7E7CB\">
- v T! [9 o% O<td height=\"23\">密送地址：</td><td><input></td></tr><tr bgcolor=\"#E7E7CB\"> 3 t/ o( `9 y( ^9 M2 u
<td height=\"24\">邮件标题：</td><td><input></td></tr><tr bgcolor=\"#E7E7CB\"> . B# t) x' Y" j% A
<td height=\"27\">邮件内容：</td><td><textarea></textarea></td></tr><tr bgcolor=\"#E7E7CB\"> " ]! m% c( f, X- l9 A8 D' J- l3 b
<td height=\"28\"> </td><td><input><input><input></td></tr></form></table></body></html>) b8 k/ b; g! U E* g$ x! n
[此贴子已经被作者于2005-6-27 12:07:29编辑过] | 
窥视卡
雷达卡
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡