email.asp

《动态网页设计基础教程》,胡杰,科学出版社

<%
'创建CDONTS组件
Set myMail=Server.CreateObject("CDONTS.NewMail")
'设置CDONTS组件属性
myMail.From=Request.Form("From")
myMail.Subject=Request.Form("Subject")
myMail.Body=Request.Form("Body")
myMail.To =Request.Form("To")
'发送邮件
myMail.Send
response.write "邮件已发送，谢谢使用"
Set myMail=Nothing
%>