📄 user_pay_net_epay_success.asp
字号:
Const S11 = 7
Const S12 = 12
Const S13 = 17
Const S14 = 22
Const S21 = 5
Const S22 = 9
Const S23 = 14
Const S24 = 20
Const S31 = 4
Const S32 = 11
Const S33 = 16
Const S34 = 23
Const S41 = 6
Const S42 = 10
Const S43 = 15
Const S44 = 21
x = ConvertToWordArray(sMessage)
a = &H67452301
b = &HEFCDAB89
c = &H98BADCFE
d = &H10325476
For k = 0 To UBound(x) Step 16
AA = a
BB = b
CC = c
DD = d
md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478
md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756
md5_FF c, d, a, b, x(k + 2), S13, &H242070DB
md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE
md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF
md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A
md5_FF c, d, a, b, x(k + 6), S13, &HA8304613
md5_FF b, c, d, a, x(k + 7), S14, &HFD469501
md5_FF a, b, c, d, x(k + 8), S11, &H698098D8
md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF
md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1
md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE
md5_FF a, b, c, d, x(k + 12), S11, &H6B901122
md5_FF d, a, b, c, x(k + 13), S12, &HFD987193
md5_FF c, d, a, b, x(k + 14), S13, &HA679438E
md5_FF b, c, d, a, x(k + 15), S14, &H49B40821
md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562
md5_GG d, a, b, c, x(k + 6), S22, &HC040B340
md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51
md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA
md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D
md5_GG d, a, b, c, x(k + 10), S22, &H2441453
md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681
md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8
md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6
md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6
md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87
md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED
md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905
md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8
md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9
md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A
md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942
md5_HH d, a, b, c, x(k + 8), S32, &H8771F681
md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122
md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C
md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44
md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9
md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60
md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70
md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6
md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA
md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085
md5_HH b, c, d, a, x(k + 6), S34, &H4881D05
md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039
md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5
md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8
md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665
md5_II a, b, c, d, x(k + 0), S41, &HF4292244
md5_II d, a, b, c, x(k + 7), S42, &H432AFF97
md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7
md5_II b, c, d, a, x(k + 5), S44, &HFC93A039
md5_II a, b, c, d, x(k + 12), S41, &H655B59C3
md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92
md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D
md5_II b, c, d, a, x(k + 1), S44, &H85845DD1
md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F
md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
md5_II c, d, a, b, x(k + 6), S43, &HA3014314
md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1
md5_II a, b, c, d, x(k + 4), S41, &HF7537E82
md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235
md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
md5_II b, c, d, a, x(k + 9), S44, &HEB86D391
a = AddUnsigned(a, AA)
b = AddUnsigned(b, BB)
c = AddUnsigned(c, CC)
d = AddUnsigned(d, DD)
Next
MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))
End Function
'--------------- MD5 算法结束 -------------------
%>
<html>
<head>
</head>
<body>
<%
clientMD5PrivateKey =clientMD5PrivateKey ''epay.net.cn 分配给你的md5加密key
epayClientMerchID= Request.form("epayClientMerchID") '我们(epay.net.cn)返回的订单的商户号
epayClientMerchPwd=Request.form("epayClientMerchPwd") '我们(epay.net.cn)返回的订单的商户密码
epayClientOrderNum=Request.form("epayClientOrderNum") '返回的订单号
epayClientOrderTranStatus=Request.form("epayClientOrderTranStatus")'返回订单的交易情况
signature=Request.form("signature") '返回签名值
''判断返回的订单的交易情况代码epayClientOrderTranStatus变量的值
''如果它为 "Y" 同时要进一步检查返回的加密签名值
IF epayClientOrderTranStatus="Y" Then
''将epayClientMerchID，epayClientMerchPwd，epayClientOrderNum，epayClientOrderTranStatus,clientMD5PrivateKey
''五者各自消去前后空格后用:字符联起来
lnkStr=trim(epayClientMerchID)+":"+trim(epayClientMerchPwd)+":"+trim(epayClientOrderNum)+":"+trim(epayClientOrderTranStatus)+":"+trim(clientMD5PrivateKey)
''对串联起来的值经MD5求出对应的MD5加密值
strCountSignature=MD5(lnkStr)
''如果求出的MD5加密值和返回的加密签名值相同证明当前的订单的交易是成功的，否则当前订单的交易是失败的
IF trim(strCountSignature)=trim(signature) Then
Response.Write("支付成功！")'订单成功，商户自行处理
ELSE
Response.Write("支付失败！")'订单失败，商户自行处理
response.end
End IF
ELSE
Response.Write("支付失败！")'订单失败，商户自行处理
response.end
End IF
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from buy where id="&request.cookies("id9988")
rs.open sql,conn,1,3
money=rs("money")
oklook=rs("oklook")
paymoney=rs("paymoney")
set rs=server.createobject("adodb.recordset")
sql="select money,starlook,oklook,askmejoin from users where userid='"&request.cookies("userid")&"'"
rs.open sql,conn,1,3
askmejoin=rs("askmejoin")
rs("starlook")=now()
if rs("money")-now()<1 then
rs("money")=now() + money
rs("oklook")=oklook
else
rs("money")=rs("money") + money
rs("oklook")=oklook
end if
rs.update
conn.execute"delete from buy where userid='"&request.cookies("userid")&"'"
%>
<html>
<head>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="../images/style.css" type=text/css rel=stylesheet>
<title>支付确认信息</title>
</head>
<body>
<div align="center">
<center>
<table border="0" cellspacing="0" width="70%" style="border-collapse: collapse" height="94">
<tr>
<td height="28" style="font-size: 12px">
<div align="center" style="font-size: 12px">
<center><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="85%" id="AutoNumber3">
<tr>
<td width="100%" style="font-size: 12px">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber3" height="2">
<tr>
<td width="100%" style="font-size: 12px">
<table border="1" cellspacing="1" style="border-collapse: collapse" width="100%" id="AutoNumber4" bgcolor="#DBDBDB">
<tr>
<td width="100%" height="25" style="font-size: 12px"><span lang="zh-cn"><b>尊敬的会员<%=request.cookies("userid")%>，以下是您的支付信息：</b></span></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="1" style="font-size: 12px"></td>
</tr>
<tr>
<td width="100%" style="font-size: 12px"></td>
</tr>
<tr>
<td width="100%" style="font-size: 12px">
<table border="1" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber5" bordercolordark="#FFFFFF" bordercolorlight="#000000" cellpadding="2">
<tr>
<td width="100%" style="font-size: 12px">
<table border="0" cellpadding="4" cellspacing="1" width="100%" height="84">
<tr>
<td width="59%" align="center" bgcolor="#F0F0F0" height="54" style="font-size: 12px">
恭喜，支付成功！<br><br>
您现在可以看电影了，祝您愉快！<br><br>
<a href=../>返回首页>></a></td>
</tr>
</center>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div></td></tr></table></center></div>
</body></html>
<%
if askmejoin<>"" then
set rs=server.createobject("adodb.recordset")
sql="select getmoney,payno,oklook from users where userid='"&askmejoin&"'"
rs.open sql,conn,1,3
if rs("oklook")=0 or rs("oklook")=1 then
give=1
elseif rs("oklook")=2 then
give=2
elseif rs("oklook")=3 then
give=3
elseif rs("oklook")=4 then
give=4
end if
rs("getmoney")=cint(rs("getmoney"))+paymoney/10*give
rs("payno")=cint(rs("payno"))+1
rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -