Речь идет о некоторых методах вызова интерфейса SMS, asp, два метода вызова интерфейса SMS относительно просты, но также более практичны.
Способ записи первый:
Скопируйте код кода следующим образом:
<%
Sub sendsms (мобильный, msg)
«Если вам нужно отправить несколько номеров мобильных телефонов, используйте цикл автоматически. Используйте «,» для разделения нескольких номеров мобильных телефонов. Не добавляйте «,» после последнего номера мобильного телефона.
'Или вызовите наш интерфейс HttpInterfaceMore.aspx с теми же параметрами или вызовите интерфейс нашего веб-сервера.
dim идентификатор пользователя, пароль, имя пользователя, смс, статус
dimxmlObj, httpsendurl
'Пожалуйста, добавьте пароль своей учетной записи
смс="Платформа"
имя пользователя="имя пользователя"
userid = "Идентификатор предприятия"
пароль = "пароль"
Пожалуйста, свяжитесь с нами, чтобы запросить бесплатный тестовый аккаунт
httpsendurl="http://jiekou.56dxw.com/sms/HttpInterface.aspx?
comid="&userid&"&username="&имя_пользователя&"&userpwd="&пароль&"&handtel="&mobile&"
&sendcontent="&server.URLEncode(msg)&"&sendtime=&smsnumber="&sms
Установите xmlObj = server.CreateObject("Microsoft.XMLHTTP")
xmlObj.Откройте «POST», httpsendurl, false
xmlObj.send()
статус = xmlObj.responseText
Установить xmlObj = ничего
Если статус = «1», то «Отправлено успешно».
Response.Write "<br><br>Код статуса возврата: "&status&" Статус отправки: Отправлено успешно! <a
href=""javascript:history.back();"">Вернуться на страницу отправки</a>"
Иначе 'Не удалось отправить
Response.Write "<br><br>Код статуса возврата: "&status&" Статус отправки: отправка не удалась! <a
href=""javascript:history.back();"">Вернуться на страницу отправки</a>"
Конец, если
Конец субтитра
%>
Способ написания второй
Скопируйте код кода следующим образом:
<%
Функция SendSms(UserName, UserPass, DstMobile, SmsMsg)
Уменьшить http,msg,strUrl,RndNumber
установите http = Server.CreateObject("Microsoft.XMLHTTP")
strurl="http://jiekou.56dxw.com/sms/HttpInterface.aspx?comid=121&username="&SmsName&"&userpwd="&SmsPw&"
&sendtime=&smsnumber=1065&handtel="&DstMobile&"&sendcontent="&server.URLEncode(SmsMsg)
http.Open "GET",strUrl, false
http.setRequestHeader "Тип контента:", "text/xml;charset=GB2312"
http.Отправить
msg=http.ResponseText
установить http = ничего
'Означает успешную отправку
Если сообщение="1", то
ОтправитьSms="ОК"
еще
sendSms="ОШИБКА"
конецЕСЛИ
Конечная функция
%>