Ini tentang beberapa metode pemanggilan antarmuka SMS, asp, dua metode, pemanggilan antarmuka SMS relatif sederhana, tetapi juga lebih praktis metode penulisan:
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&&nama pengguna=&nama pengguna&&userpwd=&kata sandi&&handtel=&ponsel&
&sendcontent=&server.URLEncode(pesan)&&sendtime=&smsnumber=&sms
Setel xmlObj = server.CreateObject(Microsoft.XMLHTTP)
xmlObj.Buka POST, httpsendurl, salah
xmlObj.kirim()
status = xmlObj.responseText
Setel xmlObj = tidak ada
Jika status = 1 maka 'Berhasil terkirim
Response.Write <br><br>Kode status pengembalian: &status& Status pengiriman: Berhasil terkirim! <a
href=javascript:history.back();>Kembali ke halaman pengiriman</a>
Lain 'Gagal mengirim
Response.Write <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)
strrl=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, salah
http.setRequestHeader Tipe 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
%>