El código fuente de la interfaz ASP SMS es relativamente simple pero también bastante práctico (dos formas de escribir)

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 más práctico.

Método de escritura uno:

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 = server.CreateObject ("Microsoft.XMLHTTP")

xmlObj.Abrir "POST", httpsendurl, falso

xmlObj.enviar()

estado = xmlObj.responseText

Establecer xmlObj = nada

Si estado = "1", entonces 'Enviado correctamente

Response.Write "<br><br>Código de estado de devolución: "&status&" Estado de envío: ¡Enviado correctamente! <a

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! <a

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 msg="1" entonces

EnviarSms="OK"

demás

enviarSms="ERR"

finalIF

Función final

%>