Tutorial tentang Implementasi Koleksi Kode ASP

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

< %

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.