📄 mailto_flash.asp
字号:
<%
'==================================================
' 参 数 设 置
'==================================================
'收信人电子邮件地址
'表单里的内容将发送到这个信箱中
myemail =Request("tomail")
'收信人姓名
myname =Request("toname")
'所使用的SMTP服务器
smtpserver ="SMTP服务器"
'如果SMTP服务器需要发信认证，则设置登录SMTP服务器的用户名和密码
smtpuser ="用户"
smtppwd ="密码"
'与相应SMTP服务器对应的邮件地址
'注意：很多SMTP服务器除了要验证用户名和密码外，还要验证发件人地
'址，比如163.net的SMTP服务器在检查发信人邮件地址是不是以163.net
'结尾，否则不予发送，因此，使用相应的信箱做为发信人信箱是必要的
smtpemail ="信箱地址"
'==================================================
' 程 序 开 始
'==================================================
tname =Request("t12")
tsubject ="来自(MyFlash.NET)的问候！"
tbody =Request("t5")
tmz =Request("t6")
tcs =Request("t7")
twt1 =Request("t8")
thd1 =Request("t9")
tid =Request("t12")
txmi =Request("t13")
tt =Request("totime")
if tname <> "" then
set jmail=server.CreateObject ("jmail.message")
jmail.Silent =true
jmail.Charset ="gb2312"
if smtpemail <> "" then
jmail.From ="decadance@163.com"
else
jmail.From ="admin@3330.net"
end if
jmail.FromName =tname
jmail.ReplyTo ="admin@3330.net"
jmail.Subject =tsubject
jmail.AddRecipient myemail,myname
jmail.HTMLBody ="<LINK rel='stylesheet' href='http://myflash.shanke.cn/style3.css'><body><center><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='617'><tr><td width='100%'><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='100%'><tr><td width='73' height='83'><img border='0' src='http://myflash.shanke.cn/images/mail01.gif' width='73' height='83'></td><td width='221' height='83'><img border='0' src='http://myflash.shanke.cn/images/mail02.gif' width='221' height='83'></td><td width='240' height='83'><img border='0' src='http://myflash.shanke.cn/images/mail03.gif' width='240' height='83'></td><td width='83' height='83'></td></tr></table><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='617'><tr><td width='73' height='46'><img border='0' src='http://myflash.shanke.cn/images/mail04.gif' width='73' height='46'></td><td width='337' height='46'>亲爱的：" & myname & "</td><td width='124' height='46'><img border='0' src='http://myflash.shanke.cn/images/mail06.gif' width='124' height='46'></td><td width='83' height='46'></td></tr></table><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='617'><tr><td width='73' height='118'><img border='0' src='http://myflash.shanke.cn/images/mail07.gif' width='73' height='118'></td><td width='426' height='118'><p style='line-height: 150%'>你的朋友<a href='mailto:" & tmz & "'>" & tid & "</a>从<a href='http://myflash.shanke.cn' target='_blank'>(MyFlash)</a>给您寄来了一张作品！<br>发送时间：" & tt & " 短祝语：" & tcs & "<br>作品名：《" & twt1 & "》 " & tbody & "<br>您也可以到MyFlash(<a href='http://myflash.shanke.cn' target='_blank'>http://myflash.shanke.cn</a>)选择一款您中意的作品回给您的朋友！</td><td width='35' height='118'><img border='0' src='http://myflash.shanke.cn/images/mail08.gif' width='35' height='118'></td><td width='83' height='118'></td></tr></table><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='100%'><tr><td width='73' height='85'><img border='0' src='http://myflash.shanke.cn/images/mail09.gif' width='73' height='85'></td><td width='312' height='85'>附语：" & txmi & "</td><td width='126' height='85'><img border='0' src='http://myflash.shanke.cn/images/mail10.gif' width='162' height='85'></td><td width='70' height='85'><img border='0' src='http://myflash.shanke.cn/images/mail11.gif' width='70' height='85'></td></tr></table><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='100%'><tr><td width='73' height='92' valign='top'><img border='0' src='http://myflash.shanke.cn/images/mail12.gif' width='73' height='92'></td><td width='221' height='83' valign='top'><img border='0' src='http://myflash.shanke.cn/images/mail13.gif' width='221' height='83'></td><td width='91' valign='top' height='65'><img border='0' src='http://myflash.shanke.cn/images/mail14.gif' width='91' height='65'></td><td width='162' valign='top' height='125'><img border='0' src='http://myflash.shanke.cn/images/mail15.gif' width='162' height='125'></td><td width='70' valign='top' height='125'><img border='0' src='http://myflash.shanke.cn/images/mail16.gif' width='70' height='125'></td></tr></table></td></tr></table></center></body></html>"
jmail.MailServerUserName =smtpuser
jmail.MailServerPassWord =smtppwd
isgo=jmail.Send(smtpserver)
if isgo then
msg="已成功地将作品《" & twt1 & vbcrlf & "》发送到 " & myname & vbcrlf & " 的信箱了！^o^"
else
msg="发送失败！请完整填写发送资料。"
end if
jmail.Close
set jmail=nothing
end if
%>
<%=msg%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -