ASP读取XML实例优酷专辑采集程序雷锋版

　　<title>雷锋|优酷-专辑采集程序</title></head>

　　<tr><th colspan="2" align="center" class="tableHeaderText"><<<< <font color=red>雷锋|优酷-专辑采集程序</font> >>>></td></tr>

　　<tr><td align="center"><a href="http://www.youku.com/playlist/" target="_blank">点我查找优酷专辑</a>

　　</td>

　　</tr>

　　<tr><td align="center" bgcolor="#FFFFFF">例如专辑：http://www.youku.com/playlist_show/id_2344971.html</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:"&v_url&"</a></div>"

　　Function GetPageContent(Url)

　　Dim HTTPObj

　　On Error Resume Next

　　Set HTTPObj = Server.CreateObject("Microsoft.XMLHTTP")

　　With HTTPObj

　　.Open "Get", Url, False, "", ""

　　.Send

　　End With

　　if HTTPObj.Readystate <> 4 then

　　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 = true

　　objXML.async=false

　　objXML.loadXML(strXML)

　　set objRootElement = objXML.documentElement

　　if not isObject(objRootElement) then

　　Response.Write("no file loaded")

　　else

　　Set ChannelList=objXML.getElementsByTagName("item")

　　if isnull(objXML.getElementsByTagName("item") ) then

　　response.Write("读取失败")

　　response.End()

　　else

　　Set Statistics=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,"优酷-专辑-","")

　　zt_name=REPLACE(v_name,"的视频","")

　　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"">"

　　for j=0 to ChannelList.length-1

　　dim ibb

　　response.write ""&ChannelList.item(j).childnodes(0).text&"$"&ChannelList.item(j).childnodes(8).text&chr(13)&""

　　ibb=ibb+1

　　response.write "</textarea><br /><input type=""submit"" value=""修改好了提交"" /></form></center>"

　　response.write "<div align=""center""><h4>共提取到：<font color=red>"&ibb&"</font>个节目核实后提交</h4></div><br>"

　　end if

　　<%End If %>

　　以上程序是以优酷的专辑列表为例做的一个 asp读取xml的实例！

　　将以上代码保存为 XML.ASP 在IIS环境下运行就可以采集优酷专辑的数据了！

　　其实上面的获取的是下面的xml文件

复制代码代码如下:

　　<?xml version="1.0" encoding="utf-8"?>

　　<title>优酷-专辑-乾隆与香妃(27集)的视频</title>

　　<description>优酷专辑乾隆与香妃(27集)的视频</description>

　　<link>http://www.youku.com/playlist/</link>

　　<generator>Novajax Feed Writer</generator>

　　<image>

　　<url>http://www.youku.com/index/img/youkulogo.gif</url>

　　<title>优酷网-中国第一视频网，提供视频播放，视频发布，视频搜索</title>

　　<link>http://www.youku.com</link>

　　<description>视频服务平台，提供视频播放，视频发布，视频搜索、视频分享</description>

　　</image>

　　<item>

　　<title>乾隆与香妃01</title>

　　<link>http://www.youku.com/v_show/id_XMTM4NTY5NDk2_rss.html</link>

　　<itunes:duration>43:42</itunes:duration>

　　<itunes:keywords>尊龙,努尔比亚,恬妞,翁虹,阿依努尔,古海尔,谭非翎,瓦力伊,斯拉木江斯</itunes:keywords>

　　<comments>http://www.youku.com/v_show/id_XMTM4NTY5NDk2_rss.html#comments</comments>

　　</item>

　　<item>

　　<title>乾隆与香妃02</title>

　　<link>http://www.youku.com/v_show/id_XMTM4NTY5NTI4_rss.html</link>

　　<itunes:duration>41:26</itunes:duration>

　　<itunes:keywords>尊龙,努尔比亚,恬妞,翁虹,阿依努尔,古海尔,谭非翎,瓦力伊,斯拉木江斯</itunes:keywords>

　　<comments>http://www.youku.com/v_show/id_XMTM4NTY5NTI4_rss.html#comments</comments>

　　</item>

　　</channel>

　　</rss>

教程首页更多教程

ASP读取XML实例 优酷专辑采集程序 雷锋版

ASP读取XML实例优酷专辑采集程序雷锋版