في الآونة الأخيرة ، تحظى بعض برامج التجميع بشعبية على الإنترنت. المزيد من الناس يبيعون هذه الأشياء عبر الإنترنت. كثير من الناس الذين لا يعرفون الكثير يحسدون على هذه البرامج. في الواقع ، إذا فهمت بعض ASP وفهمت مبادئ برامج التجميع التلقائي ، فستشعر أنه من السهل جدًا تطبيق الأتمتة.
المبدأ والمزايا: من خلال مكون XMLHTTP في XML ، يتم استدعاء صفحات الويب على مواقع الويب الأخرى ، ثم تعترض الدُفعات أو استبدال المعلومات الأصلية بحيث يتم تحويلها إلى متغيرات ثم تخزينها في قاعدة البيانات الأولى بواحدة. ميزةها الرئيسية هي أنه لا توجد حاجة لإضافة كمية كبيرة من المعلومات يدويًا. يمكنك تحديد اعتراض معلومات موقع معينة وإدخال الدُفعات لتحقيق الغرض من توفير الوقت والجهد. على عكس برنامج Thief ASP البحت: لم يعد يعتمد على موقعه على الويب المستهدف.
أمثلة بسيطة:
<٪
أعلن الوظيفة للحصول على المعلومات المستهدفة وتنفيذها من خلال مكونات XML.
geturl (/blog/url)
setRetRieval = createObject ("microsoft.xmlhttp")
withretrival
افتح "GET" ، url ، false
يرسل
geturl = bytes2bsstr (.ResponseBody)
تحقق من المعلومات التي تم الحصول عليها. إذا كان طول المعلومات أقل من 100 ، فهذا يعني أن الاعتراض فشل
iflen (.ResponseBody) <100then
Response.write "فشل في الحصول على ملف عن بعد <ahref ="/blog/"& url &" target = _blank> "& url &" </a>. "
استجابة
Endif
endwith
setRetRieval = لا شيء
نهاية
"تحول ثنائي إلى سلسلة ، وإلا سيظهر المشوهة!
bytes2bststr (VIN)
streturn = ""
fori = 1tolenb (vin)
thischarcode = ASCB (MIDB (VIN ، I ، 1))
IfThischarcode <& h80then
Streturn = Streturn & CHR (thischarcode)
آخر
NextCharCode = ASCB (MIDB (VIN ، I+1،1))
Streturn = Streturn & CHR (CLNG (thischarcode)*& H100+Cint (NextCharCode))
i = i+1
Endif
التالي
bytes2bstr = streturn
نهاية
أعلن التنسيق المعترض ، ابدأ من البداية والنهاية أخيرًا
GetKey (HTML ، ابدأ ، آخر)
filearray = انقسام (html ، ابدأ)
filearray2 = split (filearray (1) ، last)
getKey = filearray2 (0)
نهاية
dimsoftid ، url ، html ، العنوان
احصل على معرف الصفحة ليتم استرداده
SoftID = طلب ("معرف")
url = "http://www3.skycn.com/soft/" & softid & ".html"
html = geturl (/blog/url)
خذ اسم البرنامج لبرنامج Sky اعتراض على سبيل المثال
title = getKey (html ، "<fontcolor = '#004fc6'size =' 3 '>" ، "</font> </b> </td> </tr>")
افتح قاعدة البيانات والاستعداد للدخول إلى قاعدة البيانات
DimConnstr ، Conn ، RS ، SQL
connstr = "dbq ="+server.mappath ("db1.mdb")+"؛ defaultDir = ؛ driver = {microsoft accessDriver (*. mdb)} ؛"
setConn = server.createObject ("adodb.connection")
Conn.Openconnstr
setRs = server.createObject ("adodb.recordset")
sql = "حدد [اسم العمود] من [اسم الجدول] حيث [اسم العمود] =" "& title &" '"
Rs.Opensql ، Conn ، 3،3
ifrs.eofandrs.bofthen
RS ("اسم العمود") = العنوان
Rs.update
setRs = لا شيء
Endif
setRs = لا شيء
استجابة. "المجموعة كاملة!"
٪>