Algumas pessoas são um tesouro quando os programas de rastreamento, mas ainda os vendem para o TND. É realmente verdade que esses caras são! Talvez a seguinte seja um pouco ruim
O seguinte não possui uma função de gravação na loja e chegou a esse ponto. A função de entrada é muito simples. Por favor, complete você mesmo se precisar. Por favor, melhore outras funções sozinho! Copie o código e execute -o diretamente para ver o efeito
Dim URL, list_pageCode, Array_articleId, i, ArtigoId
Dim Content_PageCode, Content_TempCode
Dim Content_CategoryId, Content_CategoryName, BorderId, ClassID, BorderName, ClassName
Dim ArticleTitle, ArticleAuthor, Artigo de ArticleContent
Url = "http://www.webasp.net/article/class/1.htm"
List_pageCode = Gethttppage (URL)
List_pageCode = regexptext (list_pageCode, "print </th> </tr>", "</ tabela> <tabela borda = 0 célulapadding = 5", 0)
List_pageCode = regexPTEXT (list_pageCode, "<td align = esquerda> <a href = '../", "'> <borda img = 0 src = '../imagens/autortype0.gif'", 1) 'Obtenha o link do artigo da página atual para separar
Array_articleId = Split (list_pageCode, ",") 'Crie uma matriz e armazene o ID do artigo
Para i = 0 para ubound (Array_articleId) -1
ArtigoID = Array_arrayid (i) 'ArrayId
Content_PageCode = Gethttppage ("http://www.webasp.net/article/" & articleId) 'Obtenha o conteúdo da página do artigo
'=======================================================
Content_tempcode = regexPtext (content_pagecode, "<a href =" "/artigo/" "> tutorial técnico </a> >>", ">> conteúdo </td>", 0)
Content_categoryId = regexPtext (content_pageCode, "<a href = '../class", "/'>", 1)
BorderId = split (content_categoryId, ",") (0) 'Big Class ID
ClassID = Split (content_categoryId, ",") (1) 'ID da subclasse
'=============== Verifique se existe uma categoria importante a existir? ====================
'Se não existir, insira o banco de dados
'============== Verifique se há um fim na categoria principal ====================
'Response.Write (BorderId & "," & Classid & "<r />")
Content_categoryName = regexPtext (content_pagecode, "/'>", "</a>", 1)
BorderName = split (content_categoryName, ",") (0) 'Nome da classe Big Class
ClassName = Split (content_categoryName, ",") (1) 'Nome da subclasse
'============== Verifique se a subclasse existe e começa ====================
'Se não existir, insira o banco de dados
'============== Verifique se a subclasse existe e termina ====================
'============================================================
'==============================================================