 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% sub Jmail(email) Dim JMail,SendMail Set JMail=Server.CreateObject("JMail.SMTPMail") JMail.Logging=True JMail.Charset="gb2312" JMail.ContentType = "text/html" JMail.ServerAddress=SMTPServer JMail.Sender=SystemEmail JMail.Subject=topic JMail.Body=mailbody JMail.AddRecipient email JMail.Priority=3 JMail.Execute Set JMail=nothing if err then SendMail=err.description err.clear else SendMail="OK" end if end sub sub Cdonts(email) dim objCDOMail Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From =SystemEmail objCDOMail.To =email objCDOMail.Subject =topic objCDOMail.Body =mailbody objCDOMail.Send Set objCDOMail = Nothing if err then SendMail=err.description err.clear else SendMail="OK" end if end sub sub aspemail(email) Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1") recipient=email sender=SystemEmail subject=topic message=mailbody mailserver=SMTPServer result=mailer.SendMail(mailserver, recipient, sender, subject, message) if err then SendMail=err.description err.clear else SendMail="OK" end if end sub %> 返回类别: 教程 上一教程: 在ASP中通过OO4O连接ORACLE数据库的例子 下一教程: 论RESPONSE.WRITE和<%= %> 您可以阅读与"常用EMAIL组件发送函数"相关的教程: · WEBEMAIL免费邮件发送组件属性与方式 · 利用CDONTS发送邮件的ASP函数 · ASPEMAIL组件的应用 · 无组件上传文件，一个函数搞定 · 一个异常好用的发送邮件的组件 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
