www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > chinese/pay_receive_99bill.asp

    <!--#include file="../opendb.asp" -->
<!-- #include file="../common/md5.asp" -->
<%
rs.open "select * from cnk_payway where payname='chinabank' and isopen=1",conn,1,1 

'获取参数
Dim merchant_id,orderid,amount,mydate,succeed,mymac,merchant_param
Dim key,src,mac,
merchant_id = request.querystring("merchant_id")	'商户编号
orderid = request.querystring("orderid")			'交易订单编号[商户网站]
amount = request.querystring("amount")				'交易金额
mydate = request.querystring("date")				'交易日期
succeed = request.querystring("succeed")			'交易结果，"Y"表示成功，"N"表示失败
mymac = request.querystring("mac")
merchant_param = request.querystring("merchant_param")

key = rs("paykey")	'私钥值。即商户登录99BILL快钱系统后设定的 商户密钥

'注意正确的参数串拼凑顺序
src = "merchant_id=" & merchant_id & "&orderid=" & orderid & "&amount=" & amount & "&date=" & mydate & "&succeed=" & succeed & "&merchant_key=" & key
  
'md5加密
mac=md5(src) 

Dim pay_msg,issucceed	
'mac值校验
if ucase(mac)=ucase(mymac)   then     	''---------如果签名验证成功！ [*特别提示*]
	if succeed="Y" then	'支付成功
		issucceed="支付成功"
		conn.execute("update cnk_orderform set zhuangtai=1,payway='快钱支付' where orderid='"&sqlchkchar(orderid)&"'")	'处理订单状态
	else	'支付失败
		issucceed="支付失败"
	end if 
	pay_msg="定单号："&orderid&"<br />"
	pay_msg=pay_msg&"支付金额："&amount&"<br />"
	pay_msg=pay_msg&"成功与否："&issucceed&"<br />"

else   	''--------------------------------------------------------------如果签名验证失败！
	pay_msg="认证失败!!!<br />"
end if

Call Closedb()
Response.write "<script language=javascript>"
Response.write "window.location.href='pay_showResult.asp?msg=" & pay_msg & "';"  '替换成商户网站相应页面地址
Response.write "</script>"

	
%>