Il s'agit de quelques méthodes d'appel de l'interface SMS, asp, deux méthodes, l'appel de l'interface SMS est relativement simple, mais aussi plus pratique. Méthode d'écriture :
Copiez le code comme suit :
<%
Sous-envois de SMS (mobile, msg)
"Si vous devez envoyer plusieurs numéros de téléphone mobile, veuillez faire un cycle automatiquement. Utilisez "," pour séparer plusieurs numéros de téléphone mobile. N'ajoutez pas "," après le dernier numéro de téléphone mobile.
'Ou appelez notre interface HttpInterfaceMore.aspx, suivie des mêmes paramètres ou appelez notre interface de serveurs Web
dim identifiant, mot de passe, nom d'utilisateur, sms, statut
dimxmlObj,httpsendurl
'Veuillez ajouter le mot de passe de votre compte
sms=plateforme
nom d'utilisateur = nom d'utilisateur
ID utilisateur = identifiant d'entreprise
mot de passe = mot de passe
Veuillez nous contacter pour demander un compte test gratuit
httpsendurl=http://jiekou.56dxw.com/sms/HttpInterface.aspx?
comid=&userid&&username=&username&&userpwd=&password&&handtel=&mobile&
&sendcontent=&server.URLEncode(msg)&&sendtime=&smsnumber=&sms
Définir xmlObj = server.CreateObject(Microsoft.XMLHTTP)
xmlObj.Open POST,httpsendurl,false
xmlObj.send()
statut = xmlObj.responseText
Définir xmlObj = rien
Si statut = 1 alors 'Envoyé avec succès
Response.Write <br><br>Code d'état de retour : &status& Statut d'envoi : Envoyé avec succès ! <un
href=javascript:history.back();>Retour à la page d'envoi</a>
Sinon 'Échec de l'envoi
Response.Write <br><br>Code d'état de retour : &status& Statut d'envoi : Échec de l'envoi ! <un
href=javascript:history.back();>Retour à la page d'envoi</a>
Terminer si
Fin du sous-marin
%>
Deuxième méthode d’écriture
Copiez le code comme suit :
<%
Fonction SendSms (UserName, UserPass, DstMobile, SmsMsg)
Faible http, msg, strUrl, RndNumber
définir 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.Ouvrez GET, strUrl, false
http.setRequestHeader Type de contenu :, text/xml;charset=GB2312
http.Envoyer
msg=http.ResponseText
définir http = rien
'Représente un envoi réussi
Si msg=1 alors
EnvoyerSms=OK
autre
envoyerSms=ERR
finIF
Fonction de fin
%>