asp 一些支付接口

Dim blks()
Redim blks(nblk*16 - 1)

Dim x
For x = 0 To nblk*16 - 1
blks(x) = 0
Next

Dim arIdx
For x = 0 To UBound(barray)
arIdx = RShift(x,2)
blks(arIdx) = blks(arIdx) Or LShift( barray(x) And &hFF, (x Mod 4) * 8)
Next

blks(RShift(x,2)) = blks(RShift(x,2)) Or LShift(&h80, ((x Mod 4) * 8))
blks(nblk*16-2) = (UBound(barray)+1) * 8
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(尽量清楚填写，方便以后统计订单)    
    amount=amount     '购买金额(必须)
    cur="CNY"                    '货币单位(固定不需要修改，现在一般只会支持人民币交易)
    productDesc = ""            '商品描述(可保持为空)
    productCat = ""                '商品种类(可保持为空)