class= " lineNumbers " del
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= del
il id= " codeSnippet791684 " class= " del ' lo scritto può essere denominato via
<%@LANGUAGE= " VBSCRIPT " CODEPAGE= " 1252 " %>
sendsms di chiamata di <% (“447740123456„, 1, “123 prova della PROVA di ABC„, "", "")
se "" del <> di AQresponse allora
response.write (AQresponse)
altrimenti
response.write (“ERRORE„)
concluder se
%>
'Lo scritto reale segue. Ciò ha potuto essere disposta in una lima separata,
'quale la lima di smslib.asp descritta precedentemente
<%
response.buffer = allineano
'Srl del copyright 2002 (aq).
'Lo scritto richiede la componente di Microsoft XMLHTTP
Metodo fioco, assicurato, error_on_length, username, parola d'accesso, AQresponse
'Variabili Editable dell'utente
= 0 fissato 'ha regolato a l'uno o l'altro 1 per il collegamento dello SSL
'o 0 per collegamento normale.
error_on_length = 1 “se dare ed errore sui messaggi oltre 160 chracters.
„ 1 per allineare, 0 per falso.
il username = “testusername„ 'il vostro username di aql, può l'uno o l'altro essere regolato qui
'o fatto sulla a per base di chiamata dalla funzione.
la parola d'accesso = “testpassword„ 'la vostra parola d'accesso di aql, può l'uno o l'altro essere fissata qui
'o fatto sulla a per base di chiamata dalla funzione.
'Non pubblicare sotto qui a meno che conosciate che cosa state facendo!
Sendsms di funzione (destinazione, flash, messaggio, f_username, f_password, creatore)
se posizione di segnale minimo del <> del f_username o "" del <> del f_username allora
username = f_username
concluder se
se posizione di segnale minimo del <> di f_password o "" del <> di f_password allora
parola d'accesso = f_password
concluder se
se username = "" allora
senderror di chiamata (1)
altrimenti se parola d'accesso = "" allora
senderror di chiamata (2)
altrimenti se destinazione = "" allora
senderror di chiamata (3)
altrimenti se len (messaggio) > 160 e il error_on_length = 1 allora
denominare il senderror (6)
altrimenti se flash > 1 o flash < 0 allora
senderror di chiamata (5)
concluder se
concluder se
concluder se
concluder se
concluder se
Oscurare il objXMLHTTP, xml
il messaggio = sostituisce (messaggio, ““, “+")
Regolare il xml = Server.CreateObject (“Microsoft.XMLHTTP„)
se fissato = posizione di segnale minimo o = 0 fissato allora
xml. Aprire “l'ALBERINO„, “http://gw1.aql.com/sms/sms_gw.php„, falso
xml.setRequestHeader “Soddisfare-Tipo„, “application/x-www-form-urlencoded„
xml. Trasmettere “il username=„ & username & “&password=„ & parola d'accesso & “&destination=„ & destinazione & “&message=„ & messaggio & “&originator=„ & creatore & “&flash=„ & infiammare
altrimenti se = 1 fissato allora
xml. Aprire “l'ALBERINO„, “https://gw1.aql.com/sms/sms_gw.php„, falso
xml.setRequestHeader “Soddisfare-Tipo„, “application/x-www-form-urlencoded„
xml. Trasmettere “il username=„ & username & “&password=„ & parola d'accesso & “&destination=„ & destinazione & “&message=„ & messaggio & “&originator=„ & creatore & “&flash=„ & infiammare
altrimenti
senderror di chiamata (7)
concluder se
concluder se
AQresponse = xml.responseText
Regolare il xml = niente
Concludere la funzione
Senderror di funzione (identificazione)
regolare il xml = niente
Selezionare il caso (identificazione)
mettere (1)
response.write
(“Nessun username è stato specificato nella chiamata di funzione o nella sezione di config„)
response.end
mettono (2)
response.write
(“Nessuna parola d'accesso è stata specificata nella chiamata di funzione o nella sezione di config„)
response.end
caso (3)
response.write (“no al numero è stato regolato nella chiamata di funzione„)
response.end
caso (4)
response.write (“no, o metodo errato specificato„)
response.end
caso (5)
response.write (“la regolazione non valida per la bandierina istantanea del messaggio, deve essere 1 o 0„)
risposta. Estremità
caso (6)
response.write (“il messaggio era oltre 160 carboni e non era sent.")
response.write (“rendere invalido questo avvertimento pubblicare la bandierina nel """ del "" smslib.asp)
response.end
mettono (7)
response.write (“la regolazione di Invalied per la bandierina sicura, deve essere 1 o 0„)
response.end
estremità prescelta
funzione di conclusione
%>
|
