Trata-se de alguns métodos de chamada da interface SMS, asp, dois métodos, chamar a interface SMS é relativamente simples, mas também mais prático.
Copie o código do código da seguinte forma:
<%
Subenviosms(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
ID do usuário = 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! <um
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! <um
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=ERRO
fim SE
Função final
%>