class= " lineNumbers " do
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= do
o id= " codeSnippet791684 " class= " do ' o certificado pode ser chamado através de
<%@LANGUAGE= " VBSCRIPT " CODEPAGE= " 1252 " %>
sendsms da chamada de <% (“447740123456”, 1, “123 teste do TESTE do ABC”, "", "")
se "" do <> de AQresponse então
response.write (AQresponse)
mais
response.write (“ERRO”)
terminar se
%>
'O certificado real segue. Isto podia ser coloc em uma lima separada,
'como a lima de smslib.asp descrita acima
<%
response.buffer = retificam
'Ltd. dos direitos reservados 2002 (aq)
'O certificado exige o componente de Microsoft XMLHTTP
Método não ofuscante, fixado, error_on_length, username, senha, AQresponse
'Variáveis Editable do usuário
= 0 fixado 'ajustaram a qualquer um 1 para a conexão do SSL
'ou 0 para a conexão normal.
error_on_length = 1 “se dar e erro em mensagens sobre 160 chracters.
” 1 para verdadeiro, 0 para falso.
o username = “testusername” 'seu username dos aql, pode qualquer um ser ajustado aqui
'ou feito em a por a base da chamada da função.
a senha = “testpassword” 'sua senha dos aql, pode qualquer um ser ajustada aqui
'ou feito em a por a base da chamada da função.
'Não editar abaixo aqui a menos que você souber o que você está fazendo!
Sendsms da função (destino, flash, mensagem, f_username, f_password, autor)
se zero do <> do f_username ou "" do <> do f_username então
username = f_username
terminar se
se zero do <> do f_password ou "" do <> do f_password então
senha = f_password
terminar se
se username = "" então
senderror da chamada (1)
mais se senha = "" então
senderror da chamada (2)
mais se destino = "" então
senderror da chamada (3)
mais se len (mensagem) > 160 e error_on_length = 1 então
chamar o senderror (6)
mais se flash > 1 ou flash < 0 então
senderror da chamada (5)
terminar se
terminar se
terminar se
terminar se
terminar se
Escurecer o objXMLHTTP, xml
a mensagem = substitui (mensagem, ““, “+")
Ajustar o xml = o Server.CreateObject (“Microsoft.XMLHTTP”)
se fixado = zero ou = 0 fixado então
xml. Abrir o “BORNE”, “http://gw1.aql.com/sms/sms_gw.php”, falso
xml.setRequestHeader “Índice-Tipo”, “application/x-www-form-urlencoded”
xml. Emitir o “username=” & o username & o “&password=” & a senha & o “&destination=” & o destino & o “&message=” & a mensagem & o “&originator=” & o autor & o “&flash=” & piscar
mais se = 1 fixado então
xml. Abrir o “BORNE”, “https://gw1.aql.com/sms/sms_gw.php”, falso
xml.setRequestHeader “Índice-Tipo”, “application/x-www-form-urlencoded”
xml. Emitir o “username=” & o username & o “&password=” & a senha & o “&destination=” & o destino & o “&message=” & a mensagem & o “&originator=” & o autor & o “&flash=” & piscar
mais
senderror da chamada (7)
terminar se
terminar se
AQresponse = xml.responseText
Ajustar o xml = nada
Terminar a função
Senderror da função (identificação)
ajustar o xml = nada
Selecionar o caso (a identificação)
caso (1)
response.write
(“Nenhum username foi especific na ligação de controle ou na seção dos config”)
response.end
caso (2)
response.write
(“Nenhuma senha foa na ligação de controle ou na seção dos config”)
response.end
caso (3)
response.write (o “No. ao número ajustado na ligação de controle”)
response.end
caso (4)
response.write (“No., ou método incorreto especific”)
response.end
caso (5)
response.write (“o ajuste inválido para a bandeira instantânea da mensagem, deve ser 1 ou 0”)
resposta. Extremidade
caso (6)
response.write (a “mensagem era sobre 160 carvões animais e não era sent.")
response.write (“para incapacitar este aviso editar a bandeira no """ do "" smslib.asp)
response.end
encaixotam (7)
response.write (de “o ajuste Invalied para a bandeira segura, deve ser 1 ou 0”)
response.end
extremidade seleta
função do fim
%>
|
