您当前的位置是：主页>网络编程>ASP教程>

asp发送邮件代码

www.jz123.cn  2008-09-07   来源:   中国建站    编辑整理    我要投递新闻

function SendMail(MailServerAddress,AddRecipient,Subject,Body,Sender,MailFrom)  on error resume next  Dim JMail  Set JMail=Server.CreateObject("JMail.SMTPMail")  if err then   SendMail= "<br><li>没有安装JMail组件</li>"   err.clear   exit function  end if  JMail.Logging=True  JMail.Charset="gb2312"  JMail.ContentType = "text/html"  JMail.ServerAddress=MailServerAddress  JMail.AddRecipient=AddRecipient  JMail.Subject=Subject  JMail.Body=MailBody  JMail.Sender=Sender  JMail.From = MailFrom  JMail.Priority=1  JMail.Execute  Set JMail=nothing  if err then   SendMail=err.description   err.clear  else   SendMail="OK"  end if end function

上一篇：asp 会员注册系统程序 下一篇：asp取得字符长度函数

用户名： 密码： 匿名? 注册