Existem muitos programas ladrões populares na Internet agora, incluindo ladrão de notícias, ladrão de música e ladrão de downloads. Então, deixe-me fazer uma breve introdução. Espero que seja útil para todos os webmasters.
(1) Princípio
O programa ladrão realmente chama páginas da web em outros sites por meio do componente XMLHTTP em XML. Por exemplo, muitos dos programas ladrões de notícias ligam para as páginas de notícias do Sina e fazem algumas substituições para o HTML nelas, além de filtrar anúncios. As vantagens de utilizar o programa Thief são: não há necessidade de manutenção do site, pois os dados do programa Thief vêm de outros sites, e serão atualizados à medida que o site for atualizado, podendo economizar recursos do servidor; O programa ladrão possui apenas alguns arquivos e todo o conteúdo da web vem de outros sites. As desvantagens são: instabilidade, se o site alvo der errado, o programa também dará errado, e se o site de destino for atualizado e mantido, o programa ladrão também precisará ser modificado de acordo com a velocidade, porque é uma chamada remota, a velocidade é tão rápida quanto a leitura de dados no servidor local. É definitivamente mais lenta que isso.
(2) Exemplos
A seguir está uma breve explicação da aplicação de XMLHTTP em ASP
＜%
'Funções comuns
' 1. Insira o endereço da página da web de destino do URL e o valor de retorno getHTTPPage é o código HTML da página da web de destino.
função getHTTPage(url)
dimHttp
definir Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,falso
http.send()
se Http.readystate＜＞4 então
função de saída
terminar se
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
definir http = nada
se err.número<>0 então err.Clear
função final
'2. Converta Ranma. Use xmlhttp diretamente para chamar páginas da web com caracteres chineses. Você pode convertê-lo por meio do componente adodb.stream.
Função BytesToBstr(corpo,Cset)
escurecer objstream
definir objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Modo =3
objstream.Open
objstream.Escrever corpo
objstream.Posição = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Fechar
definir objstream = nada
End Function
'Tente chamar o conteúdo html de http://www.3doing.com/earticle/
URL escuro, HTML
Url=" http://www.3doing.com/earticle/ "
HTML = getHTTPPage(Url)
Resposta.write HTML
%>