📄 receivepayment.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/base64.asp"-->
<link rel="stylesheet" href="style.css" type="text/css">
<%
Merchant = "004004"
merpassword = "" '填写你的密钥
amount=Trim(Request("amount"))
billno=Trim(Request("billno"))
succ=Trim(Request("success"))
signature=request("sign")
if request("success")="N" then
response.write"支付不成功"
response.end
end if
if signature=md5(merchant&billno&amount&succ&merpassword) then
result=0
else
result=1
end if
content=billno&amount&succ
money=csng(amount)
if money<=0 then
response.write "价格不可能小于等于0的，不予受理!"
response.end
end if
set temp=server.createobject("microsoft.xmlhttp")
temp.open "get","http://www.allbuy.cn/merchant/checkfeedback.asp?"&request.querystring,false,"",""
temp.send
result1=temp.responsetext
set temp=nothing
%>
<html>
<body>
<div align="center">
<table border="1" width="500" cellspacing="0" cellpadding="0" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" >
<tr><td><a href="index.asp"><img border="0" src="images/top.gif" width="500" height="79"></a></td></tr>
<tr><td>
<%if signature<>"" and UCase(succ)="Y" and result=0 then
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from sys"
rs.open sql,conn,3,3
sys_mailserver=rs("sys_mailserver")
sys_mailuser=rs("sys_mailuser")
sys_mailpass=rs("sys_mailpass")
sys_mailtitle=rs("sys_mailtitle")
sys_name=rs("sys_name")
sys_qq=rs("sys_qq")
sys_tel=rs("sys_tel")
sys_mail=rs("sys_mail")
rs.close
sql="select * from receive where MerchantOrderNumber='"&billno&"'"
rs.open sql,conn,3,3
if not rs.eof then
response.write "此订单号已发卡，不予受理!"
response.end
else
rs.addnew
rs("MerchantOrderNumber")=billno
' rs("WestPayOrderNumber")=WestPayOrderNumber
rs("PaidAmount")=amount
rs("sub_date")=now()
rs.update
end if
rs.close
sql="select * from sub where sub_number='"&billno&"'and sub_payok=false and sub_check=false"
rs.open sql,conn,3,3
if rs.eof then
response.write("<script>alert('订单号不对或重复提交！请检查，谢谢合作！');window.location=('index.asp')</script>")
response.End
end if
if csng(amount)<>csng(rs("sub_totalcash")) then
response.write("<script>alert('您订购的卡费与实际所付的不一样，请与管理员联系！');window.location=('index.asp')</script>")
response.End
end if
%>
产品名称：<%=rs("hw_name")%>
<div align="center">
<table border="1" width="500" cellspacing="0" cellpadding="0" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF">
<%rs("sub_payok")=true
rs("sub_adds")="1"
rs.update
if rs("sub_cz")="1" then%>
您的款已收到，工作人员将尽快给您充值，您也可以现在通知客服！电话：<%=sys_tel%> QQ：<%=sys_qq%> <br>
<%else
set rs1=server.createobject("adodb.recordset")
sql1="select top "&rs("hw_count")&" * from tingcardnum where hw_id="&rs("hw_id")& " and hw_ok=true order by id"
rs1.open sql1,conn,3,3
if rs1.eof then%>
<div align="center"><span style="font-size: 9pt">卡已被购买完，请通知管理员!请与管理员联系!电话：<%=sys_tel%> QQ：<%=sys_qq%></span></div>
<% n2=rs("hw_count")
rs("sub_yuka")=n2
rs.update
%>
<%else%><p><span style="font-size: 9pt">您所订购的卡号如下：<br>
</span><br>
<%
n1=0
content="您好！感谢您购买我们的产品!我们与allbuy在线支付平台联合，使用目前最新的银行B2C在线支付系统，与中国工商银行，招商银行，中国建设银行，民生银行等金融机构达成电子商务协议，其他银行正在洽谈中。本站集支付的合法性，交易的便捷性，买卖双方的及时性，网站管理的严格性，让众多玩家真正体会到交易的便捷性，安全性！可以大量的节约买家的汇款时间以及银行汇款手续费等。从而实现了游戏虚拟物品交易的电子商务化！您汇款，我付费！ 本站提倡诚信第一，在虚拟宝物得到不断的重视的过程中，愿广大玩家自觉的营造一个良好的交易氛围。 在网络游戏不断成熟的今天，也希望青少年不要荒废学业，事业沉迷于网络游戏。 最后，在此衷心感谢“allbuy”对我站技术上的支持。"&CHR(10)&CHR(10)
content=content+"您购买的是:"&CHR(10)
content=content+"购买时间:"&cstr(rs("sub_date"))&CHR(10)
content=content+"订 单 号 :"&rs("sub_number")&CHR(10)
content=content+"购买数量 :"&rs("hw_count")&CHR(10)&CHR(10)&"------------------------------------------"&CHR(10)
do while not rs1.eof
content=content&"卡号:"&rs1("hw_number")& CHR(10)&"密码:"&strAnsi2Unicode(Base64decode(strUnicode2Ansi(rs1("hw_pass"))))& CHR(10)
rs1("hw_ok")=false
rs1("sub_number")=rs("sub_number")
rs1("sub_tel")=rs("sub_tel")
rs1("number_ip")=request.servervariables("remote_addr")
rs1.update
%>
<tr>
<td width="58" style="padding: 5px" align="center">卡号：</td>
<td width="111" style="padding: 5px" align="center"><%=rs1("hw_number")%> </td>
<td width="58" style="padding: 5px" align="center">密码：</td>
<td width="111" style="padding: 5px" align="center"><%=strAnsi2Unicode(Base64decode(strUnicode2Ansi(rs1("hw_pass"))))%></td>
</tr>
<%
n1=n1+1
rs1.movenext
loop
content=content&CHR(10)&"------------------------------------------"&CHR(10)&CHR(10)
content=content+"再次感谢您购买我们的产品!"&CHR(10)
content=content+"此卡配送信息："&CHR(10)
content=content+"配送区域：全世界。"&CHR(10)
content=content+"配送方式：通过128位加密方式将商品信息（卡号密码或充值信息）实时显示在用户浏览器的页面上，同时发送到用户的邮箱中。"&CHR(10)
content=content+"配送时间：实时，无需任何等待时间。"&CHR(10)&CHR(10)
content=content+"2、如果您在购买中有问题请和我们联系："&CHR(10)
content=content+"电话："&sys_tel&"QQ："&sys_qq&CHR(10)
set rs2=server.createobject("adodb.recordset")
sql2="select * from hw where hw_name='"&rs("hw_name")& "'"
rs2.open sql2,conn,3,3
rs2("hw_buys")=rs2("hw_buys")+rs("hw_count")
rs2.update
rs2.close:set rs2=nothing
if n1<cint(rs("hw_count")) then
n2=cint(rs("hw_count"))-n1%>
<div align="center">还欠您<%=n2%>张<%=rs("hw_name")%>,请与管理员联系!电话：<%=sys_tel%> QQ：<%=sys_qq%></div>
<% rs("sub_yuka")=n2
rs.update
else
rs("sub_yuka")=0
rs.update
end if
set jmail=server.CreateObject ("jmail.message")
jmail.Silent=true
jmail.Charset="gb2312"
jmail.logging=true
jmail.from=sys_mailuser
jmail.FromName=sys_mailuser
JMail.Subject =sys_mailtitle
jmail.MailServerUserName =sys_mailuser
jmail.MailServerPassWord =sys_mailpass
emailto = rs("sub_mail")
JMail.AddRecipient emailto
JMail.Body = content
jmail.Send(sys_mailserver)
set JMail = nothing
end if%><% end if %></table></div>
<%end if%>
<p align="center"><a href="INDEX.ASP">
<img border="0" src="images/home.gif" width="200" height="44"></a></td></tr></table></body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -