asp实现阿里大鱼短信API接口的方法

阿里大鱼是阿里推出的产品，官方提供JAVA、.NET、PHP等版本的SDK下载，不知为何，唯独不提供ASP版本的SDK。

不提供没关系，自己写就是了，参照官方提供的API写一个就是了。

本来以为无非是向阿里大鱼的接口POST或者GET数据而已，但真正做了发现没有那么简单，最难的是签名，签名分两步一个是拼接参数，一个是加密。

原理如下：md5(secret+按顺序拼接好的参数名与参数值+secret)

1.对数组进行排序然后拼接

''

' 对数组排序

' param sPara 排序前的数组

' return 排序后的数组

Function SortPara(sPara)

    Dim nCount

    nCount = ubound(sPara)

    For i = nCount To 0 Step -1

        minmax = sPara( 0 )

        minmaxSlot = 0

        For j = 1 To i

            mark = (sPara( j ) > minmax)

            If mark Then

                minmax = sPara( j )

                minmaxSlot = j

            End If

        Next

        If minmaxSlot <> i Then

            temp = sPara( minmaxSlot )

            sPara( minmaxSlot ) = sPara( i )

            sPara( i ) = temp

        End If

    Next

    SortPara = sPara

end function

''

' 把数组所有元素，按照“参数参数值参数参数值……”的模式拼接成字符串

' param sPara 需要拼接的数组

' return 拼接完成以后的字符串

Function CreateParamstring(sPara)

    nCount = ubound(sPara)

    Dim prestr

    For i = 0 To nCount

        prestr = prestr & sPara(i)

    Next

    CreateParamstring = replace(prestr,"=","")

End Function

2.加密有两种：MD5和HMAC_MD5，我们使用MD5

''

' MD5签名

' param prestr 需要签名的字符串

' param secret 私钥

' param input_charset 编码格式

' return 签名结果

Function Md5Sign(prestr, secret, input_charset)

    Dim mysign

    '把拼接后的字符串再与安全校验码直接连接起来

    prestr = secret & prestr & secret

    mysign = MD5(prestr, input_charset)

    Md5Sign = UCase(mysign)

End Function

3.将签名拼接到url中请求远程接口

''

' 建立请求，以模拟远程HTTP的GET请求方式构造并获取阿里大鱼纯文字类型处理结果

' param sParaTemp 请求前的参数数组

' return 阿里大鱼处理结果

Public Function BuildRequestHttpWord(sParaTemp)

    Dim sUrl, objHttp, sResponseTxt

    '待请求参数数组字符串

    sRequestData = BuildRequestParaToString(sParaTemp)

    '构造请求地址

    sUrl = GATEWAY_NEW & sRequestData

    'response.Write(sRequestData)

    'response.End()

    '获取远程数据

    Set objHttp=Server.CreateObject("Microsoft.XMLHTTP")

    '如果Microsoft.XMLHTTP不行，那么请替换下面的两行行代码尝试

    'Set objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")

    'objHttp.setOption 2, 13056

    objHttp.open "GET", sUrl, False, "", ""

    objHttp.send()

    sResponseTxt = objHttp.ResponseText

    Set objHttp = Nothing

    BuildRequestHttpWord = sResponseTxt

End Function

综上，就完成一次发送短信的操作。

巴特西

asp实现阿里大鱼短信API接口的方法

最新文章

热门文章