ASP读取XML示例优酷专辑采集程序 雷锋版
发布时间：2023-06-07 13:30:41 所属栏目：教程 来源：
导读：用asp获取指定专题的xml文件，然后读取xml文件的列表内容批量读取。
复制代码代码如下:
<title>雷锋|优酷-专辑 采集程序</title></head>
<form name="form1" method="post" action="?action=add">
<t
复制代码代码如下:
<title>雷锋|优酷-专辑 采集程序</title></head>
<form name="form1" method="post" action="?action=add">
<t
|
用asp获取指定专题的xml文件，然后读取xml文件的列表内容批量读取。 复制代码代码如下: <title>雷锋|优酷-专辑 采集程序</title></head> <form name="form1" method="post" action="?action=add"> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder"> <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 bgcolor="#FFFFFF" align="center">专辑地址：<input name="maxz" type="text" value="<%=Request("maxz")%>" size="50"></td></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="action" type="submit" id="action" value="提交分析该专辑地址"></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:"&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 next 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 %> <%End If %> 以上程序是以优酷的专辑列表为例做的一个 asp读取xml的实例！ 将以上代码保存为 XML.ASP 在IIS环境下运行就可以采集优酷专辑的数据了！ 其实上面的获取的是下面的xml文件 复制代码代码如下: <?xml version="1.0" encoding="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"> <channel> <title>优酷-专辑-乾隆与香妃(27集)的视频</title> <description>优酷专辑乾隆与香妃(27集)的视频</description> <link>http://www.youku.com/playlist/</link> <lastBuildDate>Wed, 16 Dec 2009 13:34:06 +0800</lastBuildDate> <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> <description><
站长推荐
