Ada banyak program pengumpulan online sekarang, tetapi kadang -kadang ketika Anda menemukan situs web yang bagus dan ingin membuat alat pengumpulan untuk diri sendiri untuk mengumpulkan beberapa informasi, Anda perlu menulis program sendiri. Bahkan, program pengumpulan semacam itu tidak sulit untuk ditulis. Mereka terutama menganalisis struktur web situs web sumber.
Pertama unduh file kelas XMLHTTP:
<%
Kelas XHTTP
CSET pribadi, Surl, Serror
Private sub class_initialize ()
'cset = "UTF-8"
cset = "GB2312"
Serror = ""
akhir sub
Private Sub Class_Terminate ()
Akhir sub
Properti Publik Biarkan URL (TheURL)
Surl = theUrl
Akhir properti
Properti Publik Dapatkan Basepath ()
Basepath = mid (surl, 1, instrrev (surl, "/")-1)
Akhir properti
properti publik mendapatkan nama file ()
FileName = mid (surl, instrrev (surl, "/")+1)
Akhir properti
Properti Publik Dapatkan HTML ()
Html = bytestoBstr (getbody (surl))
Akhir properti
Properti Publik Dapatkan xhttperror ()
xhttperror = Serror
Akhir properti
fungsi pribadi bytestoBstr (body)
pada kesalahan resume berikutnya
'CSET: GB2312 UTF-8
redup objstream
Set ObjStream = Server.CreateObject ("AdodB.Stream")
dengan objstream
.Type = 1 '
.Mode = 3 '
.Membuka
. Tuliskan tubuh '
.Posisi = 0 '
.Type = 2 '
.Charset = cset '
BytestoBstr = .readtext '
.Menutup
berakhir dengan
atur objstream = tidak ada
Fungsi akhir
fungsi pribadi getbody (surl)
pada kesalahan resume berikutnya
redup xmlhttp
'Atur xmlhttp = server.CreateObject ("msxml2.xmlhttp.4.0")
'Atur xmlhttp = server.CreateObject ("microsoft.xmlhttp")
Setel xmlhttp = server.CreateObject ("msxml2.serverxmlhttp")
xmlhttp.setTimeout 10000.10000.10000.30000
xmlhttp.open "get", surl, false
xmlhttp.send
jika xmlhttp.readystate = 4 maka
'Jika xmlhttp.status = 200 lalu
getBody = xmlhttp.responseBody
'Akhiri jika
kalau tidak
getbody = ""
akhiri jika
Jika err.number <> 0 lalu
Serror = err.number
Err.clear
kalau tidak
Serror = ""
akhiri jika
Setel xmlhttp = tidak ada
fungsi akhir
Fungsi Publik SaveImage (Tofile, Isoverwrite)
pada kesalahan resume berikutnya
redup objstream, objfso, imgs
Jika tidak, ISEVERTRITE maka
Set ObjFSO = Server.CreateObject ("Scripting.FilesystemObject")
Jika objfso.fileexists (server.mappath (tofile)) maka
Fungsi keluar
Akhiri jika
Atur objfso = tidak ada
Akhiri jika
imgs = getbody (surl)
Set ObjStream = Server.CreateObject ("AdodB.Stream")
dengan objstream
.Type = 1
.Membuka
.Trite imgs
.Savetofile server.mappath (tofile), 2
.Menutup()
berakhir dengan
atur objstream = tidak ada
fungsi akhir
kelas akhir
%>
Dengan jenis file ini, akan jauh lebih nyaman untuk melakukan sesuatu.
Kemudian Anda dapat menganalisis struktur halaman web dari situs web koleksi dan menulis program koleksi.
Inilah contohnya:
<!-#Sertakan file = "conn.asp"->
<!-#Sertakan file = "inc/xhttp_class.asp"->
<!-#Sertakan file = "inc/function.asp"->
<%
Server.ScriptTimeout = 1000
%>
<Html>
<head>
<meta http-equiv = "konten-tipe" content = "text /html; charset = gb2312" />
<title> bt collector </iteme>