بعض الناس كنز عند الزحف ، لكنهم ما زالوا يبيعونها من أجل 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) 'اسم الفئة الفرعية
'=================== تحقق مما إذا كانت الفئة الفرعية موجودة وتبدأ =================
إذا لم يكن موجودًا ، أدخل قاعدة البيانات
'=================== تحقق مما إذا كانت الفئة الفرعية موجودة وتنتهي =================
'========================================================
'===========================================================