يتعلق الأمر ببعض طرق الاتصال لواجهة الرسائل القصيرة، asp، طريقتان، الاتصال بواجهة الرسائل القصيرة بسيط نسبيًا، ولكنه أيضًا أكثر عملية
طريقة الكتابة الأولى:
انسخ رمز الكود كما يلي:
<%
إرسال الرسائل الفرعية (الجوال، الرسائل)
"إذا كنت بحاجة إلى إرسال أرقام هواتف محمولة متعددة، فيرجى استخدام "" لفصل أرقام هواتف محمولة متعددة"،" بعد رقم الهاتف المحمول الأخير.
'أو اتصل بواجهة HttpInterfaceMore.aspx الخاصة بنا، متبوعة بنفس المعلمات أو اتصل بواجهة خوادم الويب الخاصة بنا
معرف المستخدم الخافت، كلمة المرور، اسم المستخدم، الرسائل القصيرة، الحالة
dimxmlObj,httpsendurl
'الرجاء إضافة كلمة مرور حسابك
الرسائل القصيرة = "المنصة"
اسم المستخدم = "اسم المستخدم"
معرف المستخدم = "معرف المؤسسة"
كلمة المرور = "كلمة المرور"
يرجى الاتصال بنا لطلب حساب تجريبي مجاني
httpsendurl="http://jiekou.56dxw.com/sms/HttpInterface.aspx?
comid="&userid&"&username="&username&"&userpwd="&password&"&handtel="&mobile&"
&sendcontent="&server.URLEncode(msg)&"&sendtime=&smsnumber="&sms
تعيين xmlObj = server.CreateObject("Microsoft.XMLHTTP")
xmlObj.Open "POST"،httpsendurl،false
xmlObj.send()
الحالة = xmlObj.responseText
اضبط xmlObj = لا شيء
إذا كانت الحالة = "1"، فسيتم الإرسال بنجاح
Response.اكتب "<br><br>رمز حالة الإرجاع: "&الحالة&" حالة الإرسال: تم الإرسال بنجاح! <a
href=""javascript:history.back();"">الرجوع إلى صفحة الإرسال</a>"
آخر "فشل الإرسال."
Response.Write "<br><br>إرجاع رمز الحالة: "&الحالة&" حالة الإرسال: فشل الإرسال! <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، خطأ
http.setRequestHeader "نوع المحتوى:"، "text/xml؛ مجموعة الأحرف = GB2312"
http.إرسال
msg=http.ResponseText
تعيين http = لا شيء
'يمثل الإرسال الناجح
إذا كانت الرسالة = "1" ثم
سيندسمز = "موافق"
آخر
إرسالSms = "خطأ"
endIF
وظيفة النهاية
%>