' der Index class= " kann über benannt werden
<%@LANGUAGE= " VBSCRIPT " CODEPAGE= " 1252 " %>
<% Anruf sendsms („447740123456“, 1, „123 TEST-Test ABC-“, "", "")
wenn AQresponse <> "" dann
response.write (AQresponse)
sonst
response.write („STÖRUNG“)
beenden wenn
%>
'Tatsächlicher Index folgt. Dieses konnte in eine unterschiedliche Akte gelegt werden,
'wie die smslib.asp Akte oben beschrieben worden
<%
response.buffer = richten aus
Ltd. 'des copyright 2002 (aq).
'Index erfordert Bestandteil Microsoft-XMLHTTP
Schwache Methode, gesichert, error_on_length, username, Kennwort, AQresponse
'Benutzer-Editable Variablen
gesichertes = 0 'stellte auf irgendein 1 für SSL-Anschluss ein
'oder 0 für normalen Anschluss.
error_on_length = 1 „, ob man und Störung auf Mitteilungen über 160 chracters gibt.
“ 1 für zutreffendes, 0 für falsches.
username = „testusername“ 'Ihr Aqlusername, kann irgendein hier eingestellt werden
'oder getan worden auf a pro Anrufbasis von der Funktion.
Kennwort = „testpassword“ 'Ihr Aql-Kennwort, kann irgendein hier eingestellt werden
'oder getan worden auf a pro Anrufbasis von der Funktion.
'Nicht unten hier redigieren, es sei denn Sie wissen, was Sie tun!
Funktion sendsms (Bestimmungsort, Blitz, Mitteilung, f_username, f_password, Begründer)
wenn f_username <> Null oder f_username <> "" dann
username = f_username
beenden wenn
wenn f_password <> Null oder f_password <> "" dann
Kennwort = f_password
beenden wenn
wenn username = "" dann
Anruf senderror (1)
sonst wenn Kennwort = "" dann
Anruf senderror (2)
sonst wenn Bestimmungsort = "" dann
Anruf senderror (3)
sonst, wenn (Mitteilung) > 160 und error_on_length len = 1 dann
senderror benennen (6)
sonst wenn Blitz > 1 oder Blitz < 0 dann
Anruf senderror (5)
beenden wenn
beenden wenn
beenden wenn
beenden wenn
beenden wenn
objXMLHTTP, xml verdunkeln
Mitteilung = ersetzen (Mitteilung, „„, „+")
Xml = Server.CreateObject („Microsoft.XMLHTTP“) einstellen
wenn Sie = Null oder gesichertes = 0 dann gesichert werden
xml. „PFOSTEN“ öffnen, „http://gw1.aql.com/sms/sms_gw.php“, falsch
xml.setRequestHeader „Inhalt-Art“, „application/x-www-form-urlencoded“
xml. „Username=“ u. username u. „&password=“ u. Kennwort u. „&destination=“ u. Bestimmungsort u. „&message=“ u. Mitteilung u. „&originator=“ u. Begründer u. „&flash=“ senden u. blitzen
sonst wenn gesichertes = 1 dann
xml. „PFOSTEN“ öffnen, „https://gw1.aql.com/sms/sms_gw.php“, falsch
xml.setRequestHeader „Inhalt-Art“, „application/x-www-form-urlencoded“
xml. „Username=“ u. username u. „&password=“ u. Kennwort u. „&destination=“ u. Bestimmungsort u. „&message=“ u. Mitteilung u. „&originator=“ u. Begründer u. „&flash=“ senden u. blitzen
sonst
Anruf senderror (7)
beenden wenn
beenden wenn
AQresponse = xml.responseText
Xml einstellen = nichts
Funktion beenden
Funktion senderror (Identifikation)
xml einstellen = nichts
Fall (Identifikation) vorwählen
Rechtssache (1)
response.write
(„Kein username wurde entweder im Funktionsanruf oder im Configabschnitt“ spezifiziert)
response.end
Rechtssache (2)
response.write
(„Kein Kennwort wurde entweder im Funktionsanruf oder im Configabschnitt“ spezifiziert)
response.end
Rechtssache (3)
response.write („Nr. zur Zahl wurde in den Funktionsanruf“ eingestellt)
response.end
Rechtssache (4)
response.write („Nr. oder falsche Methode spezifiziert“)
response.end
Rechtssache (5)
response.write („unzulässige Einstellung für grelle Mitteilungmarkierungsfahne, muss 1 oder 0 sein“)
Antwort. Ende
Rechtssache (6)
response.write („Mitteilung war über 160 Putzfrauen und war nicht sent.")
response.write („, diese Warnung zu sperren die Markierungsfahne "" smslib.asp im """ redigieren)
response.end
Rechtssache (7)
response.write („Invalied Einstellung für sichere Markierungsfahne, muss 1 oder 0 sein“)
response.end
Ende auserwählt
Endenfunktion
%>
|
