moneysend.asp

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

<!--#include file="conn.asp"-->
<%
dim webname,weburl,forumurl
usermail=Request.Form("usermail")
weburl=rsyang("webaddress")
forumurl=request("qq")
%>
<%
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"),"""","“")
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&"交费时间："&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&"用户联系email: "&usermail&"  "&chr(10)
				bodys=bodys&"------------------------------------------------"&chr(10)
				bodys=bodys&chr(10)
				bodys=bodys&"用户附言："&forumurl&" "&chr(10)
				mymail.body=bodys
				mymail.send
				%>
				<script language="vbscript">
msgbox"通知成功，证实后我们会为你的帐户进行充值！"
location.href="javascript:window.close();"
</script>