国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

ASP讀取XML實例 優酷專輯采集程序 雷鋒版

2024-05-04 11:08:38
字體:
來源:轉載
供稿:網友
用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><![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:duration> 
<itunes:keywords>尊龍,努爾比亞,恬妞,翁虹,阿依努爾,古海爾,譚非翎,瓦力伊,斯拉木江斯</itunes:keywords> 
<author>為傑沉淪</author> 
<comments>http://www.youku.com/v_show/id_XMTM4NTY5NDk2_rss.html#comments</comments> 
<pubDate>Wed, 16 Dec 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:duration> 
<itunes:keywords>尊龍,努爾比亞,恬妞,翁虹,阿依努爾,古海爾,譚非翎,瓦力伊,斯拉木江斯</itunes:keywords> 
<author>為傑沉淪</author> 
<comments>http://www.youku.com/v_show/id_XMTM4NTY5NTI4_rss.html#comments</comments> 
<pubDate>Wed, 16 Dec 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> 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 闽清县| 长岭县| 麻江县| 玛沁县| 轮台县| 苍溪县| 东阳市| 醴陵市| 淮安市| 贵定县| 游戏| 五河县| 怀集县| 积石山| 五原县| 五原县| 枝江市| 德庆县| 苍梧县| 湖南省| 常山县| 中卫市| 璧山县| 陆河县| 兰西县| 古交市| 安塞县| 大连市| 广南县| 广宗县| 青田县| 庆安县| 山东省| 吉木萨尔县| 新安县| 岳阳市| 大悟县| 营口市| 景东| 井研县| 锡林浩特市|