class= " lineNumbers "
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=
id= " codeSnippet791684 " class= " ' сценарий можно вызвать через
<%@LANGUAGE= " VBSCRIPT " CODEPAGE= " 1252 " %>
sendsms звонока <% («447740123456», 1, «123 испытание ИСПЫТАНИЯ ABC», "", "")
если "" <> AQresponse после этого
response.write (AQresponse)
еще
response.write («ОШИБКА»)
закончитесь если
%>
'Фактический сценарий следует за. Это smogло быть помещено в отдельно архиве,
'как архив smslib.asp описываемый выше
<%
response.buffer = true
'Ltd. авторского права 2002 (aq)
'Сценарий требует компонента Майкрософт XMLHTTP
Тусклый обеспеченный метод, error_on_length, username, пароль, AQresponse
'Перемеююые потребителя Editable
обеспеченное = 0 'установило к тому 1 для соединения SSL
'или 0 для нормального соединения.
error_on_length = 1 «ли дать и ошибка на сообщениях над 160 chracters.
» 1 для поистине, 0 для ложного.
username = «testusername» 'ваш username aql, можно то установить здесь
'или сделано на a в основу звонока от функции.
пароль = «testpassword» 'ваш пароль aql, можно то установить здесь
'или сделано на a в основу звонока от функции.
'Не редактируйте ниже здесь если вы не знать вы делаете!
Sendsms функции (назначение, вспышка, сообщение, f_username, f_password, инициатор)
если null <> f_username или "" <> f_username после этого
username = f_username
закончитесь если
если null <> f_password или "" <> f_password после этого
пароль = f_password
закончитесь если
если username = "" после этого
senderror звонока (1)
еще если пароль = "" после этого
senderror звонока (2)
еще если назначение = "" после этого
senderror звонока (3)
еще если len (сообщение) > 160 и error_on_length = 1 после этого
вызовите senderror (6)
еще если вспышка > 1 или вспышка < 0 после этого
senderror звонока (5)
закончитесь если
закончитесь если
закончитесь если
закончитесь если
закончитесь если
Затемните objXMLHTTP, xml
сообщение = заменяет ть (сообщение, ««, «+")
Установите xml = Server.CreateObject («Microsoft.XMLHTTP»)
если обеспечено = null или обеспеченное = 0 после этого
xml. Раскройте «СТОЛБ», «http://gw1.aql.com/sms/sms_gw.php», ложное
xml.setRequestHeader «Содержани-Тип», «application/x-www-form-urlencoded»
xml. Пошлите «username=» & username & «&password=» & пароль & «&destination=» & назначение & «&message=» & сообщение & «&originator=» & инициатора & «&flash=» & блесните
еще если обеспеченное = 1 после этого
xml. Раскройте «СТОЛБ», «https://gw1.aql.com/sms/sms_gw.php», ложное
xml.setRequestHeader «Содержани-Тип», «application/x-www-form-urlencoded»
xml. Пошлите «username=» & username & «&password=» & пароль & «&destination=» & назначение & «&message=» & сообщение & «&originator=» & инициатора & «&flash=» & блесните
еще
senderror звонока (7)
закончитесь если
закончитесь если
AQresponse = xml.responseText
Установите xml = ничего
Закончите функцию
Senderror функции (удостоверение личности)
установите xml = ничего
Выберите случай (удостоверение личности)
случай (1)
response.write
(«Никакой username не был определен в или звоноке функции или разделе config»)
response.end
случай (2)
response.write
(«Никакой пароль не был определен в или звоноке функции или разделе config»)
response.end
случай (3)
response.write («нет, котор нужно пронумеровать было установлено в звонок функции»)
response.end
случай (4)
response.write («нет, или неправильно определенный метод»)
response.end
случай (5)
response.write («инвалидная установка для внезапного флага сообщения, должна быть 1 или 0»)
реакция. Конец
случай (6)
response.write («сообщение было над 160 чарсами и не было sent.")
response.write («вывести это предупреждение из строя редактируйте флаг в """ "" smslib.asp)
response.end
случай (7)
response.write («установка Invalied для безопасного флага, должна быть 1 или 0»)
response.end
конец отборный
функция конца
%>
|
