<% '**************************************************** ' Software name:Kesion CMS 5.0 ' Email: service@kesion.com . QQ:111394,9537636 ' Web: http://www.kesion.com http://www.kesion.cn ' Copyright (C) Kesion Network All Rights Reserved. '**************************************************** Dim KS Set KS=New PublicCls Dim ID,RS,ArticleUrl,WebName,WebUrl Dim ReturnInfo,Subject,MyName,MyMail,FrName,FrMail,MailBody ID=KS.ChkClng(KS.S("ID")) ArticleUrl=Request.ServerVariables("HTTP_REFERER") if ID="" then Response.Write"" Response.End end if Set RS=Server.CreateObject("Adodb.Recordset") RS.Open "Select * 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 &"
" MailBody=MailBody &Content & "
以下是信息正文
" & RS("ArticleContent") MailBody=MailBody &"
" '开始发送 ReturnInfo=KS.SendMail(MailServerAddress,KS.Setting(13), KS.Setting(14),Subject,FrMail,KS.S("MyName"),MailBody,MyMail) IF ReturnInfo="OK" Then Response.Write ("") Response.End Else Response.Write ("") Response.End End if End if %> 发送电子邮件
好友姓名:
好友邮箱:
您的姓名:
您的邮箱:
邮件内容

您好!
我在[<%=WebName%>]上看到一篇标题为<%=RS("Title")%>的信息,希望能对您有所帮助。
网址为:<%=ArticleUrl%>
</font>的信息,希望能对您有所帮助。<br>网址为:<a href=<%=ArticleUrl%> target=_blank><%=ArticleUrl%></a><br>" />