Algunas personas son un tesoro al rastrear programas, pero todavía los venden por TND. ¡Es realmente cierto que estos tipos lo son! Tal vez lo siguiente es un poco malo
Lo siguiente no tiene una función de escritura a la tienda, y ha alcanzado este punto. La función de entrada es muy simple. Compléntelo usted mismo si lo necesita. ¡Mejore otras funciones usted mismo! Copie el código y ejecutarlo directamente para ver el efecto
Dim URL, list_pagecode, array_articleid, i, artículoid
Dim content_pagecode, content_tempcode
Dim content_categoryID, content_categoryName, borderID, classid, bordername, classname
Dim articletitle, articleauthor, artículo desde
Url = "http://www.webasp.net/article/class/1.htm"
List_pageCode = gethttppage (url)
List_pageCode = RegExPtext (list_pageCode, "PRIMPRESE </th> </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) 'Obtenga el enlace del artículo de la página de la lista actual para separarse de It.
Array_articleid = split (list_pageCode, ",") 'Crear una matriz y almacenar la identificación del artículo
Para i = 0 a Ubound (array_articleid) -1
ArtículoD = array_arrayid (i) 'Arrayid
Content_pageCode = gethttppage ("http://www.webasp.net/article/" & articleID) 'Obtenga el contenido de la página del artículo
'========================================================
Content_tempcode = regexPtext (content_pageCode, "<a href =" "/artículo/" "> Tutorial técnico </a> >>", ">> Content </td>", 0)
Content_categoryId = regexPtext (content_pageCode, "<a href = '../class", "/'>", 1)
BorderID = split (content_categoryId, ",") (0) 'ID de clase grande
Classid = split (content_categoryId, ",") (1) 'ID de subclase
'=============== Verifique si hay una categoría importante para existir? ===================
'Si no existe, ingrese la base de datos
'============== Verifique si hay un final en la categoría principal ===================
'Response.Write (Borderid & "," & Classid & "<Br />")
Content_CategoryName = RegExPtext (content_pageCode, "/'>", "</a>", 1)
Bordername = split (content_categoryName, ",") (0) 'Nombre de clase grande
Classname = split (content_categoryName, ",") (1) 'Nombre de la subclase
'============= Verifique si la subclase existe y comienza ===================
'Si no existe, ingrese la base de datos
'============= Verifique si la subclase existe y termina ===================
'=============================================================
'===============================================================