Verwenden Sie asp, um die XML-Datei des angegebenen Themas abzurufen, und lesen Sie dann den Listeninhalt der XML-Datei stapelweise.
Kopieren Sie den Code wie folgt:<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 cellpacing=1 class=tableBorder>
<tr><th colspan=2 align=center class=tableHeaderText><<<< <font color=red>Lei Feng|Youku-Album Collection Program</font> >>>></td></tr>
<tr><td align=center><a href=http://www.youku.com/playlist/ target=_blank>Klicken Sie auf mich, um das Youku-Album zu finden</a >
</td>
</tr>
<tr><td bgcolor=#FFFFFF align=center>Albumadresse: <input name=maxz type=text value=<%=Request(maxz)%> size=50></ td ></tr>
<tr><td align=center bgcolor=#FFFFFF>Zum Beispielalbum: 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=Albumadresse zur Analyse senden></td></tr>
<tr><td align=center bgcolor=#FFFFFF></td></tr>
</table>
</form>
<%
if Request(action)=add Then
maxz=request.Form(maxz)
v_urla=Split(maxz,/id_)(1 )
v_urlb=Replace(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 des aktuellen Albums:&v_url&</a></div>
Function GetPageContent(Url)
Dim HTTPObj
On Error Resume Next
Set HTTPObj = Server.CreateObject(Microsoft. XMLHTTP )
Mit HTTPObj
.Open Get, Url, False, ,
.Send
End With
if HTTPObj.Readystate <> 4 then
Set HTTPObj = Nothing
GetPageContent = False
Exit Function
end if
GetPageContent = replacement(HTTPObj.responseText,UTF-8,gb2312)
Set HTTPObj = Nothing
End Function
strXML=GetPageContent(&v_url&)
Set objXML = Server.CreateObject(Microsoft.XMLDOM)
objXML .validateonparse = true
objXML.async=false
objXML.loadXML(strXML)
set objRootElement = objXML.documentElement,
wenn nicht isObject(objRootElement), dann
Response.Write(keine Datei geladen)
sonst
Set ChannelList=objXML.getElementsByTagName(item)
if isnull(objXML.getElementsByTagName(item ) ) dann
Antwort.Write(Lesen fehlgeschlagen)
Response.End()
else
Set Statistics=objXML.getElementsByTagName(title)
set KeywordList=objXML.getElementsbytagname(lastBuildDate)
'response.write Total: &keywordlist.length-1&channels'response.write
<div align=center><h4> Album Name: &Statistics.item(0).text&</h4>
v_name=REPLACE(Statistics.item(0).text,Youku-Album-,)
zt_name=REPLACE(v_name, video,)
Response.write <div align=center><h4>Albumname: <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>
für j=0 bis ChannelList.length-1
dim ibb
Response.write &ChannelList.item(j).childnodes(0).text&$&ChannelList.item(j).childnodes(8).text&chr(13)&
ibb=ibb+1
nächste
Antwort.write </textarea><br /><input type=submit value=modifizierte Einreichung/></form></center>
Response.write <div align=center><h4>Insgesamt extrahiert: <font color=red>&ibb&</font> Nach Überprüfung senden</h4></div><br>
end if
end if
%>
<%End If %>
Das obige Programm basiert auf der Albumliste von Youku als Beispiel. Beispiel für asp XML lesen!
Speichern Sie den obigen Code als XML.ASP und führen Sie ihn in der IIS-Umgebung aus, um Youku-Albumdaten zu sammeln!
Tatsächlich ist das, was oben erhalten wurde,
der
Kopiercode der folgenden XML-Datei. Der Code lautet wie folgt:
<
?
version=2.0 xmlns:media=http ://search.yahoo.com/mrss xmlns:itunes=http://www.itunes.com/dtds/podcast-1.0.dtd>
<channel>
<title>Youku-Album-Video von Qianlong und Xiangfei (Folge 27)</title>
<description>Video von Youku-Album Qianlong und Xiangfei (Folge 27)</description>
<link>http://www.youku .com /playlist/</link>
<lastBuildDate>Mi, 16. Dezember 2009 13:34:06 +0800</lastBuildDate>
<generator>Novajax Feed Writer</generator>
<image>
<url>http://www.youku.com/index/img/youkulogo.gif</url>
<title>Youku.com – Chinas Videonetzwerk Nr. 1, das Videowiedergabe bietet , Videoveröffentlichung, Videosuche</title>
<link>http://www.youku.com</link>
<description>Videodienstplattform, die Videowiedergabe, Videoveröffentlichung, Videosuche, Videofreigabe bietet</description>
< /image >
<item>
<title>Qianlong und 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 border=0 width=120 height=90 vspace=4 hspace=4 /><itunes:duration>43:42</itunes: Dauer>
<itunes:keywords>Zunlong, Nurbia, Tianniu, Weng Hong, Ainur, Guhaier, Tan Feiling, Valiyi, Slamjiangsi</itunes:keywords>
<author>Weijie sinkt</author> <comments>
http://www.youku. com/v_show/id_XMTM4NTY5NDk2_rss.html#comments</comments>
<pubDate>Mi, 16. Dezember 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 und 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 border=0 width=120 height=90 vspace=4 hspace=4 /><itunes:duration>41:26</itunes: Dauer>
<itunes:keywords>Zunlong, Nurbia, Tianniu, Weng Hong, Ainur, Guhaier, Tan Feiling, Valiyi, Slamjiangsi</itunes:keywords>
<author>Weijie sinkt</author> <comments>
http://www.youku. com/v_show/id_XMTM4NTY5NTI4_rss.html#comments</comments>
<pubDate>Mi, 16. Dezember 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>
</channel>
</rss>