Princípio da coleção:
As principais etapas do procedimento de coleta são as seguintes:
1. Obtenha o conteúdo da página coletada
2. Extraia todos os dados usados do código de aquisição
1. Obtenha o conteúdo da página coletada
Atualmente, conheço os métodos comumente usados para obter páginas coletadas no ASP:
1. Use o componente ServerxmlHttp para obter dados
Função getbody (weburl)
'----------------------- Zhai Zhenkai (Xiao Qi)
'Crie um objeto
Dim objxmlHttp
Definir objxmlHttp = server.createObject ("msxml2.serverxmlHttp")
'Arquivo de solicitação, em forma assíncrona
Objxmlhttp.open "get", webuurl, false
Objxmlhttp.send
Enquanto objxmlHttp.readyState <> 4
ObjxmlHttp.waitforSponse 1000
Wend
'Obtenha o resultado
GetBody = objxmlHttp.ResponseBody
'Libere o objeto
Defina objxmlHttp = nada
'----------------------- Zhai Zhenkai (Xiao Qi)
Função final
Método de chamada: getBody (o endereço URLF do arquivo)
2. Ou componente xmlHttp para obter dados
Função getbody (weburl)
'----------------------- Zhai Zhenkai (Xiao Qi)
'Crie um objeto
Set recuperação = createObject ("microsoft.xmlhttp")
Com recuperação
.Popen "Get", Weburl, False, "", ""
.Enviar
GetBody = .ResponseBody
Termine com
'Libere o objeto
Definir recuperação = nada
'----------------------- Zhai Zhenkai (Xiao Qi)
Função final
Método de chamada: getBody (o endereço URLF do arquivo)
Os dados obtidos dessa maneira também precisam ser codificados e convertidos antes que possam ser usados
Função bytestobstr (corpo, cset)
'----------------------- Zhai Zhenkai (Xiao Qi)
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
'----------------------- Zhai Zhenkai (Xiao Qi)