?? sendfriend_ok.asp
字號:
<!--#include file="../inc/safe.asp"-->
<%
Response.Buffer = true
Response.ExpiresAbsolute=now()-1
Response.Expires=0
Response.CacheControl="no-cache"
%>
<%
if Not ChkPost then
response.redirect ("../login/chklogin.asp?login=4")
response.end
end if
%>
<%
myname=Replace_Text(request("myname"))
myemail=Replace_Text(request("myemail"))
content=Replace_Text(request("content"))
topic="我是"&myname&",有事找你!" ' 信件主題
mailbody=content ' 信件內容
ToEmail1=Replace_Text(request("ToEmail1"))
ToEmail2=Replace_Text(request("ToEmail2"))
ToEmail3=Replace_Text(request("ToEmail3"))
ToEmail4=Replace_Text(request("ToEmail4"))
ToEmail5=Replace_Text(request("ToEmail5"))
ToEmail6=Replace_Text(request("ToEmail6"))
ToEmail7=Replace_Text(request("ToEmail7"))
ToEmail8=Replace_Text(request("ToEmail8"))
if IsValidEmail(ToEmail1)=true then sendjmail2 ToEmail1,topic,mailbody
if IsValidEmail(ToEmail2)=true then sendjmail2 ToEmail2,topic,mailbody
if IsValidEmail(ToEmail3)=true then sendjmail2 ToEmail3,topic,mailbody
if IsValidEmail(ToEmail4)=true then sendjmail2 ToEmail4,topic,mailbody
if IsValidEmail(ToEmail5)=true then sendjmail2 ToEmail5,topic,mailbody
if IsValidEmail(ToEmail6)=true then sendjmail2 ToEmail6,topic,mailbody
if IsValidEmail(ToEmail7)=true then sendjmail2 ToEmail7,topic,mailbody
if IsValidEmail(ToEmail8)=true then sendjmail2 ToEmail8,topic,mailbody
'If SendJmail(email,Topic,MailBody) = 1 Then
' Response.Write "<br/><br/>資料成功發送到您的注冊郵箱!"
'Else
' Response.Write "<br/><br/>未正確設置郵件發送或您填寫的郵件地址有誤,資料發送失敗!"
'End If
Function SendJmail2(Email,Topic,MailBody)
Dim JMail
on error resume next
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.LazySend = true
JMail.silent = true
JMail.Charset = "gb2312"
JMail.ContentType = "text/html"
JMail.Sender = ""&myname&"" '發送人
JMail.ReplyTo = ""&myemail&"" '回復到
JMail.SenderName = "推薦供求信息"
JMail.Subject = Topic
JMail.SimpleLayout = true
JMail.Body = MailBody
JMail.Priority = 3 '郵件的緊急程序,1 為最快,5 為最慢, 3 為默認值
JMail.AddRecipient Email
JMail.AddHeader "Originating-IP", GBL_IPAddress
If JMail.Execute() = false Then
SendJmail = 0
Else
SendJmail = 1
End If
JMail.Close
Set JMail = Nothing
End Function
%>
<!--#include file="head1.asp"-->
<br><br><br>
<TABLE cellSpacing=0 cellPadding=0 width=550 border=0 align="center">
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=450 border=0>
<TR>
<TD width=20 bgColor=#CC3300><IMG
src="../images/arrowhead.gif"></TD>
<TD width=160 bgColor=#CC3300><B><FONT
color=#ffffcc><NOBR>發送成功! </NOBR></FONT></B></TD>
<TD width=20><IMG
src="../images/round.gif"></TD></table></TD></TR></TABLE>
<TABLE width=550 border=0 align="center" cellPadding=1 cellSpacing=0 bgColor=#000000>
<tr valign=top>
<td>
<table bgColor="#ffffec" border=0 cellPadding=5 cellSpacing=0 width=100%>
<tr valign=top>
<td><br><font size=4 color="ff8019"><b>
您的信息已經被成功的發送。感謝您的支持!
</b></font><br><br><br><br></td>
</tr>
<tr valign=top>
<td align=right><font class=f2><b>
<a href="../index.asp">返回首頁</a>
</b></font><br></td></tr>
</table>
</td>
</tr>
</table>
<br><br><br><br>
<!--#include file="../inc/end.asp"-->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -