復(fù)制代碼 代碼如下:
title>雷鋒|優(yōu)酷-專輯 采集程序/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>雷鋒|優(yōu)酷-專輯 采集程序/font> >>>>/td>/tr>
tr>td align="center">a target="_blank">點(diǎn)我查找優(yōu)酷專輯/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 >當(dāng)前專輯的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"個(gè)頻道"
'response.write "div align=""center"">h4>專輯名稱："Statistics.item(0).text"/h4>"
v_name=REPLACE(Statistics.item(0).text,"優(yōu)酷-專輯-","")
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).textchr(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>個(gè)節(jié)目核實(shí)后提交/h4>/div>br>"
end if
end if
%>
%End If %>
以上程序是以優(yōu)酷的專輯列表為例做的一個(gè) asp讀取xml的實(shí)例！
將以上代碼保存為 XML.ASP 在IIS環(huán)境下運(yùn)行就可以采集優(yōu)酷專輯的數(shù)據(jù)了！
其實(shí)上面的獲取的是下面的xml文件
復(fù)制代碼 代碼如下:
?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>優(yōu)酷-專輯-乾隆與香妃(27集)的視頻/title>
description>優(yōu)酷專輯乾隆與香妃(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>優(yōu)酷網(wǎng)-中國(guó)第一視頻網(wǎng)，提供視頻播放，視頻發(fā)布，視頻搜索/title>
link>http://www.youku.com/link>
description>視頻服務(wù)平臺(tái)，提供視頻播放，視頻發(fā)布，視頻搜索、視頻分享/description>
/image>
item>
title>乾隆與香妃01/title>
link>http://www.youku.com/v_show/id_XMTM4NTY5NDk2_rss.html/link>
description>![CDATA[a >img src="http://g3.ykimg.com/0100641F464B178EA61F9F011876CAD9220D5D-8DAE-B491-FD1B-138F2DC75B23" border="0" width="120" height="90" vspace="4" hspace="4" title="乾隆與香妃01" target="_blank" />/a> a >img src="http://g1.ykimg.com/" border="0" width="120" height="90" vspace="4" hspace="4" title="乾隆與香妃01" target="_blank" />/a> a >img src="http://g1.ykimg.com/" border="0" width="120" height="90" vspace="4" hspace="4" title="乾隆與香妃01" target="_blank" />/a> p>/p>]]>/description>
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 >img src="http://g2.ykimg.com/0100641F464B178D99EF1F011876CA86F7B34B-B71C-2F1E-36B5-D0804F32AB42" border="0" width="120" height="90" vspace="4" hspace="4" title="乾隆與香妃02" target="_blank" />/a> a >img src="http://g1.ykimg.com/" border="0" width="120" height="90" vspace="4" hspace="4" title="乾隆與香妃02" target="_blank" />/a> a >img src="http://g1.ykimg.com/" border="0" width="120" height="90" vspace="4" hspace="4" title="乾隆與香妃02" target="_blank" />/a> p>/p>]]>/description>
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>
您可能感興趣的文章:- asp下將數(shù)據(jù)庫(kù)中的信息存儲(chǔ)至XML文件中
- asp access數(shù)據(jù)庫(kù)并生成XML文件范例
- Javascript+XMLHttpRequest+asp.net無刷新讀取數(shù)據(jù)庫(kù)數(shù)據(jù)
- ASP XML操作類代碼
- ASP XMLDom在服務(wù)器端操作XML文件的主要方法和實(shí)現(xiàn)
- Asp操作Xml的精煉類,含示例代碼
- ASP.NET+XML打造網(wǎng)絡(luò)硬盤原理分析
- asp xmlhttp下載一句話
- asp.net TreeView與XML三步生成列表樹
- Asp 解析 XML并分頁顯示源碼
- ASP.NET中XML轉(zhuǎn)JSON的方法實(shí)例
- ASP.net處理XML數(shù)據(jù)實(shí)例淺析
- ASP.NET XmlDocument類詳解
- asp.net中XML如何做增刪改查操作
- asp控制xml數(shù)據(jù)庫(kù)的經(jīng)典代碼
