gusucode.com > ASP+ACCESS在线人才招聘网(源代码+论文) > ASP+ACCESS在线人才招聘网(源代码+论文)\inc\mail.asp

    <%
function mail(mailto,subject,body)
Set MailObject=Server.CreateObject("CDONTS.NewMail")
   email="webmaster"
   MailObject.From=email
   MailObject.To=mailto
   MailObject.Subject=subject
   MailObject.Body=body
   MailObject.send
   Set MailObject=nothing
end function
function mailAt(mailto,subject,body,atpath,filename)
Set MailObject=Server.CreateObject("CDONTS.NewMail")
   email="webmaster"
   MailObject.From=email
   MailObject.To=mailto
   MailObject.Subject=subject
   MailObject.Body=body
   MailObject.AttachFile atpath,filename
   MailObject.send
   Set MailObject=nothing
end function
   %>
<html></html>