<%Option Explicit%>
<%
dim webname,weburl,forumurl
webname="5233音乐网"
weburl="http://www.42500.com/"
forumurl="http://www.42500.com/"
%>
<%
dim name,mail,cname,cmail,dmail,email,fmail,heyan,biaote
dim objRS,sql,td,mymail,bodys

biaote      = replace(Request.Form("biaote"),"""","“")
biaote  	= replace(biaote,"&","＆")
name        = replace(Request.Form("name"),"""","“")
name		= replace(name,"&","＆")
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"),"""","“")
fmail		= replace(fmail,"&","＆")
heyan       = replace(Request.Form("heyan"),"""","“")
heyan           = replace(heyan,"&","＆")

if Trim(name) = "" or Trim(mail) = "" or Trim(cname) = "" or Trim(cmail) = "" or Trim(dmail) = "" then
    Response.Write("<script language=""JavaScript"">alert(""还没填完哦!^_^"");history.go(-1);</script>")
    Response.End
	end if
	dim topic,mailbody
        topic="您的朋友在QQ亲亲你音乐网给您发来音乐贺信"
	mailbody="<html>"
	mailbody=mailbody & "<title>您的朋友在"&webname&" 送给您一封音乐贺信!</title>"
	mailbody=mailbody & "<body>"
	mailbody=mailbody & "<TABLE border=0  width='95%' align=center><TBODY><TR>"
	mailbody=mailbody & "<TD valign=middle align=top>"
	mailbody=mailbody &  " "&name&" ，您好：<br><br>"
	mailbody=mailbody & "您的朋友 "&cname&" 为您点播了 "&email&"<br>"
	mailbody=mailbody & "请点击下面的地址欣赏：<br><br>"
	mailbody=mailbody & "<a href="&fmail&" target=_blank><font color=red><b>点击欣赏</b></font></a> <br>"
	mailbody=mailbody & "<br>您可以通过<a href="&weburl&" target=_blank>"&weburl&"</a>来欣赏最前沿最流行的音乐,音乐是您永远的初恋。"
	mailbody=mailbody & "<br>您可以通过<a href=http:/www.34z.com/ target=_blank>http://www.34z.com/</a>来查找你喜欢的网站，那里一定能找到你需要的网站。"
	mailbody=mailbody & "<br><br>"
	mailbody=mailbody & "<center><font color=red>再次欢迎您本站，让我们一起来建设这个网上家园！</font>"
	mailbody=mailbody & "</TD></TR></TBODY></TABLE><br><hr width=95% size=1>"
	mailbody=mailbody & "<p align=center>本信笺由"&webname&"("&weburl&")系统所发</p>"
	mailbody=mailbody & "<p align=center>假如对您造成了不便请多多包涵，谢谢！</p>"
	mailbody=mailbody & "</body>"
	mailbody=mailbody & "</html>"
%>	
<%
call jmail(mail,topic,mailbody)	
%>
<!--#include file="email.asp" -->		
				<title>发送完成</title>
<SCRIPT language=JavaScript>alert('您的点播已经成功发送！');javascript:top.window.close();</SCRIPT>





