ASP读取XML实例 优酷专辑采集程序 雷锋版 复制代码 代码如下: 雷锋|优酷-专辑 采集程序
<<<< 雷锋|优酷-专辑 采集程序 >>>>
点我查找优酷专辑
专辑地址：" size="50">
例如专辑：http://www.youku.com/playlist_show/id_2344971.html
<% 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 "
当前专辑的XML:"&v_url&"
" 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 "

专辑名称："&Statistics.item(0).text&"

" v_name=REPLACE(Statistics.item(0).text,"优酷-专辑-","") zt_name=REPLACE(v_name,"的视频","") response.write "

专辑名称："&zt_name&"

" response.write "
" response.write "
" response.write "" response.write "
" response.write "

共提取到："&ibb&"个节目核实后提交


" end if end if %> <%End If %> 以上程序是以优酷的专辑列表为例做的一个 asp读取xml的实例！ 将以上代码保存为 XML.ASP 在IIS环境下运行就可以采集优酷专辑的数据了！ 其实上面的获取的是下面的xml文件 复制代码 代码如下: 优酷-专辑-乾隆与香妃(27集)的视频 优酷专辑乾隆与香妃(27集)的视频 http://www.youku.com/playlist/ Wed, 16 Dec 2009 13:34:06 +0800 Novajax Feed Writer http://www.youku.com/index/img/youkulogo.gif 优酷网-中国第一视频网，提供视频播放，视频发布，视频搜索 http://www.youku.com 视频服务平台，提供视频播放，视频发布，视频搜索、视频分享 乾隆与香妃01 http://www.youku.com/v_show/id_XMTM4NTY5NDk2_rss.html

]]> 43:42 尊龙,努尔比亚,恬妞,翁虹,阿依努尔,古海尔,谭非翎,瓦力伊,斯拉木江斯 為傑沉淪 http://www.youku.com/v_show/id_XMTM4NTY5NDk2_rss.html#comments Wed, 16 Dec 2009 13:34:06 +0800 34642374 乾隆与香妃02 http://www.youku.com/v_show/id_XMTM4NTY5NTI4_rss.html

]]> 41:26 尊龙,努尔比亚,恬妞,翁虹,阿依努尔,古海尔,谭非翎,瓦力伊,斯拉木江斯 為傑沉淪 http://www.youku.com/v_show/id_XMTM4NTY5NTI4_rss.html#comments Wed, 16 Dec 2009 13:34:06 +0800 34642382