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>