Se trata de algunos métodos de llamada de la interfaz SMS, asp, dos métodos. Llamar a la interfaz SMS es relativamente simple, pero también es más práctico.
Copie el código de código de la siguiente manera:
<%
Subenvíasms(móvil,msg)
'Si necesita enviar varios números de teléfono móvil, realice el ciclo automáticamente. Utilice "," para separar varios números de teléfono móvil. No agregue "," después del último número de teléfono móvil.
'O llame a nuestra interfaz HttpInterfaceMore.aspx, seguida de los mismos parámetros o llame a nuestra interfaz de servidores web
ID de usuario tenue, contraseña, nombre de usuario, SMS, estado
dimxmlObj,httpsendurl
'Por favor agregue la contraseña de su cuenta
sms=plataforma
nombre de usuario = nombre de usuario
ID de usuario = ID de empresa
contraseña = contraseña
Por favor contáctenos para solicitar una cuenta de prueba gratuita
httpsendurl=http://jiekou.56dxw.com/sms/HttpInterface.aspx?
comid=&ID de usuario&&nombre de usuario=&nombre de usuario&&userpwd=&contraseña&&handtel=&móvil&
&sendcontent=&server.URLEncode(msg)&&sendtime=&smsnumber=&sms
Establecer xmlObj = servidor.CreateObject(Microsoft.XMLHTTP)
xmlObj.Abrir POST, httpsendurl, falso
xmlObj.enviar()
estado = xmlObj.responseText
Establecer xmlObj = nada
Si estado = 1 entonces 'Enviado exitosamente
Response.Write <br><br>Código de estado de devolución: &status& Estado de envío: ¡Enviado correctamente! <un
href=javascript:history.back();>Volver a la página de envío</a>
De lo contrario, no se pudo enviar
Response.Write <br><br>Código de estado de devolución: &status& Estado de envío: ¡Error en el envío! <un
href=javascript:history.back();>Volver a la página de envío</a>
terminar si
Fin sub
%>
Método de escritura dos
Copie el código de código de la siguiente manera:
<%
Función EnviarSms(Nombre de usuario, Contraseña de usuario, DstMobile, MensajeSms)
Dim http,msg,strUrl,RndNumber
establecer 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.Abrir GET, strUrl, falso
http.setRequestHeader Tipo de contenido:, text/xml;charset=GB2312
http.Enviar
msg=http.TextoRespuesta
establecer http = nada
'Representa el envío exitoso
Si mensaje = 1 entonces
EnviarSms=Aceptar
demás
enviarSms=ERR
finalIF
Función final
%>