#32002/5/23 16:03:17
代码如下:
结果
<%
do while i<=9
Set objMail = Server.CreateObject("cdonts.newmail")
objmail.from="发件人邮箱"
objmail.to="收件人邮箱"
objmail.subject="邮件主题"
objmail.body="邮件内容!"
objmail.send
i=i+1
loop
response.write "已经发了"&i&"封信已经发出去了......."
%>
难人一个……