Ini tentang beberapa metode pemanggilan antarmuka SMS, asp, dua metode, pemanggilan antarmuka SMS relatif sederhana, tetapi juga lebih praktis
Metode penulisan satu:
Copy kode kodenya sebagai berikut:
<%
Sub kirim sms (ponsel, pesan)
'Jika Anda perlu mengirim beberapa nomor ponsel, silakan siklus secara otomatis. Gunakan "," untuk memisahkan beberapa nomor ponsel. Jangan tambahkan "," setelah nomor ponsel terakhir.
'Atau hubungi antarmuka HttpInterfaceMore.aspx kami, diikuti dengan parameter yang sama atau hubungi antarmuka server web kami
redupkan userid,password,username,sms,status
dimxmlObj,httpsendurl
'Silakan tambahkan kata sandi akun Anda
sms="Platform"
nama pengguna = "nama pengguna"
userid = "ID Perusahaan"
kata sandi = "kata sandi"
Silakan hubungi kami untuk meminta akun pengujian gratis
httpsendurl="http://jiekou.56dxw.com/sms/HttpInterface.aspx?
comid="&userid&"&username="&nama pengguna&"&userpwd="&kata sandi&"&handtel="&mobile&"
&sendcontent="&server.URLEncode(pesan)&"&sendtime=&smsnumber="&sms
Setel xmlObj = server.CreateObject("Microsoft.XMLHTTP")
xmlObj.Buka "POST",httpsendurl,false
xmlObj.kirim()
status = xmlObj.responseText
Setel xmlObj = tidak ada
Jika status = "1" maka 'Berhasil terkirim
Response.Tulis "<br><br>Kode status pengembalian: "&status&" Status pengiriman: Berhasil terkirim! <a
href=""javascript:history.back();"">Kembali ke halaman pengiriman</a>"
Lain 'Gagal mengirim
Response.Tulis "<br><br>Kode status pengembalian: "&status&" Status pengiriman: Pengiriman gagal! <a
href=""javascript:history.back();"">Kembali ke halaman pengiriman</a>"
Berakhir jika
Akhiri sub
%>
Metode penulisan kedua
Copy kode kodenya sebagai berikut:
<%
Fungsi KirimSms(Nama Pengguna, UserPass, DstMobile, SmsMsg)
Redupkan http,msg,strUrl,RndNumber
atur 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.Buka "GET",strUrl, false
http.setRequestHeader "Jenis konten:", "teks/xml;charset=GB2312"
http.Kirim
pesan=http.ResponseText
atur http = tidak ada
'Mewakili pengiriman yang berhasil
Jika pesan = "1" maka
KirimSms="OK"
kalau tidak
kirimSms="ERR"
akhirJIKA
Fungsi Akhir
%>