Este artigo apresenta o compartilhamento do tutorial de lote rastejando uma página de lista. Vamos dar uma olhada no tutorial detalhado abaixo. Amigos que precisam podem se referir a ele.
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", "
List_pageCode = regexptext (list_pageCode, "'Obtenha o link do artigo da página atual para separá -lo
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, "Tecnical Tutorial >>", ">> conteúdo", 0)
Content_categoryId = regexptext (content_pageCode, "", 1)
BorderId = split (content_categoryId, ",") (0) 'Big Class ID
ClassID = Split (content_categoryId, ",") (1) 'ID da subclasse
'============== Verifique se a categoria principal existe. Start ==================
'Se não existir, insira o banco de dados
'=============== Verifique se a categoria principal existe end ====================
'Response.Write (BorderID & "," & Classid & "
")
Content_categoryName = regexPtext (content_pageCode, "/'>", "", 1)
BorderName = split (content_categoryName, ",") (0) 'Nome da classe Big Class
ClassName = Split (content_categoryName, ",") (1) 'Nome da subclasse
'============== Verifique se a subclasse existe start ===================
'Se não existir, insira o banco de dados
'=============== Verifique se a subclasse existe end ===================
'====================================================
'==========================================================
ArticleTitle = regexPtext (content_pageCode, " ", " ", 0)
Articleauthor = regexptext (content_pageCode, "autor:", "", 0)
ArtigoFrom = regexPTEXT (Content_PageCode, "Source:", "", 0)
ArticleContent = regexptext (content_pageCode, "", "" & vbcrlf & "" "& vbcrlf &" ", 0)
'============================================================
Response.write (articleTitle & "
")
Response.flush ()
Próximo
Várias funções estão anexadas:
Função Gethttppage (URL)If (isobjinstalled ("microsoft.xmlhttp") = false) então
Resposta.write "
O servidor não suporta o componente Microsoft.xmlHttp "
Err.clear
Resposta.END
Final se
Em erro de erro em seguida
Dim http
Definir http = server.createObject ("msxml2.xmlHttp")
Http.open "get", url, falso
Http.send ()
If (http.readyState4) então
Função de saída
Final se
gethttppage = bytestobstr (http.Responsebody, "GB2312")
Defina http = nada
If (err.number0) então
Resposta.write "
Ocorreu um erro ao obter o conteúdo do arquivo "
'Response.end
Err.clear
Final se
Função final
Função bytestobstr (codebody, código)
ObjStream dim
Set objstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write codebody
objstream.Position = 0
objstream.type = 2
objstream.charset = codEset
Bytestobstr = objStream.readText
objstream.close
Definir objstream = nada
Função final
'=====================================================================
'Função: verifique se o componente foi instalado
'Valor de retorno: true ---- instalado
'Falso --- não instalado
'=====================================================================
Função isobjinstalled (objName)
Em erro de erro em seguida
Isobjinstalled = false
Err = 0
Dim testObj
Set testObj = server.createObject (objName)
If (0 = err) então isobjinstalled = true
Definir testObj = nada
Err = 0
Função final
Função regexptext (strng, strstart, sequência, n)
Dim Regex, Match, Matches, Retstr
Definir regex = novo regexp
regex.pattern = strstart & "([/s/s]*?)" & Stragem
regex.IGNORECASE = true
regex.global = true
SET MOCHES = REGEX.EXECUTE (STRNG)
Para cada partida em partidas
Se (n = 1) então
Retstr = retstr & regex.Replace (match.value, "$ 1") & ","
OUTRO
Retstr = retstr & regex.replace (match.value, "$ 1")
Final se
Próximo
RegexptExt = retstr
Definir regex = nada
O exposto acima é a introdução de todo o conteúdo do compartilhamento do tutorial de lote rastejando uma determinada página da lista. Espero que o conhecimento e os materiais relevantes compilados pelo editor sejam úteis para você. Para mais conteúdo, continue prestando atenção ao site do Wuxin Technology Channel!