asp 一些支付接口

<%
'''''''''
' @description: 快钱网关接口范例
' @copyright (c) 上海快钱信息服务有限公司
' @version 2.0
'''''''''
private const bits_to_a_byte = 8
private const bytes_to_a_word = 4
private const bits_to_a_word = 32

private m_lonbits(30)
private m_l2power(30)

private function lshift(lvalue, ishiftbits)
if ishiftbits = 0 then
lshift = lvalue
exit function
elseif ishiftbits = 31 then
if lvalue and 1 then
lshift = &h80000000
else
lshift = 0
end if
exit function
elseif ishiftbits < 0 or ishiftbits > 31 then
err.raise 6
end if

if (lvalue and m_l2power(31 - ishiftbits)) then
lshift = ((lvalue and m_lonbits(31 - (ishiftbits + 1))) * m_l2power(ishiftbits)) or &h80000000
else
lshift = ((lvalue and m_lonbits(31 - ishiftbits)) * m_l2power(ishiftbits))
end if
end function

private function rshift(lvalue, ishiftbits)
if ishiftbits = 0 then
rshift = lvalue
exit function
elseif ishiftbits = 31 then
if lvalue and &h80000000 then
rshift = 1
else
rshift = 0
end if
exit function
elseif ishiftbits < 0 or ishiftbits > 31 then
err.raise 6
end if

rshift = (lvalue and &h7ffffffe) m_l2power(ishiftbits)

if (lvalue and &h80000000) then
rshift = (rshift or (&h40000000 m_l2power(ishiftbits - 1)))
end if
end function

private function rotateleft(lvalue, ishiftbits)
rotateleft = lshift(lvalue, ishiftbits) or rshift(lvalue, (32 - ishiftbits))
end function

private function addunsigned(lx, ly)
dim lx4
dim ly4
dim lx8
dim ly8
dim lresult

lx8 = lx and &h80000000
ly8 = ly and &h80000000
lx4 = lx and &h40000000
ly4 = ly and &h40000000

lresult = (lx and &h3fffffff) + (ly and &h3fffffff)

if lx4 and ly4 then
lresult = lresult xor &h80000000 xor lx8 xor ly8
elseif lx4 or ly4 then
if lresult and &h40000000 then
lresult = lresult xor &hc0000000 xor lx8 xor ly8
else
lresult = lresult xor &h40000000 xor lx8 xor ly8
end if
else
lresult = lresult xor lx8 xor ly8
end if

addunsigned = lresult
end function

private function md5_f(x, y, z)
md5_f = (x and y) or ((not x) and z)
end function

private function md5_g(x, y, z)
md5_g = (x and z) or (y and (not z))
end function

private function md5_h(x, y, z)
md5_h = (x xor y xor z)
end function

private function md5_i(x, y, z)
md5_i = (y xor (x or (not z)))
end function

private sub md5_ff(a, b, c, d, x, s, ac)
a = addunsigned(a, addunsigned(addunsigned(md5_f(b, c, d), x), ac))
a = rotateleft(a, s)
a = addunsigned(a, b)
end sub

private sub md5_gg(a, b, c, d, x, s, ac)
a = addunsigned(a, addunsigned(addunsigned(md5_g(b, c, d), x), ac))
a = rotateleft(a, s)
a = addunsigned(a, b)
end sub

private sub md5_hh(a, b, c, d, x, s, ac)
a = addunsigned(a, addunsigned(addunsigned(md5_h(b, c, d), x), ac))
a = rotateleft(a, s)
a = addunsigned(a, b)
end sub

private sub md5_ii(a, b, c, d, x, s, ac)
a = addunsigned(a, addunsigned(addunsigned(md5_i(b, c, d), x), ac))
a = rotateleft(a, s)
a = addunsigned(a, b)
end sub

private function converttowordarray(smessage)
dim lmessagelength
dim lnumberofwords
dim lwordarray()
dim lbyteposition
dim lbytecount
dim lwordcount

const modulus_bits = 512
const congruent_bits = 448

lmessagelength = len(smessage)

lnumberofwords = (((lmessagelength + ((modulus_bits - congruent_bits) bits_to_a_byte)) (modulus_bits bits_to_a_byte)) + 1) * (modulus_bits bits_to_a_word)
redim lwordarray(lnumberofwords - 1)

lbyteposition = 0
lbytecount = 0
do until lbytecount >= lmessagelength
lwordcount = lbytecount bytes_to_a_word
lbyteposition = (lbytecount mod bytes_to_a_word) * bits_to_a_byte
lwordarray(lwordcount) = lwordarray(lwordcount) or lshift(asc(mid(smessage, lbytecount + 1, 1)), lbyteposition)
lbytecount = lbytecount + 1
loop

lwordcount = lbytecount bytes_to_a_word
lbyteposition = (lbytecount mod bytes_to_a_word) * bits_to_a_byte

lwordarray(lwordcount) = lwordarray(lwordcount) or lshift(&h80, lbyteposition)

lwordarray(lnumberofwords - 2) = lshift(lmessagelength, 3)
lwordarray(lnumberofwords - 1) = rshift(lmessagelength, 29)

converttowordarray = lwordarray
end function

private function wordtohex(lvalue)
dim lbyte
dim lcount

for lcount = 0 to 3
lbyte = rshift(lvalue, lcount * bits_to_a_byte) and m_lonbits(bits_to_a_byte - 1)
wordtohex = wordtohex & right("0" & hex(lbyte), 2)
next
end function

public function md5(smessage)
m_lonbits(0) = clng(1)
m_lonbits(1) = clng(3)
m_lonbits(2) = clng(7)
m_lonbits(3) = clng(15)
m_lonbits(4) = clng(31)
m_lonbits(5) = clng(63)
m_lonbits(6) = clng(127)
m_lonbits(7) = clng(255)
m_lonbits(8) = clng(511)
m_lonbits(9) = clng(1023)
m_lonbits(10) = clng(2047)
m_lonbits(11) = clng(4095)
m_lonbits(12) = clng(8191)
m_lonbits(13) = clng(16383)
m_lonbits(14) = clng(32767)
m_lonbits(15) = clng(65535)
m_lonbits(16) = clng(131071)
m_lonbits(17) = clng(262143)
m_lonbits(18) = clng(524287)
m_lonbits(19) = clng(1048575)
m_lonbits(20) = clng(2097151)
m_lonbits(21) = clng(4194303)
m_lonbits(22) = clng(8388607)
m_lonbits(23) = clng(16777215)
m_lonbits(24) = clng(33554431)
m_lonbits(25) = clng(67108863)
m_lonbits(26) = clng(134217727)
m_lonbits(27) = clng(268435455)
m_lonbits(28) = clng(536870911)
m_lonbits(29) = clng(1073741823)
m_lonbits(30) = clng(2147483647)

m_l2power(0) = clng(1)
m_l2power(1) = clng(2)
m_l2power(2) = clng(4)
m_l2power(3) = clng(8)
m_l2power(4) = clng(16)
m_l2power(5) = clng(32)
m_l2power(6) = clng(64)
m_l2power(7) = clng(128)
m_l2power(8) = clng(256)
m_l2power(9) = clng(512)
m_l2power(10) = clng(1024)
m_l2power(11) = clng(2048)
m_l2power(12) = clng(4096)
m_l2power(13) = clng(8192)
m_l2power(14) = clng(16384)
m_l2power(15) = clng(32768)
m_l2power(16) = clng(65536)
m_l2power(17) = clng(131072)
m_l2power(18) = clng(262144)
m_l2power(19) = clng(524288)
m_l2power(20) = clng(1048576)
m_l2power(21) = clng(2097152)
m_l2power(22) = clng(4194304)
m_l2power(23) = clng(8388608)
m_l2power(24) = clng(16777216)
m_l2power(25) = clng(33554432)
m_l2power(26) = clng(67108864)
m_l2power(27) = clng(134217728)
m_l2power(28) = clng(268435456)
m_l2power(29) = clng(536870912)
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
const s34 = 23
const s41 = 6
const s42 = 10
const s43 = 15
const s44 = 21

x = converttowordarray(smessage)

a = &h67452301
b = &hefcdab89
c = &h98badcfe
d = &h10325476

for k = 0 to ubound(x) step 16
aa = a
bb = b
cc = c
dd = d

md5_ff a, b, c, d, x(k + 0), s11, &hd76aa478
md5_ff d, a, b, c, x(k + 1), s12, &he8c7b756
md5_ff c, d, a, b, x(k + 2), s13, &h242070db
md5_ff b, c, d, a, x(k + 3), s14, &hc1bdceee
md5_ff a, b, c, d, x(k + 4), s11, &hf57c0faf
md5_ff d, a, b, c, x(k + 5), s12, &h4787c62a
md5_ff c, d, a, b, x(k + 6), s13, &ha8304613
md5_ff b, c, d, a, x(k + 7), s14, &hfd469501
md5_ff a, b, c, d, x(k + 8), s11, &h698098d8
md5_ff d, a, b, c, x(k + 9), s12, &h8b44f7af
md5_ff c, d, a, b, x(k + 10), s13, &hffff5bb1
md5_ff b, c, d, a, x(k + 11), s14, &h895cd7be
md5_ff a, b, c, d, x(k + 12), s11, &h6b901122
md5_ff d, a, b, c, x(k + 13), s12, &hfd987193
md5_ff c, d, a, b, x(k + 14), s13, &ha679438e
md5_ff b, c, d, a, x(k + 15), s14, &h49b40821

md5_gg a, b, c, d, x(k + 1), s21, &hf61e2562
md5_gg d, a, b, c, x(k + 6), s22, &hc040b340
md5_gg c, d, a, b, x(k + 11), s23, &h265e5a51
md5_gg b, c, d, a, x(k + 0), s24, &he9b6c7aa
md5_gg a, b, c, d, x(k + 5), s21, &hd62f105d
md5_gg d, a, b, c, x(k + 10), s22, &h2441453
md5_gg c, d, a, b, x(k + 15), s23, &hd8a1e681
md5_gg b, c, d, a, x(k + 4), s24, &he7d3fbc8
md5_gg a, b, c, d, x(k + 9), s21, &h21e1cde6
md5_gg d, a, b, c, x(k + 14), s22, &hc33707d6
md5_gg c, d, a, b, x(k + 3), s23, &hf4d50d87
md5_gg b, c, d, a, x(k + 8), s24, &h455a14ed
md5_gg a, b, c, d, x(k + 13), s21, &ha9e3e905
md5_gg d, a, b, c, x(k + 2), s22, &hfcefa3f8
md5_gg c, d, a, b, x(k + 7), s23, &h676f02d9
md5_gg b, c, d, a, x(k + 12), s24, &h8d2a4c8a

md5_hh a, b, c, d, x(k + 5), s31, &hfffa3942
md5_hh d, a, b, c, x(k + 8), s32, &h8771f681
md5_hh c, d, a, b, x(k + 11), s33, &h6d9d6122
md5_hh b, c, d, a, x(k + 14), s34, &hfde5380c
md5_hh a, b, c, d, x(k + 1), s31, &ha4beea44
md5_hh d, a, b, c, x(k + 4), s32, &h4bdecfa9
md5_hh c, d, a, b, x(k + 7), s33, &hf6bb4b60
md5_hh b, c, d, a, x(k + 10), s34, &hbebfbc70
md5_hh a, b, c, d, x(k + 13), s31, &h289b7ec6
md5_hh d, a, b, c, x(k + 0), s32, &heaa127fa
md5_hh c, d, a, b, x(k + 3), s33, &hd4ef3085
md5_hh b, c, d, a, x(k + 6), s34, &h4881d05
md5_hh a, b, c, d, x(k + 9), s31, &hd9d4d039
md5_hh d, a, b, c, x(k + 12), s32, &he6db99e5
md5_hh c, d, a, b, x(k + 15), s33, &h1fa27cf8
md5_hh b, c, d, a, x(k + 2), s34, &hc4ac5665

md5_ii a, b, c, d, x(k + 0), s41, &hf4292244
md5_ii d, a, b, c, x(k + 7), s42, &h432aff97
md5_ii c, d, a, b, x(k + 14), s43, &hab9423a7
md5_ii b, c, d, a, x(k + 5), s44, &hfc93a039
md5_ii a, b, c, d, x(k + 12), s41, &h655b59c3
md5_ii d, a, b, c, x(k + 3), s42, &h8f0ccc92
md5_ii c, d, a, b, x(k + 10), s43, &hffeff47d
md5_ii b, c, d, a, x(k + 1), s44, &h85845dd1
md5_ii a, b, c, d, x(k + 8), s41, &h6fa87e4f
md5_ii d, a, b, c, x(k + 15), s42, &hfe2ce6e0
md5_ii c, d, a, b, x(k + 6), s43, &ha3014314
md5_ii b, c, d, a, x(k + 13), s44, &h4e0811a1
md5_ii a, b, c, d, x(k + 4), s41, &hf7537e82
md5_ii d, a, b, c, x(k + 11), s42, &hbd3af235
md5_ii c, d, a, b, x(k + 2), s43, &h2ad7d2bb
md5_ii b, c, d, a, x(k + 9), s44, &heb86d391

a = addunsigned(a, aa)
b = addunsigned(b, bb)
c = addunsigned(c, cc)
d = addunsigned(d, dd)
next

md5 = lcase(wordtohex(a) & wordtohex(b) & wordtohex(c) & wordtohex(d))    '32byte
'md5 = lcase(wordtohex(b) & wordtohex(c)) 'i crop this to fit 16byte database password :d
end function
%>

<!--#include file="md5.asp"-->
<%
'''''''''
' @description: 快钱网关接口范例
' @copyright (c) 上海快钱信息服务有限公司
' @version 2.0
'''''''''
merchant_id = request("cid")        '''商户编号
merchant_key = request("mykey")        '''商户密钥
orderid = request("orderid")        '''订单编号
amount = request("totalmoney")        '''订单金额
curr = "1"        '''货币类型,1为人民币
issupportdes = "2"        '''是否安全校验,2为必校验,推荐

merchant_url = ""        '''支付结果返回地址
pname = request("pname")        '''支付人姓名
commodity_info = ""        '''商品信息
merchant_param = ""        '''商户私有参数

pemail=""        '''传递email到快钱网关页面
pid=""        '''代理/合作伙伴商户编号

'''生成加密串,注意顺序
scrtstr="merchant_id=" & merchant_id & "&orderid=" & orderid & "&amount=" & amount & "&merchant_url=" & merchant_url & "&merchant_key=" & merchant_key
mac=ucase(md5(scrtstr))

%>

<!doctype html public "-//w3c//dtd html 4.0 transitional//en" >
<html>
    <head>
        <title>快钱99bill</title>
        <meta http-equiv="content-type" content="text/html; charset=gb2312" >
    </head>

<body onload="javascript:document.frm.submit()">


        <form name="frm" method="post" action="https://www.99bill.com/webapp/receivemerchantinfoaction.do">
            <input name="merchant_id" type="hidden" value="<%=merchant_id%>">
            <input name="orderid" type="hidden" value="<%=orderid%>">
            <input name="amount" type="hidden" value="<%=amount%>">
            <input name="currency" type="hidden" value="<%=curr%>">
            <input name="issupportdes" type="hidden" value="<%=issupportdes%>">
            <input name="mac" type="hidden" value="<%=mac%>">

            <input name="merchant_url" type="hidden" value="<%=merchant_url%>">
            <input name="pname" type="hidden" value="<%=pname%>">
            <input name="commodity_info" type="hidden" value="<%=commodity_info%>">
            <input name="merchant_param" type="hidden" value="<%=merchant_param%>">

            <input name="pemail" type="hidden" value="<%=pemail%>">
            <input name="pid" type="hidden" value="<%=pid%>">

        </form>

</body>
</html>

<%
private const bits_to_a_byte = 8
private const bytes_to_a_word = 4
private const bits_to_a_word = 32

private m_lonbits(30)
private m_l2power(30)

private function lshift(lvalue, ishiftbits)
    if ishiftbits = 0 then
        lshift = lvalue
        exit function
    elseif ishiftbits = 31 then
        if lvalue and 1 then
            lshift = &h80000000
        else
            lshift = 0
        end if
        exit function
    elseif ishiftbits < 0 or ishiftbits > 31 then
        err.raise 6
    end if

    if (lvalue and m_l2power(31 - ishiftbits)) then
        lshift = ((lvalue and m_lonbits(31 - (ishiftbits + 1))) * m_l2power(ishiftbits)) or &h80000000
    else
        lshift = ((lvalue and m_lonbits(31 - ishiftbits)) * m_l2power(ishiftbits))
    end if
end function

private function str2bin(varstr)
dim varasc
dim i
dim varchar
dim varlow
dim varhigh

    str2bin=""
for i=1 to len(varstr)
varchar=mid(varstr,i,1)
varasc = asc(varchar)

if varasc<0 then
varasc = varasc + 65535
end if

if varasc>255 then
varlow = left(hex(asc(varchar)),2)
varhigh = right(hex(asc(varchar)),2)
str2bin = str2bin & chrb("&h" & varlow) & chrb("&h" & varhigh)
else
str2bin = str2bin & chrb(ascb(varchar))
end if
next
end function

private function rshift(lvalue, ishiftbits)
    if ishiftbits = 0 then
        rshift = lvalue
        exit function
    elseif ishiftbits = 31 then
        if lvalue and &h80000000 then
            rshift = 1
        else
            rshift = 0
        end if
        exit function
    elseif ishiftbits < 0 or ishiftbits > 31 then
        err.raise 6
    end if

    rshift = (lvalue and &h7ffffffe) m_l2power(ishiftbits)

    if (lvalue and &h80000000) then
        rshift = (rshift or (&h40000000 m_l2power(ishiftbits - 1)))
    end if
end function

private function rotateleft(lvalue, ishiftbits)
    rotateleft = lshift(lvalue, ishiftbits) or rshift(lvalue, (32 - ishiftbits))
end function

private function addunsigned(lx, ly)
    dim lx4
    dim ly4
    dim lx8
    dim ly8
    dim lresult

    lx8 = lx and &h80000000
    ly8 = ly and &h80000000
    lx4 = lx and &h40000000
    ly4 = ly and &h40000000

    lresult = (lx and &h3fffffff) + (ly and &h3fffffff)

    if lx4 and ly4 then
        lresult = lresult xor &h80000000 xor lx8 xor ly8
    elseif lx4 or ly4 then
        if lresult and &h40000000 then
            lresult = lresult xor &hc0000000 xor lx8 xor ly8
        else
            lresult = lresult xor &h40000000 xor lx8 xor ly8
        end if
    else
        lresult = lresult xor lx8 xor ly8
    end if

    addunsigned = lresult
end function

private function md5_f(x, y, z)
    md5_f = (x and y) or ((not x) and z)
end function

private function md5_g(x, y, z)
    md5_g = (x and z) or (y and (not z))
end function

private function md5_h(x, y, z)
    md5_h = (x xor y xor z)
end function

private function md5_i(x, y, z)
    md5_i = (y xor (x or (not z)))
end function

private sub md5_ff(a, b, c, d, x, s, ac)
    a = addunsigned(a, addunsigned(addunsigned(md5_f(b, c, d), x), ac))
    a = rotateleft(a, s)
    a = addunsigned(a, b)
end sub

private sub md5_gg(a, b, c, d, x, s, ac)
    a = addunsigned(a, addunsigned(addunsigned(md5_g(b, c, d), x), ac))
    a = rotateleft(a, s)
    a = addunsigned(a, b)
end sub

private sub md5_hh(a, b, c, d, x, s, ac)
    a = addunsigned(a, addunsigned(addunsigned(md5_h(b, c, d), x), ac))
    a = rotateleft(a, s)
    a = addunsigned(a, b)
end sub

private sub md5_ii(a, b, c, d, x, s, ac)
    a = addunsigned(a, addunsigned(addunsigned(md5_i(b, c, d), x), ac))
    a = rotateleft(a, s)
    a = addunsigned(a, b)
end sub

private function converttowordarray(smessage)
    dim lmessagelength
    dim lnumberofwords
    dim lwordarray()
    dim lbyteposition
    dim lbytecount
    dim lwordcount

    const modulus_bits = 512
    const congruent_bits = 448

    lmessagelength = lenb(smessage)

    lnumberofwords = (((lmessagelength + ((modulus_bits - congruent_bits) bits_to_a_byte)) (modulus_bits bits_to_a_byte)) + 1) * (modulus_bits bits_to_a_word)
    redim lwordarray(lnumberofwords - 1)

    lbyteposition = 0
lbytecount = 0
    do until lbytecount >= lmessagelength
        lwordcount = lbytecount bytes_to_a_word
        lbyteposition = (lbytecount mod bytes_to_a_word) * bits_to_a_byte
        lwordarray(lwordcount) = lwordarray(lwordcount) or lshift(ascb(midb(smessage, lbytecount + 1, 1)), lbyteposition)
        lbytecount = lbytecount + 1
    loop

    lwordcount = lbytecount bytes_to_a_word
    lbyteposition = (lbytecount mod bytes_to_a_word) * bits_to_a_byte

    lwordarray(lwordcount) = lwordarray(lwordcount) or lshift(&h80, lbyteposition)

    lwordarray(lnumberofwords - 2) = lshift(lmessagelength, 3)
    lwordarray(lnumberofwords - 1) = rshift(lmessagelength, 29)

    converttowordarray = lwordarray
end function

private function wordtohex(lvalue)
    dim lbyte
    dim lcount

    for lcount = 0 to 3
        lbyte = rshift(lvalue, lcount * bits_to_a_byte) and m_lonbits(bits_to_a_byte - 1)
        wordtohex = wordtohex & right("0" & hex(lbyte), 2)
    next
end function

public function md5(smessage)
    m_lonbits(0) = clng(1)
    m_lonbits(1) = clng(3)
    m_lonbits(2) = clng(7)
    m_lonbits(3) = clng(15)
    m_lonbits(4) = clng(31)
    m_lonbits(5) = clng(63)
    m_lonbits(6) = clng(127)
    m_lonbits(7) = clng(255)
    m_lonbits(8) = clng(511)
    m_lonbits(9) = clng(1023)
    m_lonbits(10) = clng(2047)
    m_lonbits(11) = clng(4095)
    m_lonbits(12) = clng(8191)
    m_lonbits(13) = clng(16383)
    m_lonbits(14) = clng(32767)
    m_lonbits(15) = clng(65535)
    m_lonbits(16) = clng(131071)
    m_lonbits(17) = clng(262143)
    m_lonbits(18) = clng(524287)
    m_lonbits(19) = clng(1048575)
    m_lonbits(20) = clng(2097151)
    m_lonbits(21) = clng(4194303)
    m_lonbits(22) = clng(8388607)
    m_lonbits(23) = clng(16777215)
    m_lonbits(24) = clng(33554431)
    m_lonbits(25) = clng(67108863)
    m_lonbits(26) = clng(134217727)
    m_lonbits(27) = clng(268435455)
    m_lonbits(28) = clng(536870911)
    m_lonbits(29) = clng(1073741823)
    m_lonbits(30) = clng(2147483647)

    m_l2power(0) = clng(1)
    m_l2power(1) = clng(2)
    m_l2power(2) = clng(4)
    m_l2power(3) = clng(8)
    m_l2power(4) = clng(16)
    m_l2power(5) = clng(32)
    m_l2power(6) = clng(64)
    m_l2power(7) = clng(128)
    m_l2power(8) = clng(256)
    m_l2power(9) = clng(512)
    m_l2power(10) = clng(1024)
    m_l2power(11) = clng(2048)
    m_l2power(12) = clng(4096)
    m_l2power(13) = clng(8192)
    m_l2power(14) = clng(16384)
    m_l2power(15) = clng(32768)
    m_l2power(16) = clng(65536)
    m_l2power(17) = clng(131072)
    m_l2power(18) = clng(262144)
    m_l2power(19) = clng(524288)
    m_l2power(20) = clng(1048576)
    m_l2power(21) = clng(2097152)
    m_l2power(22) = clng(4194304)
    m_l2power(23) = clng(8388608)
    m_l2power(24) = clng(16777216)
    m_l2power(25) = clng(33554432)
    m_l2power(26) = clng(67108864)
    m_l2power(27) = clng(134217728)
    m_l2power(28) = clng(268435456)
    m_l2power(29) = clng(536870912)
    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
    const s34 = 23
    const s41 = 6
    const s42 = 10
    const s43 = 15
    const s44 = 21

    x = converttowordarray(str2bin(smessage))

    a = &h67452301
    b = &hefcdab89
    c = &h98badcfe
    d = &h10325476

    for k = 0 to ubound(x) step 16
        aa = a
        bb = b
        cc = c
        dd = d

        md5_ff a, b, c, d, x(k + 0), s11, &hd76aa478
        md5_ff d, a, b, c, x(k + 1), s12, &he8c7b756
        md5_ff c, d, a, b, x(k + 2), s13, &h242070db
        md5_ff b, c, d, a, x(k + 3), s14, &hc1bdceee
        md5_ff a, b, c, d, x(k + 4), s11, &hf57c0faf
        md5_ff d, a, b, c, x(k + 5), s12, &h4787c62a
        md5_ff c, d, a, b, x(k + 6), s13, &ha8304613
        md5_ff b, c, d, a, x(k + 7), s14, &hfd469501
        md5_ff a, b, c, d, x(k + 8), s11, &h698098d8
        md5_ff d, a, b, c, x(k + 9), s12, &h8b44f7af
        md5_ff c, d, a, b, x(k + 10), s13, &hffff5bb1
        md5_ff b, c, d, a, x(k + 11), s14, &h895cd7be
        md5_ff a, b, c, d, x(k + 12), s11, &h6b901122
        md5_ff d, a, b, c, x(k + 13), s12, &hfd987193
        md5_ff c, d, a, b, x(k + 14), s13, &ha679438e
        md5_ff b, c, d, a, x(k + 15), s14, &h49b40821

        md5_gg a, b, c, d, x(k + 1), s21, &hf61e2562
        md5_gg d, a, b, c, x(k + 6), s22, &hc040b340
        md5_gg c, d, a, b, x(k + 11), s23, &h265e5a51
        md5_gg b, c, d, a, x(k + 0), s24, &he9b6c7aa
        md5_gg a, b, c, d, x(k + 5), s21, &hd62f105d
        md5_gg d, a, b, c, x(k + 10), s22, &h2441453
        md5_gg c, d, a, b, x(k + 15), s23, &hd8a1e681
        md5_gg b, c, d, a, x(k + 4), s24, &he7d3fbc8
        md5_gg a, b, c, d, x(k + 9), s21, &h21e1cde6
        md5_gg d, a, b, c, x(k + 14), s22, &hc33707d6
        md5_gg c, d, a, b, x(k + 3), s23, &hf4d50d87
        md5_gg b, c, d, a, x(k + 8), s24, &h455a14ed
        md5_gg a, b, c, d, x(k + 13), s21, &ha9e3e905
        md5_gg d, a, b, c, x(k + 2), s22, &hfcefa3f8
        md5_gg c, d, a, b, x(k + 7), s23, &h676f02d9
        md5_gg b, c, d, a, x(k + 12), s24, &h8d2a4c8a

        md5_hh a, b, c, d, x(k + 5), s31, &hfffa3942
        md5_hh d, a, b, c, x(k + 8), s32, &h8771f681
        md5_hh c, d, a, b, x(k + 11), s33, &h6d9d6122
        md5_hh b, c, d, a, x(k + 14), s34, &hfde5380c
        md5_hh a, b, c, d, x(k + 1), s31, &ha4beea44
        md5_hh d, a, b, c, x(k + 4), s32, &h4bdecfa9
        md5_hh c, d, a, b, x(k + 7), s33, &hf6bb4b60
        md5_hh b, c, d, a, x(k + 10), s34, &hbebfbc70
        md5_hh a, b, c, d, x(k + 13), s31, &h289b7ec6
        md5_hh d, a, b, c, x(k + 0), s32, &heaa127fa
        md5_hh c, d, a, b, x(k + 3), s33, &hd4ef3085
        md5_hh b, c, d, a, x(k + 6), s34, &h4881d05
        md5_hh a, b, c, d, x(k + 9), s31, &hd9d4d039
        md5_hh d, a, b, c, x(k + 12), s32, &he6db99e5
        md5_hh c, d, a, b, x(k + 15), s33, &h1fa27cf8
        md5_hh b, c, d, a, x(k + 2), s34, &hc4ac5665

        md5_ii a, b, c, d, x(k + 0), s41, &hf4292244
        md5_ii d, a, b, c, x(k + 7), s42, &h432aff97
        md5_ii c, d, a, b, x(k + 14), s43, &hab9423a7
        md5_ii b, c, d, a, x(k + 5), s44, &hfc93a039
        md5_ii a, b, c, d, x(k + 12), s41, &h655b59c3
        md5_ii d, a, b, c, x(k + 3), s42, &h8f0ccc92
        md5_ii c, d, a, b, x(k + 10), s43, &hffeff47d
        md5_ii b, c, d, a, x(k + 1), s44, &h85845dd1
        md5_ii a, b, c, d, x(k + 8), s41, &h6fa87e4f
        md5_ii d, a, b, c, x(k + 15), s42, &hfe2ce6e0
        md5_ii c, d, a, b, x(k + 6), s43, &ha3014314
        md5_ii b, c, d, a, x(k + 13), s44, &h4e0811a1
        md5_ii a, b, c, d, x(k + 4), s41, &hf7537e82
        md5_ii d, a, b, c, x(k + 11), s42, &hbd3af235
        md5_ii c, d, a, b, x(k + 2), s43, &h2ad7d2bb
        md5_ii b, c, d, a, x(k + 9), s44, &heb86d391

        a = addunsigned(a, aa)
        b = addunsigned(b, bb)
        c = addunsigned(c, cc)
        d = addunsigned(d, dd)
    next

    md5 = lcase(wordtohex(a) & wordtohex(b) & wordtohex(c) & wordtohex(d))
end function
%>

<!--#include file="alipay_md5.asp"-->
<%

class creatalipayitemurl
    '获得最终的购买url

    public function creatalipayitemurl(t1,t4,t5,service,agent,partner,sign_type,subject,body,out_trade_no,price,discount,show_url,quantity,payment_type,logistics_type,logistics_fee,logistics_payment,logistics_type_1,logistics_fee_1,logistics_payment_1,seller_email,notify_url,return_url,key)
        dim itemurl
        dim interface_url,imgsrc,imgtitle
        '初始化各必要变量
        interface_url    = t1    '支付接口
        imgsrc            = t4        '支付宝按钮图片
        imgtitle        = t5        '按钮悬停说明

    'add by sunzhizhi 2006-5-10

mystr = array("service="&service,"agent="&agent,"partner="&partner,"subject="&subject,"body="&body,"out_trade_no="&out_trade_no,"price="&price,"discount="&discount,"show_url="&show_url,"quantity="&quantity,"payment_type="&payment_type,"logistics_type="&logistics_type,"logistics_fee="&logistics_fee,"logistics_payment="&logistics_payment,"logistics_type_1="&logistics_type_1,"logistics_fee_1="&logistics_fee_1,"logistics_payment_1="&logistics_payment_1,"seller_email="&seller_email,"notify_url="¬ify_url,"return_url="&return_url)

count=ubound(mystr)


for i = count to 0 step -1
minmax = mystr( 0 )
minmaxslot = 0
for j = 1 to i
mark = (mystr( j ) > minmax)
if mark then
minmax = mystr( j )
minmaxslot = j
end if
next

if minmaxslot <> i then

temp = mystr( minmaxslot )
mystr( minmaxslot ) = mystr( i )
mystr( i ) = temp
end if
next




for j = 0 to count step 1
value = split(mystr( j ), "=")

if value(1)<>"" then
if j=count then
md5str= md5str&mystr( j )
     else
md5str= md5str&mystr( j )&"&"
     end if
end if
next

md5str=md5str&key
     ' response.write md5str

     sign=md5(md5str)


    itemurl    = itemurl&interface_url



    for j = 0 to count step 1

     value = split(mystr( j ), "=")
        if value(1)<>"" then
        itemurl= itemurl&mystr( j )&"&"
        end if     
next
        itemurl    = itemurl&"sign="&sign&"&sign_type="&sign_type

        'response.write itemurl

    creatalipayitemurl    = itemurl    

                

    end function



    public function get_alipaybuttonurl(itemurl,imgtitle,imgsrc)
        dim responsetext1
        responsetext1    =    responsetext1 & "<a href="" & itemurl & "" href="" & itemurl & "" target='_blank'>"        '购买网址
        responsetext1    =    responsetext1 & "<img alt='" & imgtitle & "' src=""                " src=""                "图片说明
        responsetext1    =    responsetext1 & imgsrc                                            '图片地址
        responsetext1    =    responsetext1 & "' align='absmiddle' border='0'/></a>"
        get_alipaybuttonurl=responsetext1
    end function

end class
%>

<!--#include file="alipay_payto.asp"-->
<%

cid = request("cid")        '''商户编号
response.write cid&"<br>"
meykey = request("mykey")        '''商户密钥
response.write meykey&"<br>"

out_trade_no = request("orderid")        '''订单编号
response.write out_trade_no&"<br>"

totalmoeny = request("totalmoney")        '''订单金额
response.write totalmoeny&"<br>"

partnerid=request("other1")
response.write partnerid&"<br>"

'response.end
dim service,agent,partner,sign_type,subject,body,out_trade_no,price,discount,show_url,quantity,payment_type,logistics_type,logistics_fee,logistics_payment,logistics_type_1,logistics_fee_1,logistics_payment_1,seller_email,notify_url,return_url
dim t1,t4,t5,key
dim alipayobj,itemurl
    t1                =    "https://www.alipay.com/cooperate/gateway.do?"    '支付接口
    t4                =    "images/alipay_bwrx.gif"        '支付宝按钮图片
    t5                =    "推荐使用支付宝付款"                        '按钮悬停说明

    service = "trade_create_by_buyer" '"trade_create_by_buyer"
    agent = partnerid '合作厂商id
    partner            =    partnerid        'partner合作伙伴id(必须填)
    sign_type = "md5"
    subject            =    ""        '商品名称
    body            =    ""        'body            商品描述
    out_trade_no = trim(replace(out_trade_no,":","")) '客户网站订单号，（现取系统时间，可改成网站自己的变量）
    price         =    totalmoeny                 'price商品单价            0.01～50000.00
discount = "0" '商品折扣
show_url = "" '商品展示地址（可以直接写网站首页网址）
quantity = "" '商品数量
payment_type = "1" '支付类型，（1代表商品购买）
logistics_type = "" '物流种类（快递）
logistics_fee = "" '物流费用
logistics_payment = "" '物流费用承担(卖家付)
    logistics_type_1 = ""
logistics_fee_1 = ""
logistics_payment_1 = "" '物流费用承担(买家付)
seller_email = cid '(必须填)
key = mykey '(必须填)
notify_url= "" '服务器通知url（不使用，请不要注释或者删除此参数，不用传递给支付宝系统，alipay_notify.asp文件所在路经）
return_url= "" '服务器通知url（不使用，请不要注释或者删除此参数，不用传递给支付宝系统，alipay_notify.asp文件所在路经）

    set alipayobj    = new creatalipayitemurl
    itemurl=alipayobj.creatalipayitemurl(t1,t4,t5,service,agent,partner,sign_type,subject,body,out_trade_no,price,discount,show_url,quantity,payment_type,logistics_type,logistics_fee,logistics_payment,logistics_type_1,logistics_fee_1,logistics_payment_1,seller_email,notify_url,return_url,key)

response.redirect itemurl
response.end
%>

<!--#include file="alipay_payto.asp"-->
<%

cid = request("cid")        '''商户编号
response.write cid&"<br>"
meykey = request("mykey")        '''商户密钥
response.write meykey&"<br>"

orderid = request("orderid")        '''订单编号
response.write orderid &"<br>"

totalmoeny = request("totalmoney")        '''订单金额
response.write totalmoeny&"<br>"

partnerid=request("other1")
response.write partnerid&"<br>"

other2=request("other2")
other3=request("other3")

'response.end
dim service,agent,partner,sign_type,subject,body,out_trade_no,price,discount,show_url,quantity,payment_type,logistics_type,logistics_fee,logistics_payment,logistics_type_1,logistics_fee_1,logistics_payment_1,seller_email,notify_url,return_url
dim t1,t4,t5,key
dim alipayobj,itemurl
    t1                =    "https://www.alipay.com/cooperate/gateway.do?"    '支付接口
    t4                =    "images/alipay_bwrx.gif"        '支付宝按钮图片
    t5                =    "推荐使用支付宝付款"                        '按钮悬停说明

    service = "trade_create_by_buyer"
    agent = partnerid '合作厂商id
    partner            =    partnerid        'partner合作伙伴id(必须填)
    sign_type = "md5"
    subject            =    "商品"        '商品名称
    body            =    ""        'body            商品描述
    out_trade_no = orderid '客户网站订单号，（现取系统时间，可改成网站自己的变量）
    price         =    totalmoeny                 'price商品单价            0.01～50000.00
discount = "0" '商品折扣
show_url = "" '商品展示地址（可以直接写网站首页网址）
quantity = "1" '商品数量
payment_type = "1" '支付类型，（1代表商品购买）
logistics_type = "express" '物流种类（快递）
logistics_fee = other3 '物流费用
logistics_payment = other2 '物流费用承担(卖家付)
    logistics_type_1 = ""
logistics_fee_1 = ""
logistics_payment_1 = "" '物流费用承担(买家付)
seller_email = cid '(必须填)
key = meykey '(必须填)
notify_url= "" '服务器通知url（不使用，请不要注释或者删除此参数，不用传递给支付宝系统，alipay_notify.asp文件所在路经）
return_url= "" '服务器通知url（不使用，请不要注释或者删除此参数，不用传递给支付宝系统，alipay_notify.asp文件所在路经）

    set alipayobj    = new creatalipayitemurl
    itemurl=alipayobj.creatalipayitemurl(t1,t4,t5,service,agent,partner,sign_type,subject,body,out_trade_no,price,discount,show_url,quantity,payment_type,logistics_type,logistics_fee,logistics_payment,logistics_type_1,logistics_fee_1,logistics_payment_1,seller_email,notify_url,return_url,key)

response.redirect itemurl
response.end
%>

<%
private const bits_to_a_byte = 8
private const bytes_to_a_word = 4
private const bits_to_a_word = 32

private m_lonbits(30)
private m_l2power(30)

private function lshift(lvalue, ishiftbits)
if ishiftbits = 0 then
lshift = lvalue
exit function
elseif ishiftbits = 31 then
if lvalue and 1 then
lshift = &h80000000
else
lshift = 0
end if
exit function
elseif ishiftbits < 0 or ishiftbits > 31 then
err.raise 6
end if

if (lvalue and m_l2power(31 - ishiftbits)) then
lshift = ((lvalue and m_lonbits(31 - (ishiftbits + 1))) * m_l2power(ishiftbits)) or &h80000000
else
lshift = ((lvalue and m_lonbits(31 - ishiftbits)) * m_l2power(ishiftbits))
end if
end function

private function rshift(lvalue, ishiftbits)
if ishiftbits = 0 then
rshift = lvalue
exit function
elseif ishiftbits = 31 then
if lvalue and &h80000000 then
rshift = 1
else
rshift = 0
end if
exit function
elseif ishiftbits < 0 or ishiftbits > 31 then
err.raise 6
end if

rshift = (lvalue and &h7ffffffe) m_l2power(ishiftbits)

if (lvalue and &h80000000) then
rshift = (rshift or (&h40000000 m_l2power(ishiftbits - 1)))
end if
end function

private function rotateleft(lvalue, ishiftbits)
rotateleft = lshift(lvalue, ishiftbits) or rshift(lvalue, (32 - ishiftbits))
end function

private function addunsigned(lx, ly)
dim lx4
dim ly4
dim lx8
dim ly8
dim lresult

lx8 = lx and &h80000000
ly8 = ly and &h80000000
lx4 = lx and &h40000000
ly4 = ly and &h40000000

lresult = (lx and &h3fffffff) + (ly and &h3fffffff)

if lx4 and ly4 then
lresult = lresult xor &h80000000 xor lx8 xor ly8
elseif lx4 or ly4 then
if lresult and &h40000000 then
lresult = lresult xor &hc0000000 xor lx8 xor ly8
else
lresult = lresult xor &h40000000 xor lx8 xor ly8
end if
else
lresult = lresult xor lx8 xor ly8
end if

addunsigned = lresult
end function

private function md5_f(x, y, z)
md5_f = (x and y) or ((not x) and z)
end function

private function md5_g(x, y, z)
md5_g = (x and z) or (y and (not z))
end function

private function md5_h(x, y, z)
md5_h = (x xor y xor z)
end function

private function md5_i(x, y, z)
md5_i = (y xor (x or (not z)))
end function

private sub md5_ff(a, b, c, d, x, s, ac)
a = addunsigned(a, addunsigned(addunsigned(md5_f(b, c, d), x), ac))
a = rotateleft(a, s)
a = addunsigned(a, b)
end sub

private sub md5_gg(a, b, c, d, x, s, ac)
a = addunsigned(a, addunsigned(addunsigned(md5_g(b, c, d), x), ac))
a = rotateleft(a, s)
a = addunsigned(a, b)
end sub

private sub md5_hh(a, b, c, d, x, s, ac)
a = addunsigned(a, addunsigned(addunsigned(md5_h(b, c, d), x), ac))
a = rotateleft(a, s)
a = addunsigned(a, b)
end sub

private sub md5_ii(a, b, c, d, x, s, ac)
a = addunsigned(a, addunsigned(addunsigned(md5_i(b, c, d), x), ac))
a = rotateleft(a, s)
a = addunsigned(a, b)
end sub

private function converttowordarray(smessage)
dim lmessagelength
dim lnumberofwords
dim lwordarray()
dim lbyteposition
dim lbytecount
dim lwordcount

const modulus_bits = 512
const congruent_bits = 448

lmessagelength = len(smessage)

lnumberofwords = (((lmessagelength + ((modulus_bits - congruent_bits) bits_to_a_byte)) (modulus_bits bits_to_a_byte)) + 1) * (modulus_bits bits_to_a_word)
redim lwordarray(lnumberofwords - 1)

lbyteposition = 0
lbytecount = 0
do until lbytecount >= lmessagelength
lwordcount = lbytecount bytes_to_a_word
lbyteposition = (lbytecount mod bytes_to_a_word) * bits_to_a_byte
lwordarray(lwordcount) = lwordarray(lwordcount) or lshift(asc(mid(smessage, lbytecount + 1, 1)), lbyteposition)
lbytecount = lbytecount + 1
loop

lwordcount = lbytecount bytes_to_a_word
lbyteposition = (lbytecount mod bytes_to_a_word) * bits_to_a_byte

lwordarray(lwordcount) = lwordarray(lwordcount) or lshift(&h80, lbyteposition)

lwordarray(lnumberofwords - 2) = lshift(lmessagelength, 3)
lwordarray(lnumberofwords - 1) = rshift(lmessagelength, 29)

converttowordarray = lwordarray
end function

private function wordtohex(lvalue)
dim lbyte
dim lcount

for lcount = 0 to 3
lbyte = rshift(lvalue, lcount * bits_to_a_byte) and m_lonbits(bits_to_a_byte - 1)
wordtohex = wordtohex & right("0" & hex(lbyte), 2)
next
end function

public function md5(smessage)
m_lonbits(0) = clng(1)
m_lonbits(1) = clng(3)
m_lonbits(2) = clng(7)
m_lonbits(3) = clng(15)
m_lonbits(4) = clng(31)
m_lonbits(5) = clng(63)
m_lonbits(6) = clng(127)
m_lonbits(7) = clng(255)
m_lonbits(8) = clng(511)
m_lonbits(9) = clng(1023)
m_lonbits(10) = clng(2047)
m_lonbits(11) = clng(4095)
m_lonbits(12) = clng(8191)
m_lonbits(13) = clng(16383)
m_lonbits(14) = clng(32767)
m_lonbits(15) = clng(65535)
m_lonbits(16) = clng(131071)
m_lonbits(17) = clng(262143)
m_lonbits(18) = clng(524287)
m_lonbits(19) = clng(1048575)
m_lonbits(20) = clng(2097151)
m_lonbits(21) = clng(4194303)
m_lonbits(22) = clng(8388607)
m_lonbits(23) = clng(16777215)
m_lonbits(24) = clng(33554431)
m_lonbits(25) = clng(67108863)
m_lonbits(26) = clng(134217727)
m_lonbits(27) = clng(268435455)
m_lonbits(28) = clng(536870911)
m_lonbits(29) = clng(1073741823)
m_lonbits(30) = clng(2147483647)

m_l2power(0) = clng(1)
m_l2power(1) = clng(2)
m_l2power(2) = clng(4)
m_l2power(3) = clng(8)
m_l2power(4) = clng(16)
m_l2power(5) = clng(32)
m_l2power(6) = clng(64)
m_l2power(7) = clng(128)
m_l2power(8) = clng(256)
m_l2power(9) = clng(512)
m_l2power(10) = clng(1024)
m_l2power(11) = clng(2048)
m_l2power(12) = clng(4096)
m_l2power(13) = clng(8192)
m_l2power(14) = clng(16384)
m_l2power(15) = clng(32768)
m_l2power(16) = clng(65536)
m_l2power(17) = clng(131072)
m_l2power(18) = clng(262144)
m_l2power(19) = clng(524288)
m_l2power(20) = clng(1048576)
m_l2power(21) = clng(2097152)
m_l2power(22) = clng(4194304)
m_l2power(23) = clng(8388608)
m_l2power(24) = clng(16777216)
m_l2power(25) = clng(33554432)
m_l2power(26) = clng(67108864)
m_l2power(27) = clng(134217728)
m_l2power(28) = clng(268435456)
m_l2power(29) = clng(536870912)
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
const s34 = 23
const s41 = 6
const s42 = 10
const s43 = 15
const s44 = 21

x = converttowordarray(smessage)

a = &h67452301
b = &hefcdab89
c = &h98badcfe
d = &h10325476

for k = 0 to ubound(x) step 16
aa = a
bb = b
cc = c
dd = d

md5_ff a, b, c, d, x(k + 0), s11, &hd76aa478
md5_ff d, a, b, c, x(k + 1), s12, &he8c7b756
md5_ff c, d, a, b, x(k + 2), s13, &h242070db
md5_ff b, c, d, a, x(k + 3), s14, &hc1bdceee
md5_ff a, b, c, d, x(k + 4), s11, &hf57c0faf
md5_ff d, a, b, c, x(k + 5), s12, &h4787c62a
md5_ff c, d, a, b, x(k + 6), s13, &ha8304613
md5_ff b, c, d, a, x(k + 7), s14, &hfd469501
md5_ff a, b, c, d, x(k + 8), s11, &h698098d8
md5_ff d, a, b, c, x(k + 9), s12, &h8b44f7af
md5_ff c, d, a, b, x(k + 10), s13, &hffff5bb1
md5_ff b, c, d, a, x(k + 11), s14, &h895cd7be
md5_ff a, b, c, d, x(k + 12), s11, &h6b901122
md5_ff d, a, b, c, x(k + 13), s12, &hfd987193
md5_ff c, d, a, b, x(k + 14), s13, &ha679438e
md5_ff b, c, d, a, x(k + 15), s14, &h49b40821

md5_gg a, b, c, d, x(k + 1), s21, &hf61e2562
md5_gg d, a, b, c, x(k + 6), s22, &hc040b340
md5_gg c, d, a, b, x(k + 11), s23, &h265e5a51
md5_gg b, c, d, a, x(k + 0), s24, &he9b6c7aa
md5_gg a, b, c, d, x(k + 5), s21, &hd62f105d
md5_gg d, a, b, c, x(k + 10), s22, &h2441453
md5_gg c, d, a, b, x(k + 15), s23, &hd8a1e681
md5_gg b, c, d, a, x(k + 4), s24, &he7d3fbc8
md5_gg a, b, c, d, x(k + 9), s21, &h21e1cde6
md5_gg d, a, b, c, x(k + 14), s22, &hc33707d6
md5_gg c, d, a, b, x(k + 3), s23, &hf4d50d87
md5_gg b, c, d, a, x(k + 8), s24, &h455a14ed
md5_gg a, b, c, d, x(k + 13), s21, &ha9e3e905
md5_gg d, a, b, c, x(k + 2), s22, &hfcefa3f8
md5_gg c, d, a, b, x(k + 7), s23, &h676f02d9
md5_gg b, c, d, a, x(k + 12), s24, &h8d2a4c8a

md5_hh a, b, c, d, x(k + 5), s31, &hfffa3942
md5_hh d, a, b, c, x(k + 8), s32, &h8771f681
md5_hh c, d, a, b, x(k + 11), s33, &h6d9d6122
md5_hh b, c, d, a, x(k + 14), s34, &hfde5380c
md5_hh a, b, c, d, x(k + 1), s31, &ha4beea44
md5_hh d, a, b, c, x(k + 4), s32, &h4bdecfa9
md5_hh c, d, a, b, x(k + 7), s33, &hf6bb4b60
md5_hh b, c, d, a, x(k + 10), s34, &hbebfbc70
md5_hh a, b, c, d, x(k + 13), s31, &h289b7ec6
md5_hh d, a, b, c, x(k + 0), s32, &heaa127fa
md5_hh c, d, a, b, x(k + 3), s33, &hd4ef3085
md5_hh b, c, d, a, x(k + 6), s34, &h4881d05
md5_hh a, b, c, d, x(k + 9), s31, &hd9d4d039
md5_hh d, a, b, c, x(k + 12), s32, &he6db99e5
md5_hh c, d, a, b, x(k + 15), s33, &h1fa27cf8
md5_hh b, c, d, a, x(k + 2), s34, &hc4ac5665

md5_ii a, b, c, d, x(k + 0), s41, &hf4292244
md5_ii d, a, b, c, x(k + 7), s42, &h432aff97
md5_ii c, d, a, b, x(k + 14), s43, &hab9423a7
md5_ii b, c, d, a, x(k + 5), s44, &hfc93a039
md5_ii a, b, c, d, x(k + 12), s41, &h655b59c3
md5_ii d, a, b, c, x(k + 3), s42, &h8f0ccc92
md5_ii c, d, a, b, x(k + 10), s43, &hffeff47d
md5_ii b, c, d, a, x(k + 1), s44, &h85845dd1
md5_ii a, b, c, d, x(k + 8), s41, &h6fa87e4f
md5_ii d, a, b, c, x(k + 15), s42, &hfe2ce6e0
md5_ii c, d, a, b, x(k + 6), s43, &ha3014314
md5_ii b, c, d, a, x(k + 13), s44, &h4e0811a1
md5_ii a, b, c, d, x(k + 4), s41, &hf7537e82
md5_ii d, a, b, c, x(k + 11), s42, &hbd3af235
md5_ii c, d, a, b, x(k + 2), s43, &h2ad7d2bb
md5_ii b, c, d, a, x(k + 9), s44, &heb86d391

a = addunsigned(a, aa)
b = addunsigned(b, bb)
c = addunsigned(c, cc)
d = addunsigned(d, dd)
next

md5 = lcase(wordtohex(a) & wordtohex(b) & wordtohex(c) & wordtohex(d))    '32byte
'md5 = lcase(wordtohex(b) & wordtohex(c)) 'i crop this to fit 16byte database password :d
end function
%>

<!--
* ====================================================================
*
* send.asp 由网银在线技术支持提供
*
* 本页面接收来自上页所有订单信息,并提交支付订单到网线在线支付平台....
*
*
* ====================================================================
-->

<!--#include file="md5.asp"-->

<%
'****************************************    
    v_mid = request("cid")                     ' 商户号,这里为测试商户号20000400，替换为自己的商户号即可
    v_url = "" ' 商户自定义返回接收支付结果的页面 receive.asp 为接收页面

                                                     ' md5密钥要跟订单提交页相同，如send.asp里的 key = "test" ,修改""号内 test 为您的密钥
    key = request("mykey")                                 ' 如果您还没有设置md5密钥请登陆我们为您提供商户后台，地址：https://merchant3.chinabank.com.cn/
                                                     ' 登陆后在上面的导航栏里可能找到“资料管理”，在资料管理的二级导航栏里有“md5密钥设置”
                                                     ' 建议您设置一个16位以上的密钥或更高，密钥最多64位，但设置16位已经足够了
'****************************************%>


<%
if request("orderid")<>"" then                                '判断是否有传递订单号

         v_oid = request("orderid")

     else

         curdate = now()                                        ' 根据系统时间产生订单，格式：yyyymmdd-v_mid-hmmss
         ymd = year(curdate)
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:)！