sendmail.asp

来自「网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。」· ASP 代码 · 共 45 行

<!--#include file="inc/Conn.asp"-->
<!--#include file="Inc/Cls.Common.asp"-->
<!--#include file="Inc/Cls.Templates.asp"-->
<%
Call DBConnBegin()
  Select Case Request("Action")
    Case "Send"
      Dim My
	  Call WRMPS.CheckSubmit()
	  If IsEmpty(WRMPS.GetCookies("Code")) Then Call WRMPS.ErrView("·请不要重复操作",0)
	  If WR_Mail(5) = "NO" Then Call WRMPS.ErrView("·系统邮件功能未开启",0)
      Email = WRMPS.CheckStr(Request.Form("Email"),0)
      Subject = WRMPS.CheckStr(Request.Form("Subject"),0)
      My = WRMPS.CheckStr(Request.Form("My"),0)
      Content = Request.Form("Content")
      If Email = "" Then Call WRMPS.ErrView("·请输入收件邮箱",0)
      If Subject = "" Then Call WRMPS.ErrView("·请输入邮件主题",0)
      If Content = "" Then Call WRMPS.ErrView("·请输入邮件内容",0)
	  If My = "" Then My = WR_Setting(0)
      MailBody=Content&vbCrLf&vbCrLf&WRTemp.SiteLabel(WR_Mail(4))
      FromName = My
      If WRMPS.SendMail(mailbody,FromName,Subject,Email) = True Then
        WRMPS.DelCookies "Code"
	    Call WRMPS.ErrView("·邮件发送成功",1)
	  End If
	  
	Case Else
	  If WR_Mail(5) = "NO" Then Call WRMPS.ErrView("·系统邮件功能未开启",0)
      Email = WRMPS.CheckStr(Request("Email"),0)
      Subject = WRMPS.CheckStr(Request("Subject"),0)
      Content = Request("Content")
	  SitePath = ",<a href="&WR_Setting(3)&"SendMail.asp>发送邮件</a>"
	  SitePath = WRMPS.GetSitePath(0,SitePath)
	  Call WRMPS.FsoBegin()
	  TempStr = WRTemp.SiteTemplates(1,0,13,0)
	  Call WRMPS.FsoEnd()
	  TempStr = WRTemp.SiteLabel(TempStr)
      TempStr = WRMPS.GetReplace(TempStr,"{$MailTo}",Email) 
      TempStr = WRMPS.GetReplace(TempStr,"{$MailSubject}",Subject) 
      TempStr = WRMPS.GetReplace(TempStr,"{$MailContent}",Content) 
	  Call ClassEnd()
	  Response.write TempStr
  End Select
Call DBConnEnd()
%>