📄 receive_chinabank.asp

📁 是一套很好的数码购物系统
💻 ASP
字号:
<!--#include file="include/buyok_shop_30_conn.asp" -->
<!--#include file="chopchar.asp"-->
<html><head>
<title>在线支付结果-<%=sitename%>-<%=siteurl%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
body  {font-family: "宋体";font-size:15pt;}
</style>
</head>
<body  text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<blockquote>
<%
v_oid=request("v_oid")			'订单号
v_pmode=request("v_pmode")		'支付方式
v_pstatus=request("v_pstatus")		'支付状态
v_pstring=request("v_pstring")		'支付结果
v_amount=request("v_amount")		'支付金额
v_moneytype=request("v_moneytype")	'币种
remark1=request("remark1")		'备注信息
remark2=request("remark2")		'备注信息
v_md5str=request("v_md5str")		'MD5校验串

if request("v_md5str")="" then
	response.Write("<br><b>支付失败，在线支付服务器返回的校验码为空值。</b>")
	response.end
end if

Set rs = conn.Execute("select * from pay") 
key=rs("chinakey")
set rs=nothing

text = v_oid&v_pstatus&v_amount&v_moneytype&key
md5text = Ucase(trim(md5(text)))

if md5text<>v_md5str then
	response.write("<br><b>支付失败，校验码不正确。</b>")
	response.end
else

  if v_pstatus=20 then
	'以下结果仅供参考，鉴于网络数据传输的可伪造性，因此回传的数据可能有假，请以网银在线后台的数据为准。
	sql="select * from buyok_OrderList where OrderNum='"&v_oid&"'"
	set rs=Server.Createobject("ADODB.RecordSet")
	rs.Open sql,conn,1,3

	if csng(v_amount)=csng(rs("ordersum")) then 
	rs("Status")="88" 
	response.write "<br><font color=red size=+5><b>在线支付成功！</b></font>"
	else
	response.write "<br><font color=#000000 size=+5><b>在线支付失败！</b></font>"
	end if
	rs.update
	rs.close
	set rs=nothing
  else
	response.write "<br><font color=#000000 size=+5><b>在线支付失败！</b></font>"
	response.end
  end if

end if
%>

<br><br><br><b><font color="RED">提示：</font> 您网上在线支付情况反馈如下：</b>
<br>此次交易订单号：<%=v_oid%>
<br>支付状态:
<%if v_pstatus=20 then
response.write "在线支付成功！"
elseif v_pstatus=30 then response.write "在线支付失败！"
end if%>
<br>支付代码号：<%=v_pstatus%>
<br>在线支付结果：<%=v_pstring%> 
<br>您所使用的卡为：<%=v_pmode%>
<br>服务器返回的校验码：<%=v_md5str%>
<br>加密串值：<%=md5text%>
<br>本交支付金额：<%=v_amount%>
<br>支付币种：<%=v_moneytype%>
<br><br>
<b>如有疑问，请及时与我们联系：</b>
<br><%=adm_kf%><br><br><%=sitename%><br><%=siteurl%>


</blockquote>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -