Trata-se de alguns métodos de chamada da interface SMS, asp, dois métodos, chamar a interface SMS são relativamente simples, mas também mais práticos
Método de escrita um:
Copie o código do código da seguinte forma:
<%
Sub enviosms(celular,msg)
'Se você precisar enviar vários números de celular, alterne automaticamente. Use "," para separar vários números de celular. Não adicione "," após o último número de celular.
'Ou chame nossa interface HttpInterfaceMore.aspx, seguida dos mesmos parâmetros ou chame nossa interface de servidores web
dim ID do usuário, senha, nome de usuário, sms, status
dimxmlObj,httpsendurl
'Por favor, adicione a senha da sua conta
sms="Plataforma"
nome de usuário="nome de usuário"
userid = "ID da empresa"
senha = "senha"
Entre em contato conosco para solicitar uma conta de teste gratuita
httpsendurl="http://jiekou.56dxw.com/sms/HttpInterface.aspx?
comid="&userid&"&username="&username&"&userpwd="&password&"&handtel="&mobile&"
&sendcontent="&server.URLEncode(msg)&"&sendtime=&smsnumber="&sms
Definir xmlObj = server.CreateObject("Microsoft.XMLHTTP")
xmlObj.Open "POST",httpsendurl,falso
xmlObj.send()
status = xmlObj.responseText
Defina xmlObj = nada
Se status = "1" então 'Enviado com sucesso
Response.Write "<br><br>Código de status de retorno: "&status&" Status de envio: Enviado com sucesso! <a
href=""javascript:history.back();"">Retornar à página de envio</a>"
Else 'Falha ao enviar
Response.Write "<br><br>Código de status de retorno: "&status&" Status de envio: Falha no envio! <a
href=""javascript:history.back();"">Retornar à página de envio</a>"
Terminar se
Terminar sub
%>
Método de escrita dois
Copie o código do código da seguinte forma:
<%
Função SendSms (Nome de usuário, UserPass, DstMobile, SmsMsg)
Escurecer http,msg,strUrl,RndNumber
definir 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, falso
http.setRequestHeader "Tipo de conteúdo:", "text/xml;charset=GB2312"
http.Enviar
msg=http.ResponseText
definir http = nada
'Representa envio bem-sucedido
Se mensagem = "1" então
EnviarSms="OK"
outro
enviarSms="ERR"
fim SE
Função final
%>