Strumenti Utente

Strumenti Sito


chiamata_asp

Differenze

Queste sono le differenze tra la revisione selezionata e la versione attuale della pagina.

Link a questa pagina di confronto

chiamata_asp [2014/09/01 12:19] (versione attuale)
Linea 1: Linea 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>​
chiamata_asp.txt · Ultima modifica: 2014/09/01 12:19 (modifica esterna)