ใช้ asp เพื่อรับไฟล์ xml ของหัวข้อที่ระบุ จากนั้นอ่านรายการเนื้อหาของไฟล์ xml เป็นกลุ่ม
คัดลอกโค้ดดังนี้:<title>Lei Feng|Youku-Album Collection Program</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|โปรแกรมรวบรวมอัลบั้ม Youku</font> >>>></td></tr>
<tr><td align=center><a href=http://www.youku.com/playlist/ target=_blank>คลิกฉันเพื่อค้นหาอัลบั้ม Youku</a >
</td>
</tr>
<tr><td bgcolor=#FFFFFF align=center>ที่อยู่อัลบั้ม: <input name=maxz type=text value=<%=Request(maxz)%> size=50></ ทีดี ></tr>
<tr><td align=center bgcolor=#FFFFFF>ตัวอย่างอัลบั้ม: 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=ส่งที่อยู่อัลบั้มเพื่อการวิเคราะห์></td></tr>
<tr><td align=center bgcolor=#FFFFFF></td></tr>
</table>
</form>
<%
ถ้าคำขอ(การกระทำ)=เพิ่ม จากนั้น
maxz=request.Form(maxz)
v_urla=Split(maxz,/id_)(1 )
v_url=แทนที่(v_urla,.html,)
v_url=http://www.youku.com/playlist/rss/id/4014024&v_urlb
response.write <div align=center><a href=&v_url& target=_blank >XML ของอัลบั้มปัจจุบัน:&v_url&</a></div>
ฟังก์ชั่น GetPageContent(Url)
Dim HTTPObj
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อ
ชุดถัดไป HTTPObj = Server.CreateObject(Microsoft. XMLHTTP )
ด้วย HTTPObj
.Open Get, Url, False, ,
.Send
End With
if HTTPObj.Readystate <> 4 จากนั้น
ตั้งค่า HTTPObj = Nothing
GetPageContent = False
Exit Function
end ถ้า
GetPageContent = แทนที่(HTTPObj.responseText,UTF-8,gb2312)
Set HTTPObj = Nothing
End Function
strXML=GetPageContent(&v_url&)
Set objXML = Server.CreateObject(Microsoft.XMLDOM)
objXML .validateonparse = จริง
objXML.async=false
objXML.loadXML(strXML)
ตั้งค่า objRootElement = objXML.documentElement
ถ้าไม่ใช่ isObject(objRootElement) แล้ว
Response.Write(ไม่มีไฟล์โหลด)
อย่างอื่น
ตั้งค่า ChannelList=objXML.getElementsByTagName(item)
ถ้า isnull(objXML.getElementsByTagName(item) ) ) จากนั้น
ตอบกลับเขียน (อ่านล้มเหลว)
response.End()
else
Set Statistics=objXML.getElementsByTagName(title)
set KeywordList=objXML.getElementsbytagname(lastBuildDate)
'response.write รวม: &keywordlist.length-1&channels'response.write
<div align=center><h4> อัลบั้ม ชื่อ: &Statistics.item(0).ข้อความ&</h4>
v_name=REPLACE(Statistics.item(0).text,Youku-Album-,)
zt_name=REPLACE(v_name, video,)
response.write <div align=center><h4>ชื่ออัลบั้ม: <font color=red> &zt_name& </font></h4>
response.write <center><form method=post action=../admin_add.asp>
response.write <input type=hidden name=db_channel value=&zt_name& /><br>
response.write <input type=hidden name=db_player value=youku />
response.write <textarea name=db_url rows=15 cols=100>
สำหรับ j=0 ถึง ChannelList.length-1
dim IBB
ตอบกลับเขียน &ChannelList.item(j).childnodes(0).text&$&ChannelList.item(j).childnodes(8).text&chr(13)&
ibb=ibb+1
next
response.write </textarea><br /><input type=submit value=modified submission/></form></center>
response.write <div align=center><h4>ผลรวมของการแยก: <font color=red>&ibb&</font> ส่งหลังการตรวจสอบ</h4></div><br>
end if
end if
%>
<%End If %>
โปรแกรมข้างต้นอ้างอิงจากรายชื่ออัลบั้มของ Youku เป็นตัวอย่าง ตัวอย่างของ asp กำลังอ่าน xml!
บันทึกโค้ดด้านบนเป็น XML.ASP และรันในสภาพแวดล้อม IIS เพื่อรวบรวมข้อมูลอัลบั้ม Youku!
อันที่จริง สิ่งที่ได้รับข้างต้นคือ
โค้ดคัดลอกของไฟล์ xml ต่อไปนี้:
<?xml version=1.0 encoding=utf-8?>
<!-- Generator=Novajax Feed Writer -->
<rss version=2.0 xmlns:media=http://search.yahoo.com/mrss xmlns:itunes=http://www.itunes.com/dtds/podcast-1.0.dtd>
<ช่อง>
<title>Youku-Album-วิดีโอของ Qianlong และ Xiangfei (ตอนที่ 27)</title>
<description>วิดีโอของ Youku Album Qianlong และ Xiangfei (ตอนที่ 27)</description>
<link>http://www.youku .com /playlist/</link>
<lastBuildDate>พุธ 16 ธันวาคม 2552 13:34:06 +0800</lastBuildDate>
<generator>Novajax นักเขียนฟีด</generator>
<image>
<url>http://www.youku.com/index/img/youkulogo.gif</url>
<title>Youku.com - เครือข่ายวิดีโออันดับ 1 ของจีนที่ให้การเล่นวิดีโอ , การเผยแพร่วิดีโอ, ค้นหาวิดีโอ</title>
<link>http://www.youku.com</link>
<description>แพลตฟอร์มบริการวิดีโอ, ให้การเล่นวิดีโอ, การเผยแพร่วิดีโอ, ค้นหาวิดีโอ, การแชร์วิดีโอ</description>
< /รูปภาพ >
<รายการ>
<title>เฉียนหลงและเซียงเฟย 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 เส้นขอบ=0 ความกว้าง=120 ความสูง=90 vspace=4 hspace=4 /><itunes:duration>43:42</itunes: ระยะเวลา>
<itunes:keywords>Zunlong, Nurbia, Tianniu, Weng Hong, Ainur, Guhaier, Tan Feiling, Valiyi, Slamjiangsi</itunes:keywords>
<author>Weijie sinks< /author>
<comments>http://www.youku. com/v_show/id_XMTM4NTY5NDk2_rss.html#comments</comments>
<pubDate>พุธ 16 ธ.ค. 2552 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>เฉียนหลงและเซียงเฟย 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 border=0 width=120 height=90 vspace=4 hspace=4 /><itunes:duration>41:26</itunes: ระยะเวลา>
<itunes:keywords>Zunlong, Nurbia, Tianniu, Weng Hong, Ainur, Guhaier, Tan Feiling, Valiyi, Slamjiangsi</itunes:keywords>
<author>Weijie sinks< /author>
<comments>http://www.youku. com/v_show/id_XMTM4NTY5NTI4_rss.html#comments</comments>
<pubDate>พุธ 16 ธ.ค. 2552 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>
</channel>
</rss>