<%Option Explicit%>
<%
dim webname,weburl,forumurl
webname="：：：恋菲音乐网 歌曲试听下载"
weburl="http://www.qzfu.com/music/" 
forumurl="http://www.qzfu.com/music/"
%>
<%
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) = "" 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! "&name&" "&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&"------------------------------------------------"&chr(10)
bodys=bodys&"欢迎您光临：：： 恋菲音乐网 歌曲试听下载http://music.skygd.cn/"&chr(10)
bodys=bodys&"------------------------------------------------"&chr(10)
				mymail.body=bodys
				mymail.send
				%>
				<title>发送完成</title>
<br><br><p align=center>发送完成<br><br><a href=# onclick="javascript:window.close()">关闭本窗口</a></p>
