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
Première 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 = "ID 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.Ouvrir "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 ! <a
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 ! <a
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"
finSI
Fonction de fin
%>