【ASP】創藍253雲通訊平臺國際簡訊API介面DEMO

luck_yun發表於2018-06-29
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Function Post(url,data)
    dim Https 
    set Https=server.createobject("MSXML2.XMLHTTP")
    Https.open "POST",url,false
    Https.setRequestHeader "Content-Type","application/json"
    Https.send data
    if Https.readystate=4 then
        dim objstream 
        set objstream = Server.CreateObject("adodb.stream")
        objstream.Type = 1
        objstream.Mode =3
        objstream.Open
        objstream.Write Https.responseBody
        objstream.Position = 0
        objstream.Type = 2
        objstream.Charset = "utf-8"
        Post = objstream.ReadText
        objstream.Close
        set objstream = nothing
        set https=nothing
    end if
End Function

dim target,post_data
target = ""

''//手機號碼,格式(區號+手機號碼),例如:8615800000000,其中86為中國的區號
post_data="{""account"":""zensen"",""password"":""a."",""mobile"":""8615800000000"",""msg"":""Server.URLEncode(【253雲通訊】您好,您的驗證碼是999999)""}"
response.Write(Post(target,post_data))
''//請自己解析Post(target,post_data)返回的json格式並實現自己的邏輯
%>

來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/31510215/viewspace-2157050/,如需轉載,請註明出處,否則將追究法律責任。

相關文章