Apakah Anda tahu cara mengimplementasikan kode koleksi ASP? Hari ini, editor Foxin akan memperkenalkan kepada Anda tutorial tentang implementasi koleksi kode ASP. Teman yang tertarik, ikuti langkah -langkah editor untuk melihat konten tertentu.
Koleksi dimulai
Langkah pertama adalah menganalisis halaman yang akan dikumpulkan.
Gunakan browser untuk membuka halaman yang ingin Anda kumpulkan (seperti: http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml, Anda dapat menggunakan halaman lain). Setelah dibuka, klik kanan untuk memeriksa file sumber.
Langkah kedua adalah menemukan lokasi konten yang akan dikumpulkan.
Jika saya ingin mengumpulkan judul dan konten di halaman ini:
Judulnya adalah antara <h1 id = "artibodytitle" style = "color:#03005c;"> dan </h1>
Konten adalah antara konten dimulai -> dan konten akhir -> dari konten teks
Perhatikan keunikan lokasi. Setelah menemukannya, Anda dapat menggunakan pencarian di edit untuk melihat apakah itu unik dan unik mungkin. Jika tidak, pertama mungkin. Jika tidak berhasil, Anda hanya bisa menggantinya.
Langkah 3: Tuliskan kode
Salinan kode adalah sebagai berikut:< %
Fungsi: Kode Koleksi ASP
'Penulis: Wangsdong
'Catatan: Mendukung program asli, tolong simpan informasi ini, terima kasih
url = "http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml"
str = getHttppage (url)
title = strcut (str, "<h1 id =" "artibodytitle" "style =" "color:#03005c;" ">", "</h1>", 2)
konten = strcut (str, "<!-konten teks mulai->", "<!-konten teks end->", 2)
response.write "judul berita <br> <b>" & title & "</b> <br> <br> <br> <br> Konten Berita: <br>" & konten
Function getHttppage (URL)
Pada kesalahan resume berikutnya
redup http
Setel http = server.createObject ("microsoft.xmlhttp")
Http.open "get", url, false
Http.send ()
Jika http.readystate <> 4 lalu
fungsi keluar
akhiri jika
getHttppage = bytestoBstr (http.responseBody, "GB2312")
atur http = tidak ada
Jika err.number <> 0 lalu
Response.write "<p align = 'center'> <font color = 'red'> <b> Server salah dalam memperoleh konten file </b> </font> </p>"
Err.clear
Akhiri jika
Fungsi akhir
Fungsi bytestoBstr (body, cset)
redup objstream
Set ObjStream = Server.CreateObject ("AdodB.Stream")
objstream.type = 1
objstream.mode = 3
objstream.open
Objstream.write Body
objstream.position = 0
objstream.type = 2
objstream.charset = cset
BytestoBstr = objstream.readtext
objstream.close
atur objstream = tidak ada
Fungsi akhir
'Mencegat string, 1. Termasuk karakter start and end, 2. Tidak termasuk
Fungsi strcut (strcontent, startstr, endstr, cuttype)
Redup strhtml, s1, s2
strhtml = strcontent
Pada kesalahan resume berikutnya
Pilih case cuttype
Kasus 1
S1 = instr (strhtml, startstr)
S2 = Instr (S1, Strhtml, ENDSTR)+LEN (ENDSTR)
Kasus 2
S1 = instr (strhtml, startStr)+len (startstr)
S2 = instr (s1, strhtml, endstr)
Akhiri Pilih
Jika err maka
strcute = "<p align = 'center'> tidak ada yang menemukan apa yang dibutuhkan. </p>"
Err.clear
Fungsi keluar
Kalau tidak
strcut = mid (strhtml, s1, s2-s1)
Akhiri jika
Fungsi akhir
%>
Di atas adalah tutorial tentang implementasi kode koleksi ASP. Sekarang setelah editor mengeluarkan konten yang Anda dapatkan, Anda dapat menulis konten ini ke dalam database, dan data adalah milik Anda.