<%
'****************************************************
' Software name:Kesion CMS 9.5
' Email: service@kesion.com . 营销QQ:4000080263 Tel:400-008-0263
' Web: http://www.kesion.com http://www.kesion.cn
' Copyright (C) Kesion Network All Rights Reserved.
'****************************************************
Dim KS
Set KS=New PublicCls
Dim ChannelID,ID,RS,ArticleUrl,WebName,WebUrl
Dim ReturnInfo,Subject,MyName,MyMail,FrName,FrMail,MailBody
ChannelID=KS.ChkClng(KS.S("m"))
ID=KS.ChkClng(KS.S("ID"))
ArticleUrl=Request.ServerVariables("HTTP_REFERER")
if ID=0 or ChannelID=0 then
Response.Write""
Response.End
end if
Set RS=Server.CreateObject("Adodb.Recordset")
RS.Open "Select top 1 * From " & KS.C_S(ChannelID,2) & " Where ID=" & ID,conn,1,1
IF RS.EOF And RS.BoF Then
RS.CLOSE
SET RS=NOthing
Call CloseConn()
Set KS=Nothing
Response.Write""
Response.End
End if
WebName=KS.Setting(0)
WebUrl=KS.Setting(2)
MailServerAddress=KS.Setting(12)
IF KS.S("Action")="Send" Then
FrName=KS.S("FrName")
MyName=KS.S("MyName")
FrMail=KS.S("FrMail")
IF FrMail="" Then
Response.Write""
Response.End
End IF
IF KS.IsValidEmail(FrMail)=false then
Response.Write""
Response.End
End if
MyMail=KS.S("MyMail")
IF MyMail="" Then
Response.Write""
Response.End
End IF
if KS.IsValidEmail(MyMail)=false then
Response.Write""
Response.End
End if
Content=KS.S("Content")
Subject="您好" & KS.S("FrName") & ",您的朋友"&KS.S("MyName")&"从" & KS.S("SiteName") & "给您发来的一篇信息资料"
MailBody=MailBody &""
MailBody=MailBody &"
"
MailBody=MailBody &"
"
If ChannelID=5 Then
MailBody=MailBody &Content & " 以下是商品介绍 " & RS("prointro")
Else
MailBody=MailBody &Content & " 以下是信息正文 " & RS("ArticleContent")
End If
MailBody=MailBody &"
"
'开始发送
ReturnInfo=KS.SendMail(MailServerAddress,KS.Setting(13), KS.Setting(14),Subject,FrMail,KS.S("MyName"),MailBody,KS.Setting(11))
IF ReturnInfo="OK" Then
Response.Write ("")
Response.End
Else
Response.Write ("")
Response.End
End if
End if
%>
发送电子邮件