asp 一些支付接口(42)
bytarray2binl = blks
End Function
Function binl2byt(binarray)
Dim bytarray()
ReDim bytarray(((UBound(binarray)+1) * 4) - 1)
Dim str
str = ""
Dim x
For x = 0 To ((UBound(binarray)+1) * 4) -1
bytarray(x) = _
LShift(( RShift( binarray(RShift(x,2)), ((x Mod 4)*8+4) ) And &hF ), 4) _
Or _
(RShift(binarray(RShift(x,2)),((x Mod 4)*8))) And &hF
Next
binl2byt = bytarray
End Function
Function binl2hex(binarray)
Dim hex_tab
hex_tab = "0123456789abcdef"
Dim str
str = ""
Dim x
For x=0 To ((UBound(binarray)+1) * 4) - 1
str = str + Mid(hex_tab,( RShift(binarray(RShift(x,2)), ((x Mod 4)*8+4)) And &hF )+1, 1) + _
Mid(hex_tab,( RShift(binarray(RShift(x,2)), ((x Mod 4)*8)) And &hF )+1, 1)
Next
binl2hex = str
End Function
%>
2.send.asp
复制代码 代码如下:
<!-- #include file="hmac-md5.asp" -->
<%
Dim merchantId
Dim keyValue
merchantId = request("cid") '''商户编号
keyValue = request("mykey") '''商户密钥
orderid = request("orderid") '''订单编号
amount = request("totalmoney") '''订单金额
%>
<%
Dim merchantCallbackURL
'设定秘钥，其中正式的merchantID以及秘钥value 需要从YeePay易宝提供给商家的商家自助服务系统获得
merchantId = merchantId '测试使用 merchant ID = "1001001"
keyValue = keyValue '测试使用 keyValue = "Key"
merchantCallbackURL = "" '用户完成交易完成后, 控制应用返回到商家自己的URL
%>
<!-- #include file="yeepayCommon.asp" -->
<%
Dim orderId
Dim productDesc
Dim productCat
Dim productId
Dim cur
Dim sMctProperties
Dim sNewString
Dim frpId
'商家设置用户购买商品的支付信息
orderId=orderid '商家的交易定单号此参数可选，但不能有重复（如果不输入YeePay会自动帮助商家生成一个订单号）
productId = "0" '商品ID(尽量清楚填写，方便以后统计订单)
内容版权声明：除非注明，否则皆为本站原创文章。