Você sabe como implementar o código de coleta ASP? Hoje, o editor da Foxin apresentará a você o tutorial sobre a implementação da coleta de códigos ASP. Amigos interessados, siga as etapas do editor para ver o conteúdo específico.
A coleção começa
O primeiro passo é analisar a página a ser coletada.
Use um navegador para abrir a página que você deseja coletar (como: http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml, você pode usar outras páginas). Após a abertura, clique com o botão direito do mouse para verificar o arquivo de origem.
A segunda etapa é encontrar o local do conteúdo a ser coletado.
Se eu quiser coletar o título e o conteúdo nesta página:
O título está entre <h1 id = "artificodytitle" style = "cor:#03005c;"> e </h1>
O conteúdo é entre o conteúdo começa -> e o final do conteúdo -> do conteúdo do texto
Preste atenção à singularidade da localização. Depois de encontrá -lo, você pode usar a pesquisa na edição para ver se é única e única possível. Caso contrário, o mais primeiro possível. Se não funcionar, você só poderá substituí -lo.
Etapa 3: Escreva o código
A cópia do código é a seguinte:< %
'Função: código de coleta ASP
Autor: Wangsdong
'Nota: Apoie os programas originais, mantenha essas informações, obrigado
url = "http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml"
str = Gethttppage (URL)
title = strcut (str, "<h1 id =" "artiCodyTitle" "style =" "cor:#03005c;" ">", "</h1>", 2)
Content = strcut (str, "<!-conteúdo de texto começa->", "<!-Texto do conteúdo final->", 2)
Response.Write "Título das notícias <br> <b>" & title & "</b> <br> <br> <br> <br> Conteúdo de notícias: <br>" & Conteúdo
Função Gethttppage (URL)
Em erro de erro em seguida
Dim http
Definir http = server.createObject ("Microsoft.xmlHttp")
Http.open "get", url, falso
Http.send ()
Se http.readyState <> 4 então
função de saída
final se
gethttppage = bytestobstr (http.Responsebody, "GB2312")
Defina http = nada
Se err.number <> 0 então
Response.Write "<P align = 'Center'> <font color = 'Red'> <b> O servidor errou na obtenção de conteúdo do arquivo </b> </font> </p>"
Err.clear
Final se
Função final
Função bytestobstr (corpo, cset)
objStream dim
set objstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write corpo
objstream.Position = 0
objstream.type = 2
objstream.charset = cset
Bytestobstr = objStream.readText
objstream.close
definir objstream = nada
Função final
'Interceptar string, 1. Inclui caracteres de início e final, 2. Não incluindo
Função strcut (strcontent, startstr, endstr, cuttype)
Dim Strhtml, S1, S2
strhtml = strContent
Em erro de erro em seguida
Selecione Case Cuttype
Caso 1
S1 = Instr (Strhtml, Startstr)
S2 = Instr (s1, strhtml, endstr)+len (endstr)
Caso 2
S1 = Instr (Strhtml, StartStr)+Len (StartStr)
S2 = Instr (S1, Strhtml, Endstr)
Final Selecione
Se errar então
strcute = "<p align = 'Center'> nada encontrou o que é necessário. </p>"
Err.clear
Função de saída
Outro
strcut = médio (strhtml, s1, s2-s1)
Final se
Função final
%>
O exposto acima é o tutorial sobre a implementação do código de coleta ASP. Agora que o editor gera o conteúdo que você obtém, você pode escrever esses conteúdos no banco de dados e os dados são seus.