Используйте asp, чтобы получить XML-файл указанной темы, а затем пакетно прочитать содержимое списка XML-файла.
Скопируйте следующий код:<title>Лэй Фэн|Программа сбора альбомов Youku</title></head>
<form name=form1 метод=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>Лэй Фэн|Программа сбора альбомов 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=тип действия=submit id=значение действия=Отправить адрес альбома для анализа></td></tr>
<tr><td align=center bgcolor=#FFFFFF></td></tr>
</table>
</form>
<%
if Request(action)=add Тогда
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 текущего альбома:&v_url&</a></div>
Функция GetPageContent(Url)
Dim HTTPObj
При ошибке Возобновить следующий
Set HTTPObj = Server.CreateObject(Microsoft. XMLHTTP )
С HTTPObj
.Open Get, Url, False,
.Send
End With
if HTTPObj.Readystate <> 4 затем
Set HTTPObj = Nothing
GetPageContent = False
Exit Function
end if
GetPageContent = replace(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)
set objRootElement = objXML.documentElement
, если не isObject(objRootElement), то
Response.Write(файл не загружен)
else
Set ChannelList=objXML.getElementsByTagName(item),
если isnull(objXML.getElementsByTagName(item) ) ), затем
ответ.Запись (не удалось прочитать)
response.End()
else
Set Статистика=objXML.getElementsByTagName(title)
set KeywordList=objXML.getElementsbytagname(lastBuildDate)
'response.write Всего: &keywordlist.length-1& каналы'response.write
<div align=center><h4> Альбом имя: &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>Название альбома: <font color=red> &zt_name& </font></h4>
response.write <center><form метод=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 Ибб
ответ.пишите &ChannelList.item(j).childnodes(0).text&$&ChannelList.item(j).childnodes(8).text&chr(13)&
ibb=ibb+1
следующий
ответ.write </textarea><br /><input type=submit value=modified submit/></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.0coding=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-Альбом-Видео Цяньлуна и Сянфэя (Эпизод 27)</title>
<description>Видео из альбома Youku Цяньлун и Сянфэй (Эпизод 27)</description>
<link>http://www.youku .com /playlist/</link>
<lastBuildDate>Ср, 16 декабря 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 — видеосеть № 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 border=0 ширина=120 высота=90 vspace=4 hspace=4 /><itunes:duration>43:42</itunes: продолжительность>
<itunes:keywords>Цзуньлун, Нурбия, Тяньню, Вэн Хун, Айнур, Гухайер, Тан Фейлин, Валии, Сламцзянси</itunes:keywords>
<author>Вэйцзе тонет</author>
<comments>http://www.youku. com/v_show/id_XMTM4NTY5NDk2_rss.html#comments</comments>
<pubDate>Ср, 16 декабря 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>Цяньлун и Сянфэй 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>Цзуньлун, Нурбия, Тяньню, Вэн Хун, Айнур, Гухайер, Тан Фейлин, Валии, Сламцзянси</itunes:keywords>
<author>Вэйцзе тонет</author>
<comments>http://www.youku. com/v_show/id_XMTM4NTY5NTI4_rss.html#comments</comments>
<pubDate>Ср, 16 декабря 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>