Ahora hay muchos programas populares de Thief en Internet, incluidos ladrones de noticias, ladrones de música y ladrones de descarga. Entonces, ¿cómo lo hacen? Daré una breve presentación a continuación, con la esperanza de que sea útil para todos los webmasters.
(I) Principio
El programa Thief en realidad llama a páginas web en otros sitios web a través del componente XMLHTTP en XML. Por ejemplo, en el programa News Thief, muchas de ellas llaman a las páginas de noticias de Sina, y algunos reemplazos se realizan al HTML en él, y los anuncios también se filtran. Las ventajas de usar un programa Thief son: no hay necesidad de mantener el sitio web, porque los datos en el programa Thief provienen de otros sitios web, y se actualizarán a medida que el sitio web se actualice; Puede guardar los recursos del servidor. En general, el programa Thief solo tiene algunos archivos, y todo el contenido de la página web proviene de otros sitios web. Las desventajas incluyen: inestable. Si el sitio web de destino, el programa también será errado. Además, si el sitio web objetivo se actualiza y mantiene, el programa Thief también debe modificarse en consecuencia; Velocidad, debido a que es una llamada remota, la velocidad es definitivamente más lenta que leer datos en el servidor local.
(Ii) Ejemplo
Aquí hay una breve explicación de la aplicación de XMLHTTP en ASP
Código: <%
'Funciones comunes
'1. Ingrese la dirección de la página web de destino de URL, y el valor de retorno GethttpPage es el código HTML de la página web de destino
functiongethttppage (URL)
dimhttp
sethttp = server.createObject ("msxml2.xmlhttp"
Http.open "Get", URL, falso
Http.send ()
ifhttp.readyState <> 4then
extinción
endif
gethttppage = bytestobstr (http.ResponseBody, "GB2312"
setthttp = nada
iferr.number <> 0thenerr.Clear
Función final
'2. Convierta Lanma, llame directamente a una página web con caracteres chinos con XMLHTTP, obtendrá Lanma, que se puede convertir a través del componente ADODB.Stream.
FunctionByTestObstr (Body, CSET)
dimobjstream
setobjstream = server.createObject ("adodb.stream"
objstream.type = 1
objstream.mode = 3
objstream.
objstream.WriteBody
objstream.position = 0
objstream.type = 2
objstream.charset = cset
Bytestobstr = objstream.readText
objstream.close
setobjstream = nada
Función final
'Lo siguiente es intentar llamar al contenido HTML de http://www.998w.net/class/
Dimurl, html
Url = "http://www.998w.net/class/"
Html = gethttppage (url)
Respuesta.writhtml
%>
------------------------------------------------------
Código:
'El código lee archivos remotos con xmlhttp
<%
Respuesta.Buffer = True
Dimobjxmlhttp, xml
Setxml = server.createObject ("Microsoft.xmlhttp"
xml.open "get", "http://www.998w.net/down/998w1.0.rar", falso
xml.send
'AddAheaderTogiveItAfilename:
Respuesta.AddHeader "Contenido Disposición", _
"Adjunto; FileName = Mitchell-pres.zip"
'Especifique el ContentTyPetotell theBrowserWhattodo: