Einige Leute sind ein Schatz, wenn sie Programme kriechen, aber sie verkaufen sie immer noch für TND. Es ist wirklich wahr, dass diese Jungs sind! Vielleicht ist das Folgende ein bisschen schlecht
Das Folgende hat keine Schreibfunktion und hat diesen Punkt erreicht. Die Eingangsfunktion ist sehr einfach. Bitte vervollständigen Sie es selbst, wenn Sie es brauchen. Bitte verbessern Sie andere Funktionen selbst! Kopieren Sie den Code und führen Sie ihn direkt aus, um den Effekt anzuzeigen
Dim URL, list_pagecode, array_articleId, i, articleId
Dim Content_PageCode, content_tempcode
Dim Content_CategoryID, Content_CategoryName, BorderId, ClassID, BorderName, ClassName
Dim Articletitle, Articleautor, Artikel aus Articlecontent
Url = "http://www.webasp.net/article/class/1.htm"
List_pagecode = gethttppage (URL)
List_pagecode = regexptext (list_pagecode, "drucken </th> </tr>", "</table> <table border = 0 cellpadding = 5", 0)
List_pagecode = regexptext (list_pagecode, "<td align = links> <a href = '../", "'> <img border = 0 src = '../Images/Authortype0.gif
Array_articleId = split (list_pagecode, ",") 'ein Array erstellen und die Artikel -ID speichern
Für i = 0 bis ubound (array_articleId) -1
AciesId = array_arrayid (i) 'arrayid
Content_pagecode = getttppage ("http://www.webasp.net/article/" & article) 'Holen Sie sich den Inhalt der Artikelseite
'==========================================================
Content_tempCode = regexptext (content_pagecode, "<a href =" "/article/" "> Technisches Tutorial </a> >>", ">> Inhalt </td>", 0)
Content_categoryid = regexptext (content_pagecode, "<a href = '../class", "/'>", 1)
BorderId = split (content_categoryId, ",") (0) 'große Klassen -ID
ClassId = split (content_categoryId, ",") (1) 'Subklass -ID
'================ Überprüfen Sie, ob es eine wichtige Kategorie gibt?
Wenn es nicht existiert, geben Sie die Datenbank ein
'=============== Überprüfen Sie, ob die Hauptkategorie ein Ende gibt.
'Response.write (BorderID & "," & Classid & "<br />")
Content_categoryName = regexptext (content_pagecode, "/'>", "</a>", 1)
BorderName = split (content_categoryName, ",") (0) 'großer Klassenname
ClassName = split (content_categoryName, ",") (1) 'Unterklasse Name
"============== Überprüfen
Wenn es nicht existiert, geben Sie die Datenbank ein
'============== Überprüfen Sie, ob die Unterklasse existiert und endet
"======================================================================================================================================
"=======================================================================================================