Gunakan asp untuk mendapatkan file xml dari topik yang ditentukan, lalu baca daftar isi file xml secara batch.
Salin kode sebagai berikut:<title>Lei Feng|Program Pengumpulan Album Youku</title></head>
<form name=form1 method=post action=?action=add>
<table width=95% border=0 align =center cellpadding=0 Cellspacing=1 class=tableBorder>
<tr><th colspan=2 align=center class=tableHeaderText><<<< <font color=red>Lei Feng|Program Koleksi Album Youku</font> >>>></td></tr>
<tr><td align=center><a href=http://www.youku.com/playlist/ target=_blank>Klik saya untuk menemukan album Youku</a >
</td>
</tr>
<tr><td bgcolor=#FFFFFF align=center>Alamat album: <input name=maxz type=text value=<%=Request(maxz)%> size=50></ td></tr>
<tr><td align=center bgcolor=#FFFFFF>Contoh album: http://www.youku.com/playlist_show/id_2344971.html</td></tr>
<tr><td align=center bgcolor= # FFFFFF><input name=action type=submit id=action value=Kirim alamat album untuk dianalisis></td></tr>
<tr><td align=center bgcolor=#FFFFFF></td></tr>
</tabel>
</form>
<%
jika Permintaan(aksi)=tambahkan Maka
maxz=request.Form(maxz)
v_urla=Split(maxz,/id_)(1 )
v_urlb=Ganti(v_urla,.html,)
v_url=http://www.youku.com/playlist/rss/id/4014024&v_urlb
respon.write <div align=center><a href=&v_url& target=_blank >XML dari album saat ini:&v_url&</a></div>
Fungsi GetPageContent(Url)
Redupkan HTTPObj
Saat Kesalahan Lanjutkan Berikutnya
Setel HTTPObj = Server.CreateObject(Microsoft. XMLHTTP )
Dengan HTTPObj
.Open Get, Url, False, ,
.Send
End Dengan
if HTTPObj.Readystate <> 4 lalu
Setel HTTPObj = Tidak Ada
GetPageContent =Fungsi Keluar
Palsu
berakhir jika
GetPageContent = ganti(HTTPOBj.responseText,UTF-8,gb2312)
Setel HTTPObj = Tidak Ada
Fungsi Berakhir
strXML=GetPageContent(&v_url&)
Setel objXML = Server.CreateObject(Microsoft.XMLDOM)
objXML .validateonparse = benar
objek
) ) lalu
respon.Tulis(gagal membaca)
respon.End()
else
Atur Statistik=objXML.getElementsByTagName(judul)
set Kata Kunci=objXML.getElementsbytagname(lastBuildDate)
'response.write Total: &keywordlist.length-1&channels'response.write
<div align=center><h4> Album nama: &Statistik.item(0).teks&</h4>
v_name=REPLACE(Statistics.item(0).text,Youku-Album-,)
zt_name=REPLACE(v_name, video,)
respon.tulis <div align=center><h4>Nama album: <font color=red> &zt_name& </font></h4>
respon.tulis <center><form method=post action=../admin_add.asp>
respon.tulis <input type=nama tersembunyi=db_channel value=&zt_name& /><br>
respon.tulis <tipe input=nama tersembunyi=db_player nilai=youku />
respon.tulis <nama area teks=db_url baris=15 cols=100>
untuk j=0 ke ChannelList.length-1
redup ibb
respon.tulis &ChannelList.item(j).childnodes(0).text&$&ChannelList.item(j).childnodes(8).text&chr(13)&
ibb=ibb+1
responsberikutnya.tulis
</textarea><br /><input type=submit value=pengajuan yang dimodifikasi/></form></center>
respon.write <div align=center><h4>Total yang diekstrak: <font color=red>&ibb&</font> Kirim setelah verifikasi</h4></div><br>
end if
end if
%>
<%End If %>
Program di atas berdasarkan daftar album Youku sebagai contoh Contoh asp membaca xml!
Simpan kode di atas sebagai XML.ASP dan jalankan di lingkungan IIS untuk mengumpulkan data album Youku!
Sebenarnya yang didapat di atas adalah
copy kode file xml berikut ini. Kodenya seperti berikut:
<?xml version=1.0 coding=utf-8?>
<!-- generator=Novajax Feed Writer -->
<rss versi=2.0 xmlns:media=http ://search.yahoo.com/mrss xmlns:itunes=http://www.itunes.com/dtds/podcast-1.0.dtd>
<saluran>
<title>Youku-Album-Video Qianlong dan Xiangfei (Episode 27)</title>
<description>Video Album Youku Qianlong dan Xiangfei (Episode 27)</description>
<link>http://www.youku .com /playlist/</link>
<lastBuildDate>Rabu, 16 Des 2009 13:34:06 +0800</lastBuildDate>
<generator>Novajax Penulis Umpan</generator>
<image>
<url>http://www.youku.com/index/img/youkulogo.gif</url>
<title>Youku.com - jaringan video No. 1 di Tiongkok, yang menyediakan pemutaran video , Penerbitan video, pencarian video</title>
<link>http://www.youku.com</link>
<description>Platform layanan video, menyediakan pemutaran video, penerbitan video, pencarian video, berbagi video</description>
< /gambar >
<barang>
<title>Qianlong dan Xiangfei 01</title>
<link>http://www.youku.com/v_show/id_XMTM4NTY5NDk2_rss.html</link>
<description><![CDATA[<a href=http:// www .youku.com/v_show/id_XMTM4NTY5NDk2_rss.html><img src=http://g3.ykimg.com/0100641F464B178EA61F9F011876CAD9220D5D-8DAE-B491-FD1B-138F2DC75B23 batas=0 lebar=120 tinggi=90 vspace=4 hspace=4 /><itunes:duration>43:42</itunes: durasi>
<itunes:keywords>Zunlong, Nurbia, Tianniu, Weng Hong, Ainur, Guhaier, Tan Feiling, Valiyi, Slamjiangsi</itunes:keywords>
<author>Weijie tenggelam< /author>
<comments>http://www.youku. com/v_show/id_XMTM4NTY5NDk2_rss.html#comments</comments>
<pubDate>Rabu, 16 Des 2009 13:34:06 +0800</pubDate>
<guid>34642374</guid>
<enclosure type=application/x-shockwave-flash url=http://player.youku.com/player.php/sid /34642374/v.swf></enclosure>
</item>
<item>
<title>Qianlong dan Xiangfei 02</title>
<link>http://www.youku.com/v_show/id_XMTM4NTY5NTI4_rss.html</link>
<description><![CDATA[<a href=http:// www .youku.com/v_show/id_XMTM4NTY5NTI4_rss.html><img src=http://g2.ykimg.com/0100641F464B178D99EF1F011876CA86F7B34B-B71C-2F1E-36B5-D0804F32AB42 batas=0 lebar=120 tinggi=90 vspace=4 hspace=4 /><itunes:duration>41:26</itunes: durasi>
<itunes:keywords>Zunlong, Nurbia, Tianniu, Weng Hong, Ainur, Guhaier, Tan Feiling, Valiyi, Slamjiangsi</itunes:keywords>
<author>Weijie tenggelam< /author>
<comments>http://www.youku. com/v_show/id_XMTM4NTY5NTI4_rss.html#comments</comments>
<pubDate>Rabu, 16 Des 2009 13:34:06 +0800</pubDate>
<guid>34642382</guid>
<enclosure type=application/x-shockwave-flash url=http://player.youku.com/player.php/sid /34642382/v.swf></enclosure>
</item>
</saluran>
</rss>