class= " lineNumbers " de
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
76 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
86 :
87 :
88 :
89 :
90 :
91 :
92 :
93 :
94 :
95 :
96 :
97 :
98 :
99 :
100 :
101 :
102 :
103 :
104 :
105 :
106 :
107 :
108 :
109 :
110 :
111 :
112 :
113 :
|
class= de
l'id= " codeSnippet791684 " class= " de ' le manuscrit peut s'appeler par l'intermédiaire de
<%@LANGUAGE= " VBSCRIPT " CODEPAGE= " 1252 " %>
sendsms d'appel de <% (« 447740123456 », 1, « 123 essai d'ESSAI d'ABC », "", "")
si "" de <> d'AQresponse alors
response.write (AQresponse)
autrement
response.write (« ERREUR »)
finir si
%>
'Le manuscrit réel suit. Ceci a pu être placé dans un dossier séparé,
'comme le dossier de smslib.asp décrit ci-dessus
<%
response.buffer = rectifient
Ltd 'de copyright 2002 (aq).
Le 'manuscrit exige le composant de Microsoft XMLHTTP
Faible méthode, fixée, error_on_length, username, mot de passe, AQresponse
'Variables Editable d'utilisateur
= 0 fixé 'a placé à l'un ou l'autre 1 pour le raccordement de SSL
'ou 0 pour le raccordement normal.
error_on_length = 1 « si donner et erreur sur des messages plus de 160 chracters.
» 1 pour vrai, 0 pour faux.
l'username = « testusername » 'votre username de nqa, peut l'un ou l'autre être placé ici
'ou fait sur a par base d'appel de la fonction.
le mot de passe = « testpassword » 'votre mot de passe de nqa, peut l'un ou l'autre être placé ici
'ou fait sur a par base d'appel de la fonction.
'Ne pas éditer ci-dessous ici à moins que vous sachiez ce que vous faites !
Sendsms de fonction (destination, flash, message, f_username, f_password, créateur)
si nulle de <> de f_username ou puis "" de <> de f_username
username = f_username
finir si
si nulle de <> de f_password ou puis "" de <> de f_password
mot de passe = f_password
finir si
si username = puis ""
senderror d'appel (1)
autrement si mot de passe = puis ""
senderror d'appel (2)
autrement si destination = puis ""
senderror d'appel (3)
autrement si len (message) > 160 et error_on_length = 1 puis
appeler le senderror (6)
autrement si flash > 1 ou flash < 0 puis
senderror d'appel (5)
finir si
finir si
finir si
finir si
finir si
Obscurcir l'objXMLHTTP, xml
le message = remplacent (message, « « , « +")
Placer le xml = le Server.CreateObject (« Microsoft.XMLHTTP »)
si fixé = nulle ou = 0 fixé puis
xml. Ouvrir le « POTEAU », « http://gw1.aql.com/sms/sms_gw.php », faux
xml.setRequestHeader « Contenu-Type », « application/x-www-form-urlencoded »
xml. Envoyer le « username= » et l'username et le « &password= » et le mot de passe et le « &destination= » et la destination et le « &message= » et le message et le « &originator= » et le créateur et le « &flash= » et clignoter
autrement si = 1 fixé puis
xml. Ouvrir le « POTEAU », « https://gw1.aql.com/sms/sms_gw.php », faux
xml.setRequestHeader « Contenu-Type », « application/x-www-form-urlencoded »
xml. Envoyer le « username= » et l'username et le « &password= » et le mot de passe et le « &destination= » et la destination et le « &message= » et le message et le « &originator= » et le créateur et le « &flash= » et clignoter
autrement
senderror d'appel (7)
finir si
finir si
AQresponse = xml.responseText
Placer le xml = rien
Finir la fonction
Senderror de fonction (identification)
placer le xml = rien
Choisir le cas (l'identification)
affaire (1)
response.write
(« Aucun username n'a été spécifié dans l'appel de fonction ou la section de config »)
response.end
affaire (2)
response.write
(« Aucun mot de passe n'a été spécifié dans l'appel de fonction ou la section de config »)
response.end
affaire (3)
response.write (le « non au nombre a été placé dans l'appel de fonction »)
response.end
affaire (4)
response.write (« non, ou méthode incorrecte spécifique »)
response.end
affaire (5)
response.write (« l'arrangement inadmissible pour le drapeau instantané de message, doit être 1 ou 0 »)
réponse. Extrémité
affaire (6)
response.write (le « message était plus de 160 chars et n'était pas sent.")
response.write (« pour désactiver cet avertissement éditer le drapeau dans le """ du "" smslib.asp)
response.end
affaire (7)
response.write (le « arrangement d'Invalied pour le drapeau bloqué, doit être 1 ou 0 »)
response.end
extrémité choisie
fonction de fin
%>
|
