اكتب فقرة للاستيلاء على صفحة قائمة على دفعات

بعض الناس كنز عند الزحف ، لكنهم ما زالوا يبيعونها من أجل TND. صحيح حقًا أن هؤلاء الرجال هم! ربما يكون الشيء التالي سيئًا بعض الشيء

ما يلي لا يحتوي على وظيفة الكتابة إلى المتجر ، وقد وصلت إلى هذه النقطة. وظيفة الدخول بسيطة للغاية. يرجى إكمالها بنفسك إذا كنت في حاجة إليها. يرجى تحسين الوظائف الأخرى بنفسك! انسخ الرمز وقم بتشغيله مباشرة لرؤية التأثير

DIM url ، list_pagecode ، array_articleid ، i ، chorledid

dim content_pagecode ، content_tempcode

dim content_categoryid ، content_categoryname ، borderid ، classid ، borderName ، className

Dim Articletitle ، Articleauthor ، articlefrom ، ArticleContent

url = "http://www.webasp.net/article/class/1.htm"

list_pagecode = gethttppage (url)

list_pagecode = regexptext (list_pagecode ، "print </h> </tr>" ، "</table> <table border = 0 cellpadding = 5" ، 0)

list_pagecode = regexptext (list_pagecode ، "<td align = left> <a href = '../" ، "> <img border = 0 src =' ../images/authortype0.gif '" ، 1) "الحصول على رابط المقالة للصفحة الحالية لفصلها

array_articleid = split (list_pagecode ، "،") "قم بإنشاء صفيف وتخزين معرف المقالة

ل I = 0 إلى Ubound (array_articleid) -1

chorleid = array_arrayid (i) 'arrayid

content_pageCode = gethttppage ("http://www.webasp.net/article/" & altichid) "احصل على محتوى صفحة المقالة

'======================================================

content_tempcode = regexptext (content_pagecode ، "<a href =" "/article/" "> Technical Technical </a> >>" ، ">> المحتوى </td>" ، 0)

content_categoryid = regexptext (content_pagecode ، "<a href = '../class" ، "/'>" ، 1)

BorderId = split (content_categoryId ، "،") (0) "معرف الفئة الكبيرة

classid = split (content_categoryid ، "،") (1) 'id subclass id

'================= تحقق مما إذا كانت هناك فئة رئيسية موجودة؟ ==================

إذا لم يكن موجودًا ، أدخل قاعدة البيانات

'================= تحقق مما إذا كان هناك حد للفئة الرئيسية =================

'Response.write (borderid & "،" & classid & "<br />")

content_categoryname = regexptext (content_pagecode ، "/'>" ، "</a>" ، 1)

BorderName = split (content_categoryname ، "،") (0) 'اسم فئة كبيرة

className = split (content_categoryname ، "،") (1) 'اسم الفئة الفرعية

'=================== تحقق مما إذا كانت الفئة الفرعية موجودة وتبدأ =================

إذا لم يكن موجودًا ، أدخل قاعدة البيانات

'=================== تحقق مما إذا كانت الفئة الفرعية موجودة وتنتهي =================

'========================================================

'===========================================================