sendmail1.asp

顶级影视站ＡＳＰ源代码系统。很全面很强大。数据库用access

<!--#include file="HMconnection.asp"-->
<!--#include file="webconfig.asp"-->
<%
dim forumurl
forumurl="http://www.hipmovie.com"
dim mailname,mail,cname,cmail,dmail,email,fmail
dim mymail,bodys

mailname    = replace(Request.Form("name"),"""","“")
mailname	= replace(mailname,"&","＆")
mail        = replace(Request.Form("mail"),"""","“")
mail		= replace(mail,"&","＆")
cname       = replace(Request.Form("cname"),"""","“")
cname		= replace(cname,"&","＆")
cmail       = replace(Request.Form("cmail"),"""","“")
cmail		= replace(cmail,"&","＆")
dmail       = replace(Request.Form("dmail"),"""","“")
dmail		= replace(dmail,"&","＆")
email       = replace(Request.Form("email"),"""","“")
email		= replace(email,"&","＆")
fmail       = replace(Request.Form("fmail"),"""","“")

if Trim(mailname) = "" or Trim(mail) = "" or Trim(cname) = "" or Trim(cmail) = "" or Trim(dmail) = "" or Trim(email) = "" or Trim(fmail) = "" then
    Response.Write("<script language=""JavaScript"">alert(""对不起，您还没填完!"");history.go(-1);</script>")
    Response.End
	end if
	
	
	on error resume next
			set mymail=server.createobject("cdonts.newmail")
			mymail.from=cmail
			mymail.to=mail
			mymail.subject="您的朋友 "&cname&" 向你推荐一部电影!"
				bodys=      ""&chr(10)
				bodys=bodys&chr(10)
				bodys=bodys&"Hi! "&mailname&" "&chr(10)
				bodys=bodys&chr(10)
				bodys=bodys&"您的朋友 "&cname&" 向你推荐影片 "&email&" "&chr(10)
				bodys=bodys&chr(10)
				bodys=bodys&"请点击下面的地址收看："&chr(10)
				bodys=bodys&chr(10)
				bodys=bodys&" "&fmail&" "&chr(10)
				bodys=bodys&chr(10)
				bodys=bodys&" 留言："&dmail&" "&chr(10)
				bodys=bodys&chr(10)
				bodys=bodys&chr(10)
				bodys=bodys&"------------------------------------------------"&chr(10)
				bodys=bodys&"          "&webname&" 愿你天天好心情 "&chr(10)
				bodys=bodys&"------------------------------------------------"&chr(10)
				bodys=bodys&chr(10)
				bodys=bodys&" 本电影网程序源自："&forumurl&" "&chr(10)
				mymail.body=bodys
				mymail.send
				%>
<script language="javascript">
alert("恭喜，您的邮件已成功发送！")
window.close()
</script>