mailto_flash.asp

Flash动画园

<%
'==================================================
'                    参 数 设 置
'==================================================

'收信人电子邮件地址
'表单里的内容将发送到这个信箱中
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	="来自【动画园 - 2Flash.Net】的问候！"
tbody		=Request("t5")
tmz		=Request("t6")
twt1		=Request("t8")
thd1		=Request("t9")
tid		=Request("t12")
tt		=Request("totime")

if tname <> "" then

set jmail=server.CreateObject ("jmail.message")
jmail.Silent	=true
jmail.Charset	="gb2312"

if smtpemail <> "" then
	jmail.From	="[e-mail]"
else
	jmail.From	="[e-mail]"
end if

jmail.FromName	=tname
jmail.ReplyTo	="[e-mail]"
jmail.Subject	=tsubject
jmail.AddRecipient myemail,myname
jmail.HTMLBody		="<link rel="stylesheet" href="Css.css" type="text/css"><table width='440' border='0' align="center" cellpadding='0' cellspacing='0' 

style='border-collapse: collapse'><tr><td width='426' height='118'><p style='line-height: 150%'>" & myname & "你好
      <p style='line-height: 150%'>你的朋友<a href='mailto:" & tmz & "'>" & tid & "</a>从<a href='http://www.2flash.ne' 

target='_blank'>(Flash动画园2Flash.net)</a>给您寄来了一张作品<br>
        发送时间：" & tt & " <br>
        作品名：[" & twt1 & "] " & tbody & "<br>
  您也可以去Flash动画园(<a href='http://www.2flash.net' target='_blank'>http://www.2flash.net</a>)选择一款您中意的作品回给您

的朋友！      
</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%>