استدعاء صفحات الويب على مواقع الويب الأخرى من خلال مكون XMLHTTP في XML، ثم اعتراض المعلومات الأصلية أو استبدالها على دفعات لتحويلها إلى متغيرات ثم تخزينها واحدة تلو الأخرى في قاعدة البيانات. ميزته الرئيسية هي أنه ليست هناك حاجة لإضافة كمية كبيرة من المعلومات يدويًا. يمكنك تحديد اعتراض المعلومات من محطة معينة لإدخالها على دفعات، مما يوفر الوقت والجهد. الفرق مع برنامج ASP thief الخاص به هو أنه لم يعد يعتمد على موقع الويب المستهدف الخاص به.
الرمز المرجعي:
انسخ رمز الكود كما يلي:
<%
'يعلن عن وظيفة للحصول على معلومات الهدف، ويتم تنفيذها من خلال مكونات XML.
وظيفة Geturl(/blog/url)
تعيين الاسترداد = CreateObject(Microsoft.XMLHTTP)
مع الاسترجاع
.افتح GET، url، False
.يرسل
GetURL = bytes2bstr(.responsebody)
'التحقق من المعلومات التي تم الحصول عليها إذا كان طول المعلومات أقل من 100، فسيفشل الاعتراض.
إذا لين (.responsebody) <100 ثم
فشل Response.write في الحصول على الملف البعيد <a href=&url& target=_blank>&url&</a>.
Response.end
نهاية إذا
نهاية مع
تعيين الاسترجاع = لا شيء
وظيفة النهاية
'قم بتحويل الملف الثنائي إلى سلسلة، وإلا ستظهر أحرف مشوهة!
وظيفة bytes2bstr (فين)
ستريتورن =
لأني = 1 إلى lenb(vin)
thischarcode = ascb(midb(vin,i,1))
إذا كان thischarcode <&h80 إذن
strreturn = strreturn & مركز حقوق الإنسان (thischarcode)
آخر
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
ط = ط + 1
نهاية إذا
التالي
bytes2bstr = strreturn
وظيفة النهاية
'قم بتعريف تنسيق الاعتراض، بدءًا من البداية وانتهاءً بالأخير
وظيفة GetKey(HTML،ابدأ،الأخير)
filearray=split(HTML,ابدأ)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
وظيفة النهاية
خافت Softid، URL، Html، العنوان
"احصل على معرف الصفحة التي تريد جلبها."
SoftId=الطلب(المعرف)
URL=http://www3.skycn.com/soft/&SoftId&.html
أتش تي أم أل = جيتورل(/blog/Url)
'خذ اسم برنامج اعتراض برنامج السماء كمثال
العنوان = GetKey(Html,<font color='#004FC6' size='3'>,</font></b></td></tr>)
'افتح قاعدة البيانات واستعد لتخزينها
خافت connstr، conn، rs، sql
connstr=DBQ=+server.mappath(db1.mdb)+;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};
تعيين conn=server.createobject(ADODB.CONNECTION)
conn.open connstr
تعيين rs=server.createobject(adodb.recordset)
sql=اختر [اسم العمود] من [اسم الجدول] حيث [اسم العمود]='&العنوان&'
rs.open SQL، كون، 3،3
إذا rs.eof وrs.bof ذلك الحين
rs(اسم العمود)=العنوان
rs.update
تعيين RS=لا شيء
نهاية إذا
تعيين RS=لا شيء
اكتملت مجموعة الاستجابة.الكتابة!
%>