Hier geht es um einige Aufrufmethoden der SMS-Schnittstelle, ASP. Zwei Methoden zum Aufrufen der SMS-Schnittstelle sind relativ einfach, aber auch praktischer
Schreibmethode eins:
Kopieren Sie den Codecode wie folgt:
<%
Sub sendsms(mobile,msg)
„Wenn Sie mehrere Mobiltelefonnummern senden müssen, verwenden Sie bitte „“, um mehrere Mobiltelefonnummern zu trennen. Fügen Sie nicht „“ nach der letzten Mobiltelefonnummer hinzu.
„Oder rufen Sie unsere HttpInterfaceMore.aspx-Schnittstelle auf, gefolgt von denselben Parametern, oder rufen Sie unsere Webserver-Schnittstelle auf
Dimmen Sie Benutzer-ID, Passwort, Benutzername, SMS, Status
dimxmlObj,httpsendurl
„Bitte fügen Sie Ihr Kontopasswort hinzu
sms="Plattform"
Benutzername="Benutzername"
userid = „Unternehmens-ID“
Passwort = „Passwort“
Bitte kontaktieren Sie uns, um ein kostenloses Testkonto anzufordern
httpsendurl="http://jiekou.56dxw.com/sms/HttpInterface.aspx?
comid="&userid&"&username="&username&"&userpwd="&password&"&handtel="&mobile&"
&sendcontent="&server.URLEncode(msg)&"&sendtime=&smsnumber="&sms
Setze xmlObj = server.CreateObject("Microsoft.XMLHTTP")
xmlObj.Open „POST“,httpsendurl,false
xmlObj.send()
status = xmlObj.responseText
Setze xmlObj = nichts
Wenn Status = „1“, dann „Erfolgreich gesendet“.
Response.Write „<br><br>Rückgabestatuscode: „&status&“ Sendestatus: Erfolgreich gesendet! <a
href=""javascript:history.back();"">Zurück zur Sendeseite</a>"
Sonst 'Fehler beim Senden
Response.Write „<br><br>Rückgabestatuscode: „&status&“ Sendestatus: Senden fehlgeschlagen! <a
href=""javascript:history.back();"">Zurück zur Sendeseite</a>"
Beenden Sie, wenn
Sub beenden
%>
Schreibmethode zwei
Kopieren Sie den Codecode wie folgt:
<%
Funktion SendSms(UserName, UserPass, DstMobile, SmsMsg)
Dimmen Sie http,msg,strUrl,RndNumber
set 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.Öffnen Sie „GET“,strUrl, false
http.setRequestHeader „Content-type:“, „text/xml;charset=GB2312“
http.Senden
msg=http.ResponseText
setze http = nichts
'Stellt einen erfolgreichen Versand dar
Wenn msg="1", dann
SendSms="OK"
anders
sendSms="ERR"
endIF
Funktion beenden
%>