Ada banyak program pencuri populer di Internet saat ini, termasuk pencuri berita, pencuri musik, dan pencuri unduhan. Jadi bagaimana cara melakukannya? Izinkan saya memberikan pengenalan singkat. Saya harap ini dapat bermanfaat bagi semua webmaster.
(1) Prinsip
Program pencuri sebenarnya memanggil halaman web di situs lain melalui komponen XMLHTTP dalam XML. Misalnya, banyak program pencuri berita memanggil halaman web berita Sina, dan membuat beberapa penggantian HTML di dalamnya, dan juga memfilter iklan. Keuntungan menggunakan program Thief adalah: tidak perlu melakukan maintenance website, karena data pada program Thief berasal dari website lain, dan akan diupdate seiring dengan update website; Program pencuri hanya memiliki sedikit file, dan semua konten web berasal dari situs web lain. Kerugiannya adalah: ketidakstabilan, jika situs target salah, program juga akan salah, dan jika situs target ditingkatkan dan dipelihara, program pencuri juga perlu dimodifikasi kecepatannya, karena ini adalah panggilan jarak jauh, kecepatannya sama cepatnya dengan membaca data di server lokal. Sudah pasti lebih lambat dari itu.
(2) Contoh
Berikut penjelasan singkat penerapan XMLHTTP di ASP
＜%
'Fungsi umum
' 1. Masukkan alamat halaman web target url, dan nilai kembalian getHTTPage adalah kode html halaman web target.
fungsi getHTTPage(url)
redupHttp
setel Http=server.buat objek("MSXML2.XMLHTTP")
Http.buka "GET", url, salah
Http.kirim()
jika Http.readystate＜＞4 maka
fungsi keluar
berakhir jika
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
atur http=tidak ada
jika err.number＜＞0 maka err.Clear
fungsi akhir
'2. Konversi Ranma. Langsung gunakan xmlhttp untuk memanggil halaman web dengan karakter Cina. Yang Anda dapatkan adalah Ranma.
Fungsi BytesToBstr(tubuh,Cset)
objek redup
setel objstream = Server.CreateObject("adodb.stream")
objstream.Jenis = 1
objstream.Mode =3
objstream.Buka
objstream.Tulis isi
objstream.Posisi = 0
objstream.Jenis = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Tutup
setel objstream = tidak ada
Fungsi Akhir
'Coba panggil konten html http://www.3doing.com/earticle/
Redupkan Url,Html
Url=" http://www.3doing.com/earticle/ "
Html = dapatkanHTTPPHalaman(Url)
Respon.tulis Html
%>