Utilice asp para obtener el archivo xml del tema especificado y luego lea el contenido de la lista del archivo xml en lotes.
Copie el código de la siguiente manera:<title>Lei Feng|Programa de colección de álbumes Youku</title></head>
<form name=form1 método=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|Programa de colección de álbumes Youku</font> >>>></td></tr>
<tr><td align=center><a href=http://www.youku.com/playlist/ target=_blank>Haz clic en mí para encontrar el álbum de Youku</a >
</td>
</tr>
<tr><td bgcolor=#FFFFFF align=center>Dirección del álbum: <input name=maxz type=text value=<%=Request(maxz)%> size=50></ td </tr>
<tr><td align=center bgcolor=#FFFFFF>Por ejemplo, álbum: http://www.youku.com/playlist_show/id_2344971.html</td></tr>
<tr><td align=center bgcolor= # FFFFFF><nombre de entrada=tipo de acción=enviar id=valor de acción=Enviar la dirección del álbum para análisis></td></tr>
<tr><td align=center bgcolor=#FFFFFF></td></tr>
</table>
</form>
<%
si Solicitud(acción)=añadir Entonces
maxz=request.Form(maxz)
v_urla=Split(maxz,/id_)(1 )
v_urlb=Reemplazar(v_urla,.html,)
v_url=http://www.youku.com/playlist/rss/id/4014024&v_urlb
respuesta.write <div align=center><a href=&v_url& target=_blank >XML del álbum actual:&v_url&</a></div>
Función GetPageContent(Url)
Atenuar HTTPObj
en caso de error Reanudar siguiente
Establecer HTTPObj = Server.CreateObject(Microsoft. XMLHTTP )
Con HTTPObj
.Abrir Obtener, Url, Falso, ,
.Enviar
Finalizar con
si HTTPObj.Readystate <> 4 luego
Establecer HTTPObj = Nada
GetPageContent = Falso
Fin dela función de salida
si
GetPageContent = reemplazar (HTTPObj.responseText,UTF-8,gb2312)
Establecer HTTPObj = Nada
Finalizar la función
strXML=GetPageContent(&v_url&)
Establecer objXML = Server.CreateObject(Microsoft.XMLDOM)
objXML .validateonparse = verdadero
objXML.async=false
objXML.loadXML(strXML)
set objRootElement = objXML.documentElement
si no esObject(objRootElement) entonces
Response.Write(no hay archivo cargado)
de lo contrario
Set ChannelList=objXML.getElementsByTagName(item)
if isnull(objXML.getElementsByTagName(item) ) ) luego
respuesta. Escritura (error de lectura)
Response.End()
else
Set Statistics=objXML.getElementsByTagName(title)
set KeywordList=objXML.getElementsbytagname(lastBuildDate)
'response.write Total: &keywordlist.length-1& canales'response.write
<div align=center><h4> Álbum nombre: &Estadísticas.elemento(0).texto&</h4>
v_name=REPLACE(Statistics.item(0).text,Youku-Album-,)
zt_name=REPLACE(v_name, video,)
respuesta.write <div align=center><h4>Nombre del álbum: <font color=red> &zt_name& </font></h4>
respuesta.write <centro><form método=post acción=../admin_add.asp>
respuesta.write <tipo de entrada=nombre oculto=db_channel value=&zt_name& /><br>
respuesta.write <tipo de entrada=nombre oculto=db_player value=youku />
respuesta.write <textarea name=db_url filas=15 cols=100>
para j=0 a ChannelList.length-1
dim
respuesta
de ibb.escribir
&ChannelList.item(j).childnodes(0).text&$&ChannelList.item(j).childnodes(8).text&chr(13)&
ibb=ibb+1
siguiente
respuesta.escribir </textarea><br /><input type=submit value=envío modificado/></form></center>
respuesta.write <div align=center><h4>Un total de extraídos: <font color=red>&ibb&</font> Enviar después de la verificación</h4></div><br>
end if
end if
%>
<%End If %>
El programa anterior se basa en la lista de álbumes de Youku como ejemplo Ejemplo de asp leyendo xml!
Guarde el código anterior como XML.ASP y ejecútelo en el entorno IIS para recopilar datos del álbum Youku.
De hecho, lo que se obtiene arriba es
el código de copia del siguiente archivo xml. El código es el siguiente:
<?xml version=1.0 encoding=utf-8?>
<!-- generater=Novajax Feed Writer -->
<rss. versión=2.0 xmlns:media=http ://search.yahoo.com/mrss xmlns:itunes=http://www.itunes.com/dtds/podcast-1.0.dtd>
<canal>
<title>Youku-Album-Video de Qianlong y Xiangfei (Episodio 27)</title>
<description>Video del Youku Album Qianlong y Xiangfei (Episodio 27)</description>
<link>http://www.youku .com /playlist/</link>
<lastBuildDate>Miércoles, 16 de diciembre de 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: la red de vídeo número uno de China, que ofrece reproducción de vídeo , publicación de videos, búsqueda de videos</title>
<link>http://www.youku.com</link>
<description>Plataforma de servicios de video, que proporciona reproducción de videos, publicación de videos, búsqueda de videos y uso compartido de videos</description>
< /imagen >
<elemento>
<title>Qianlong y 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: duración>
<itunes:keywords>Zunlong, Nurbia, Tianniu, Weng Hong, Ainur, Guhaier, Tan Feiling, Valiyi, Slamjiangsi</itunes:keywords>
<autor>Weijie fregaderos</author>
<comments>http://www.youku. com/v_show/id_XMTM4NTY5NDk2_rss.html#comments</comments>
<pubDate>Miércoles, 16 de diciembre de 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 y 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: duración>
<itunes:keywords>Zunlong, Nurbia, Tianniu, Weng Hong, Ainur, Guhaier, Tan Feiling, Valiyi, Slamjiangsi</itunes:keywords>
<autor>Weijie fregaderos</author>
<comments>http://www.youku. com/v_show/id_XMTM4NTY5NTI4_rss.html#comments</comments>
<pubDate>Miércoles, 16 de diciembre de 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>