User Tools

Site Tools


api_esempio_asp

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

api_esempio_asp [2020/08/01 23:02] (current)
Line 1: Line 1:
 +====== Chiamata ASP ====== 
 +==== Esempio API ==== 
 +<code> 
 +    <% 
 +      
 +    function SendSMS(username,password,recipients,text,charset) 
 +    url = "https://www.smskdev.it/send.php" 
 +      
 +    parameters ="username=" & Server.urlencode(username) & "&"
 +    & "password=" & Server.urlencode(password) & "&"
 +    & "text=" & Server.urlencode(text) & "&"
 +    & "to=" & join(recipients,"&recipients[]="
 +      
 +      
 +      
 +    if sender_number <> "" then parameters = parameters & "&sender_number=" & Server.urlencode(sender_number) 
 +    if sender_string <> "" then parameters = parameters & "&sender_string=" & Server.urlencode(sender_string) 
 +      
 +    select case charset 
 +    case "UTF-8" 
 +    parameters = parameters & "&charset=" & Server.urlencode("UTF-8"
 +    case else 
 +    end select 
 +      
 +    set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP"
 +    xmlhttp.open "POST", url, false 
 +    xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
 +    xmlhttp.setRequestHeader "Content-Length", Len(parameters) 
 +    xmlhttp.Send parameters 
 +      
 +    If xmlhttp.Status >= 400 And xmlhttp.Status <= 599 Then 
 +    SendSMS = "status=failed&message=" & xmlhttp.Status & " - " & xmlhttp.statusText 
 +    exit function 
 +    End If 
 +      
 +    msg = xmlhttp.responseText 
 +    set xmlhttp = nothing 
 +      
 +    SendSMS = msg 
 +    end function 
 +      
 +    Dim recipients 
 +    Dim i 
 +      
 +    ' Invio di un singolo SMS 
 +    recipients = array("39XXXXXXXXXX"
 +      
 +    ' Per invio multiplo del testo a 2 o più destinatari 
 +    ' recipients = array("39XXXXXXXXXX","39XXXXXXXXX1"
 +      
 +      
 +      
 +    ' Invio SMS 
 +    result = SendSMS("username","password",recipients,"Test invio SMS",""
 +      
 +    responses = split(result,"&"
 +      
 +    for each item in responses 
 +    Response.write item & "<br/>" 
 +    next 
 +      
 +    %> 
 +</code>
api_esempio_asp.txt · Last modified: 2020/08/01 23:02 (external edit)