【ASP】創藍253雲通訊paas平臺短信驗證碼接口調用demo
阿新 • • 發佈:2018-05-25
ASP 創藍253 短信驗證碼 數據接口 <%@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/x-www-form-urlencoded"
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 ‘‘//請自己解析Post(target,post_data)返回的字符串並實現自己的邏輯
‘‘第一行xxxxxxx,0表示成功,其它的參考http.doc文檔
%>
<%
Function Post(url,data)
dim Https
set Https=server.createobject("MSXML2.XMLHTTP")
Https.open "POST",url,false
Https.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
Https.send data
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 https=nothing
end if
End Function
dim target,post_data
target = "http://222.73.117.156/msg/HttpBatchSendSM"
post_data = "account=創藍賬號&pswd=創藍密碼&mobile=手機號&msg="&Server.URLEncode("短信測試")&"&needstatus=true&extno="
response.Write(Post(target,post_data))
‘‘第一行xxxxxxx,0表示成功,其它的參考http.doc文檔
%>
【ASP】創藍253雲通訊paas平臺短信驗證碼接口調用demo