• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    ASP读取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).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>个节目核实后提交/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" title="乾隆与香妃01" target="_blank" />/a> a href="http://www.youku.com/v_show/id_XMTM4NTY5NDk2_rss.html">img src="http://g1.ykimg.com/" border="0" width="120" height="90" vspace="4" hspace="4" title="乾隆与香妃01" target="_blank" />/a> a href="http://www.youku.com/v_show/id_XMTM4NTY5NDk2_rss.html">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 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" title="乾隆与香妃02" target="_blank" />/a> a href="http://www.youku.com/v_show/id_XMTM4NTY5NTI4_rss.html">img src="http://g1.ykimg.com/" border="0" width="120" height="90" vspace="4" hspace="4" title="乾隆与香妃02" target="_blank" />/a> a href="http://www.youku.com/v_show/id_XMTM4NTY5NTI4_rss.html">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下将数据库中的信息存储至XML文件中
    • asp access数据库并生成XML文件范例
    • Javascript+XMLHttpRequest+asp.net无刷新读取数据库数据
    • ASP XML操作类代码
    • ASP XMLDom在服务器端操作XML文件的主要方法和实现
    • Asp操作Xml的精炼类,含示例代码
    • ASP.NET+XML打造网络硬盘原理分析
    • asp xmlhttp下载一句话
    • asp.net TreeView与XML三步生成列表树
    • Asp 解析 XML并分页显示源码
    • ASP.NET中XML转JSON的方法实例
    • ASP.net处理XML数据实例浅析
    • ASP.NET XmlDocument类详解
    • asp.net中XML如何做增删改查操作
    • asp控制xml数据库的经典代码
    上一篇:asp读取xml实例代码
    下一篇:asp自带的内存缓存 application
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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