<!-- ####### INIZIO FILE "script_ASP_invio.asp" ####### //-->
<%
'Esempio di script ASP per inviare messaggi sms
'utilizzando XMLHTTP
'Prima si crea l'oggetto XMLHTTP'
Dim xml, objXMLHTTP
Dim rcpt, messaggio, mittente, SMSarray
Dim SMSuser, SMSpass, ritorno
SMSuser = Request.Form("user")
SMSpass = Request.Form("pass")
SMSarray = false
'Si catturano i valori inviati tramite POST dal form
mittente = Request.Form("sender")
messaggio = Request.Form("data")
rcpt = Request.Form("rcpt")
qty = Request.Form("qty")
if instr(rcpt,",") then
rcptarr= split(rcpt,",")
SMSarray = true
end if
'Si preparano i dati e viene eseguita la post al server
'La funzione Server.URLEncode serve a passare i parametri in modo corretto
'Le coppie parametro/valore sono inoltre separati da una '&'
if SMSarray = true then
for i = LBound(rcptarr) to UBound(rcptarr)
strPostData = "user=" & Server.URLEncode(SMSuser) & _
"&pass=" & Server.URLEncode(SMSpass) & _
"&rcpt=" & Server.URLEncode(rcpt) & _
"&data=" & Server.URLEncode(messaggio) & _
"&qty=" & Server.URLEncode(qty) & _
"&sender=" & Server.URLEncode(mittente)
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "POST", "http://sms.pubblicitalocale.net/sms/batch.php", False
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.Send strPostData
ritorno = xml.responseText
Response.Write "Invio a " & rcpt & " <font color=""red"">" & ritorno & _
"</font>" & "<BR>"
Set xml = Nothing
next
else
strPostData = "user=" & Server.URLEncode(SMSuser) & _
"&pass=" & Server.URLEncode(SMSpass) & _
"&rcpt=" & Server.URLEncode(rcpt) & _
"&data=" & Server.URLEncode(messaggio) & _
"&qty=" & Server.URLEncode(qty) & _
"&sender=" & Server.URLEncode(mittente)
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "POST", "http://sms.pubblicitalocale.net/sms/send.php", False
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.Send strPostData
ritorno = xml.responseText
Response.Write "<font color=""red"">" & ritorno & "</font>" & "<BR>"
Set xml = Nothing
end if
'Stampa in colore rosso il risultato, se tutto è andato bene ritornerà una pagina con
'OK',
'in caso di errore 'KO'
'debug
Response.Write "<br><br><hr><table border=1 cellspacing=0 cellpadding=0>"
for each item in Request.Form
Response.Write "<tr><td>" & item & "</td><td>" & Request.Form(item) & "</td></tr>"
next
Response.Write "</table><hr>"
Response.Write Server.HTMLEncode(strPostData)
'/debug
%>
<!-- ####### FINE FILE "script_ASP_invio.asp" ####### //-->