นี่เป็นเรื่องเกี่ยวกับวิธีการโทรบางอย่างของอินเทอร์เฟซ SMS, asp, สองวิธี, การเรียกอินเทอร์เฟซ SMS นั้นค่อนข้างง่าย แต่ยังใช้งานได้จริงมากกว่า
การเขียนวิธีที่หนึ่ง:
คัดลอกรหัสรหัสดังต่อไปนี้:
-
การส่งย่อย (มือถือ, ข้อความ)
'หากคุณต้องการส่งหมายเลขโทรศัพท์มือถือหลายหมายเลข โปรดวนซ้ำโดยอัตโนมัติ ใช้ `` เพื่อแยกหมายเลขโทรศัพท์มือถือหลายหมายเลข ไม่ต้องเพิ่ม `` หลังหมายเลขโทรศัพท์มือถือสุดท้าย
'หรือเรียกอินเทอร์เฟซ HttpInterfaceMore.aspx ของเรา ตามด้วยพารามิเตอร์เดียวกัน หรือเรียกอินเทอร์เฟซเว็บเซิร์ฟเวอร์ของเรา
รหัสผู้ใช้, รหัสผ่าน, ชื่อผู้ใช้, SMS, สถานะ
dimxmlObj,httpsendurl
'กรุณาเพิ่มรหัสผ่านบัญชีของคุณ
SMS = "แพลตฟอร์ม"
ชื่อผู้ใช้ = "ชื่อผู้ใช้"
รหัสผู้ใช้ = "รหัสองค์กร"
รหัสผ่าน = "รหัสผ่าน"
โปรดติดต่อเราเพื่อขอบัญชีทดสอบฟรี
httpsendurl="http://jiekou.56dxw.com/sms/HttpInterface.aspx?
comid="&userid&"&username="&username&"&userpwd="&password&"&handtel="&มือถือ&"
&sendcontent="&server.URLEncode(msg)&"&sendtime=&smsnumber="&sms
ตั้งค่า xmlObj = server.CreateObject("Microsoft.XMLHTTP")
xmlObj.Open "POST",httpsendurl,false
xmlObj.ส่ง()
สถานะ = xmlObj.responseText
ตั้งค่า xmlObj = ไม่มีเลย
หากสถานะ = "1" แสดงว่า 'ส่งเรียบร้อยแล้ว
Response.Write "<br><br>รหัสสถานะการส่งคืน: "&status&" สถานะการส่ง: ส่งสำเร็จ! <a
href=""javascript:history.back();"">กลับสู่หน้าการส่ง</a>"
มิฉะนั้น 'ไม่สามารถส่งได้'
Response.Write "<br><br>รหัสสถานะการส่งคืน: "&status&" สถานะการส่ง: การส่งล้มเหลว! <a
href=""javascript:history.back();"">กลับสู่หน้าการส่ง</a>"
จบถ้า
จบย่อย
-
การเขียนวิธีที่สอง
คัดลอกรหัสรหัสดังต่อไปนี้:
-
ฟังก์ชั่น SendSms (ชื่อผู้ใช้, UserPass, DstMobile, SmsMsg)
หรี่ http, msg, strUrl, RndNumber
ตั้งค่า 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 "ประเภทเนื้อหา:", "text/xml;charset=GB2312"
http.ส่ง
msg=http.ResponseText
ตั้งค่า http = ไม่มีอะไร
'หมายถึงการส่งสำเร็จ
ถ้า msg="1" แล้ว
SendSms = "ตกลง"
อื่น
sendSms = "ข้อผิดพลาด"
สิ้นสุดIF
สิ้นสุดฟังก์ชัน
-