هناك العديد من برامج اللصوص الشائعة على الإنترنت الآن، بما في ذلك لص الأخبار ولص الموسيقى ولص التنزيل، فكيف يفعلون ذلك؟ اسمحوا لي أن أقدم مقدمة مختصرة وآمل أن تكون مفيدة لجميع مشرفي المواقع.
(1) المبدأ:
يقوم برنامج اللص في الواقع باستدعاء صفحات الويب الموجودة على مواقع الويب الأخرى من خلال مكون XMLHTTP في XML. على سبيل المثال، تقوم العديد من برامج سرقة الأخبار باستدعاء صفحات الويب الإخبارية الخاصة بـ Sina، وإجراء بعض عمليات استبدال HTML فيها، وكذلك تصفية الإعلانات. مميزات استخدام برنامج Thief هي: ليست هناك حاجة لصيانة الموقع، لأن البيانات الموجودة في برنامج Thief تأتي من مواقع أخرى، وسيتم تحديثها مع تحديث الموقع، ويمكنه حفظ موارد الخادم بشكل عام يحتوي برنامج Thief فقط على عدد قليل من الملفات، وكل محتوى الويب هو من مواقع ويب أخرى. العيوب هي: عدم الاستقرار، إذا حدث خطأ في موقع الويب المستهدف، فسوف يتعطل البرنامج أيضًا، وإذا تمت ترقية موقع الويب المستهدف وصيانته، فسيحتاج برنامج اللص أيضًا إلى التعديل وفقًا لذلك، لأنه مكالمة عن بعد؛ السرعة تعادل سرعة قراءة البيانات على الخادم المحلي، وهي بالتأكيد أبطأ من ذلك.
(2) أمثلة
فيما يلي شرح مختصر لتطبيق XMLHTTP في ASP
＜%
"الوظائف المشتركة
" 1. أدخل عنوان URL لصفحة الويب المستهدفة، وقيمة الإرجاع getHTTPPage هي رمز html لصفحة الويب المستهدفة.
وظيفة getHTTPage(url)
dimHttp
تعيين Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET"، URL، خطأ
المتشعب.إرسال ()
إذا Http.readystate＜＞4 ثم
وظيفة الخروج
نهاية إذا
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
تعيين http=لا شيء
إذا كان err.number＜＞0 ثم err.Clear
وظيفة النهاية
'2. تحويل Ranma. استخدم xmlhttp مباشرة للاتصال بصفحات الويب ذات الأحرف الصينية. ما ستحصل عليه هو Ranma. يمكنك تحويله من خلال مكون adodb.stream.
الدالة BytesToBstr(body,Cset)
objstream خافت
تعيين objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.اكتب النص
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
تعيين objstream = لا شيء
وظيفة النهاية
"حاول استدعاء محتوى html الخاص بـ http://www.3doing.com/earticle/
عنوان خافت، أتش تي أم أل
عنوان URL = " http://www.3doing.com/earticle/ "
أتش تي أم أل = getHTTPPage(Url)
الرد.اكتب أتش تي أم أل
%>