Principio de colección:
Los pasos principales del procedimiento de recolección son los siguientes:
1. Obtenga el contenido de la página recopilada
2. Extraiga todos los datos utilizados del código de adquisición
1. Obtenga el contenido de la página recopilada
Actualmente conozco los métodos de uso común para obtener páginas recolectadas en ASP:
1. Use el componente ServerXMLHTTP para obtener datos
Function getBody (weburl)
'----------------------- Zhai Zhenkai (Xiao Qi)
'Crea un objeto
Dim objxmlhttp
Establecer objxmlhttp = server.createObject ("msxml2.serverXmlhttp")
'Archivo de solicitud, en forma asincrónica
Objxmlhttp.open "get", webuurl, falso
Objxmlhttp.send
Mientras objxmlhttp.readyState <> 4
Objxmlhttp.waitForResponse 1000
Encaminarse a
'Obtenga el resultado
GetBody = objxmlhttp.ResponseBody
'Libera el objeto
Establecer objxmlhttp = nada
'----------------------- Zhai Zhenkai (Xiao Qi)
Función final
Método de llamada: GetBody (la dirección URLF del archivo)
2. O componente XMLHTTP para obtener datos
Function getBody (weburl)
'----------------------- Zhai Zhenkai (Xiao Qi)
'Crea un objeto
Establecer recuperación = createObject ("Microsoft.xmlhttp")
Con recuperación
.Open "Get", Weburl, False, "", ""
.Enviar
GetBody = .ResponseBody
Terminar con
'Libera el objeto
Establecer recuperación = nada
'----------------------- Zhai Zhenkai (Xiao Qi)
Función final
Método de llamada: GetBody (la dirección URLF del archivo)
Los datos obtenidos de esta manera también deben codificarse y convertirse antes de que pueda usarse
Función bytestobstr (cuerpo, cset)
'----------------------- Zhai Zhenkai (Xiao Qi)
dim objstream
Establecer objstream = server.createObject ("ADODB.Stream")
objstream.type = 1
objstream.mode = 3
objstream.
objstream.write cuerpo
objstream.position = 0
objstream.type = 2
objstream.charset = cset
Bytestobstr = objstream.readText
objstream.close
establecer objstream = nada
'----------------------- Zhai Zhenkai (Xiao Qi)