<% @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
Dim target,post_data
target = "Http://222.73.117.156/msg/HttpBatchSendSM"
Post_data = "account= Create Blue account &pswd= Blue password &mobile= mobile number &msg=" &server.urlencode ("SMS Test") & "& Needstatus=true&extno= "
Response. Write (Post (Target,post_data))
"//Please parse the string returned by the post (Target,post_data) and implement your own logic
"The first line xxxxxxx,0 is successful, other reference Http.doc documents
%>
"ASP" Gen Blue 253 Cloud communication PAAs platform SMS Verification Code Interface call Demo