send.asp
<%
'''''''''
' @Description: 快钱网关接口范例
' @Copyright (c) 上海快钱信息服务有限公司
' @version 2.0
'''''''''
merchant_id ="879905060103109788"
merchant_key ="99billKeyForTest"
orderid = "0226001"
amount = "0.02"
curr = "1"
isSupportDES = "2"
merchant_url = ""
pname = ""
commodity_info = ""
merchant_param = ""
pemail=""
pid=""
'''生成加密串,注意顺序
ScrtStr="merchant_id=" & merchant_id& "&orderid=" &orderid & "&amount="& amount &"&merchant_url=" & merchant_url& "&merchant_key="& merchant_key
mac=ucase(md5(ScrtStr))
%>
receive.asp
<%
'''''''''
' @Description: 快钱网关接口范例
' @Copyright (c) 上海快钱信息服务有限公司
' @version 2.0
'''''''''
merchant_key="99billKeyForTest"
merchant_id =request("merchant_id")
orderid = request("orderid")
amount = request("amount") '''获取订单金额
dealdate = request("date")
succeed = request("succeed") '''获取交易结果,Y成功,N失败
mac = request("mac")
merchant_param =request("merchant_param")
couponid =request("couponid")
couponvalue = request("couponvalue")
'''生成加密串,注意顺序
ScrtStr = "merchant_id=" & merchant_id& "&orderid=" &orderid & "&amount="& amount & "&date="& dealdate &"&succeed=" & succeed& "&merchant_key="& merchant_key
mymac=md5(ScrtStr)
v_result="失败"
if ucase(mac)=ucase(mymac)
else
end if
%>