?? receivepayment1.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 = "004291"
merpassword = "bbmmddwoainimenmingxingjiazu"
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><img border="0" src="images/top.gif" width="500" height="79"></td></tr>
<tr><td><%if signature<>"" and UCase(succ)="Y" and result=0 then
%>
<%set rs=server.createobject("adodb.recordset")
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 onlinepay where sub_getbank='"&billno&"' and sub_payok=false"
rs.open sql,conn,3,3
if rs.eof then
%>
<div align="center"><br>
訂單號不對!請與管理員聯系!<br></div>
<%elseif csng(amount)<>csng(round(rs("sub_totalcash")+rs("sub_totalcash")*0.01,2)) then%>
<div align="center"><br>您所支付的充值費與實際所付的不一樣,請與管理員聯系。謝謝合作<br></div>
<%else%>
<%rs("sub_payok")=true
rs.update
set rs1=server.createobject("adodb.recordset")
sql1="select * from [user] where user_name='"&rs("sub_username")&"'"
rs1.open sql1,conn,3,3
rs1("user_money")=csng(rs1("user_money"))+csng(rs("sub_totalcash"))
rs1.update
%><div align="center"><br>您的費用已充值以您的帳戶上了,本次充值:<%=csng(csng(rs("sub_totalcash")))%>,充值后金額為:<%=rs1("user_money")%><br></div>
<% rs1.close
end if %>
<%rs.close
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 + -