mailto_joke.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	="来自(MyFlash.NET)的问候！"
tbody		=Request("t5")
tmz		=Request("t6")
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	="[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		="亲爱的：" & myname & "<p>你的朋友<a href='mailto:" & tmz & "'>" & tid & "</a>从<a href='http://myflash.shanke.cn' target='_blank'>(MyFlash)</a>给您送来了一个笑话！<p>发送时间：" & tt & " <p>笑话名：《" & twt1 & "》 " & tbody & "<p>您也可以到MyFlash(<a href='http://myflash.shanke.cn' target='_blank'>http://myflash.shanke.cn</a>)选择您喜欢的笑话回给您的朋友！<p>附语：" & txmi & "<p><img src='http://myflash.shanke.cn/images/myflashlogo.gif' border='0' width='178' height='29'><br><font color='#ff0000'>(注意：请勿直接回复此信箱！)</font>"

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%>