asp 一些支付接口

2019-01-13 07:07:04王振洲

        ASP_m_l2Power(0) = CLng(1)
        ASP_m_l2Power(1) = CLng(2)
        ASP_m_l2Power(2) = CLng(4)
        ASP_m_l2Power(3) = CLng(8)
        ASP_m_l2Power(4) = CLng(16)
        ASP_m_l2Power(5) = CLng(32)
        ASP_m_l2Power(6) = CLng(64)
        ASP_m_l2Power(7) = CLng(128)
        ASP_m_l2Power(8) = CLng(256)
        ASP_m_l2Power(9) = CLng(512)
        ASP_m_l2Power(10) = CLng(1024)
        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