if mailsend.Send() = false then
Response.Write "邮件发送失败!"
else
Response.Write "邮件发送成功!"
end if
Set mailsend = Nothing
%>
</body>
</html>
<%
function TimeDelaySeconds(DelaySeconds)
SecCount = 0
Sec2 = 0
while SecCount < DelaySeconds + 1
Sec1 = Second(Time())
if Sec1 <> Sec2 then
Sec2 = Second(Time())
SecCount = SecCount + 1
end if
wend
end function
%>
if mailsend.Send() = false then
Response.Write "邮件发送失败!"
else
Response.Write "邮件发送成功!"
end if
Set mailsend = Nothing
%>
</body>
</html>
<%
function TimeDelaySeconds(DelaySeconds)
SecCount = 0
Sec2 = 0
while SecCount < DelaySeconds + 1
Sec1 = Second(Time())
if Sec1 <> Sec2 then
Sec2 = Second(Time())
SecCount = SecCount + 1
end if
wend
end function
%>
这是WEBEASYMAIL的组件发送说明,简单。