Речь идет о некоторых методах вызова интерфейса SMS, asp, двух методах, вызов интерфейса SMS относительно прост, но также более практичен. Первый метод написания:
Скопируйте код кода следующим образом:
<%
Sub sendsms (мобильный, msg)
«Если вам нужно отправить несколько номеров мобильных телефонов, используйте цикл автоматически. Используйте «,» для разделения нескольких номеров мобильных телефонов. Не добавляйте «,» после последнего номера мобильного телефона.
'Или вызовите наш интерфейс HttpInterfaceMore.aspx с теми же параметрами или вызовите интерфейс нашего веб-сервера.
dim идентификатор пользователя, пароль, имя пользователя, смс, статус
dimxmlObj, httpsendurl
'Пожалуйста, добавьте пароль своей учетной записи
смс=платформа
имя пользователя = имя пользователя
идентификатор пользователя = идентификатор предприятия
пароль = пароль
Пожалуйста, свяжитесь с нами, чтобы запросить бесплатный тестовый аккаунт
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.Open POST, httpsendurl, false
xmlObj.send()
статус = xmlObj.responseText
Установить xmlObj = ничего
Если статус = 1, то «Отправлено успешно».
Response.Write <br><br>Код статуса возврата: &status& Статус отправки: Отправлено успешно! <а
href=javascript:history.back();>Вернуться на страницу отправки</a>
Иначе 'Не удалось отправить
Response.Write <br><br>Код статуса возврата: &status& Статус отправки: Отправка не удалась! <а
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=ОШИБКА
конецЕСЛИ
Конечная функция
%>