Hier geht es um einige Aufrufmethoden der SMS-Schnittstelle, zwei Methoden. Der Aufruf der SMS-Schnittstelle ist 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
Benutzer-ID = 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>
Ende 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.Open 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
%>