asp 一些支付接口(30)

        ASP_m_l2Power(11) = CLng(2048)
        ASP_m_l2Power(12) = CLng(4096)
        ASP_m_l2Power(13) = CLng(8192)
        ASP_m_l2Power(14) = CLng(16384)
        ASP_m_l2Power(15) = CLng(32768)
        ASP_m_l2Power(16) = CLng(65536)
        ASP_m_l2Power(17) = CLng(131072)
        ASP_m_l2Power(18) = CLng(262144)
        ASP_m_l2Power(19) = CLng(524288)
        ASP_m_l2Power(20) = CLng(1048576)
        ASP_m_l2Power(21) = CLng(2097152)
        ASP_m_l2Power(22) = CLng(4194304)
        ASP_m_l2Power(23) = CLng(8388608)
        ASP_m_l2Power(24) = CLng(16777216)
        ASP_m_l2Power(25) = CLng(33554432)
        ASP_m_l2Power(26) = CLng(67108864)
        ASP_m_l2Power(27) = CLng(134217728)
        ASP_m_l2Power(28) = CLng(268435456)
        ASP_m_l2Power(29) = CLng(536870912)
        ASP_m_l2Power(30) = CLng(1073741824)

        
        Dim x
        Dim k
        Dim AA
        Dim BB
        Dim CC
        Dim DD
        Dim a
        Dim b
        Dim c
        Dim d

        Const S11 = 7
        Const S12 = 12
        Const S13 = 17
        Const S14 = 22
        Const S21 = 5
        Const S22 = 9
        Const S23 = 14
        Const S24 = 20
        Const S31 = 4
        Const S32 = 11
        Const S33 = 16