[asp]天枫AJAX百度音乐即时听附下载

输入歌名自动会自动联想歌名

读取音乐地址时,背景变暗不可操作

同步LRC歌词显示,

用户可自己进行扩展,整合音乐站
screen.width-333)this.width=screen.width-333" border=0>

screen.width-333)this.width=screen.width-333" border=0>

screen.width-333)this.width=screen.width-333" border=0>
mp3.asp


代码如下:

<%@ language="vbscript" CodePage="936"%>
<%
response.charset="gb2312"
set regex = New regexp
regex.IgnoreCase=True
regex.Global=True
songname=unescape(query("songname"))
Select Case query("s")
   case"geturl":echo geturl(songname)
   case"suggest":echo suggest()
End select

Function geturl(songname)
    page=ajax("http://mp3.baidu.com/m?f=ms&tn=baidump3&ct=134217728&lf=&rn=&word="&songname&"&lm=0","","","")
    regex.Pattern="(http)\S+\.(mp3)"
    Set urls= regex.execute(page)
    'For i=0 To urls.count-1
       'geturl=geturl&(mp3url(urls(i))&"<br/>")
    'Next
    Randomize
    i=Int(rnd()*urls.count)
    If Len(urls(i))<30 Then i=Int(rnd()*urls.count)
    url=mp3url(urls(i))
    geturl="<div>"&mplay(url)&"<a href="""&url&""">点击鼠标右键-目标另存为下载歌曲<a></div>"
    Getlrc(songname)

End Function

Function mp3url(url)
    page=ajax("http://box.zhangmen.baidu.com/m?gate=1&ct=134217728&tn=baidumt,&word=mp3,"&url&"&lm=16777216","","","")
    regex.Pattern="(http)\S+\.(mp3)"
    Set urls= regex.execute(page)
    If urls.count>0 Then mp3url=urls(2)
End Function

Function mplay(fileUrl)
    echo"<object classid=""CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6"" codebase=""http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,4,7,1112"" align=""baseline"" standby=""Loading Microsoft Windows Media Player components..."" type=""application/x-oleobject"" id=""mediaPlayerObj""  style=""width:300px;height:64px;border:1px solid #CCCCCC"">"
    echo"<param name=""url"" value='"&fileUrl&"'>"
    echo"<param name=""rate"" value=""10"">"
    echo"<param name=""balance"" value=""0"">"
    echo"<param name=""currentPosition"" value=""0"">"
    echo"<param name=""playCount"" value=""1"">"
    echo"<param name=""autoStart"" value=""-1"">"
    echo"<param name=""volume"" value=""60"">"
    echo"<param name=""currentMarker"" value=""0"">"
    echo"<param name=""invokeURLs"" value=""-1"">"
    echo"<param name=""stretchToFit"" value=""-1"">"
    echo"<param name=""windowlessVideo"" value=""0"">"
    echo"<param name=""enabled"" value=""-1"">"
    echo"<param name=""enableContextMenu"" value=""0"">"
    echo"<param name=""fullScreen"" value=""0"">"
    echo"<param name=""enableErrorDialogs"" value=""0"">"
    echo"<embed src="""&fileUrl&""" align=""baseline"" type=""application/x-mplayer2"" pluginspage="""" id=""mediaPlayerObj"" showcontrols=""1"" showpositioncontrols=""0"" showaudiocontrols=""1"" showtracker=""1"" showdisplay=""0"" showstatusbar=""1"" autosize=""0"" showgotobar=""0"" showcaptioning=""0"" autostart=""1"" autorewind=""0"" animationatstart=""0"" transparentatstart=""0"" allowscan=""1"" enablecontextmenu=""1"" clicktoplay=""0""  defaultframe=""datawindow"" invokeurls=""0"" style=""width:300px;height:68px;border:1px solid #FF0000""></embed>"
    echo"</object>"
End Function

Sub Getlrc(songname)
    echo"<div id=""lrcxx"" style=""display:none""></div>" 
    echo"<span id=""lrcdata"">"
    echo"<!--"
     page=ajax("http://mp3.baidu.com/m?tn=baidump3lyric&word="&songname&"&ct=150994944&lm=-1&lf=3","","","")
    If InStr(page,"抱歉,没有找到")>0 Then
        echo "没有找到歌词"
        lrcurl=""
    else
        regex.Pattern="(http://)\S+\.(lrc)"
        set lrcs=regex.Execute(page)
        lrcurl=lrcs(0)
        If lrcs.count>0 Then
            echo ajax(lrcurl,"","","")
        Else
            echo "没有找到歌词"
        End If
    End if
    echo"-->"
    echo"</span>"
    echo"<div id=""bkk"">"
    echo"<div id=""lrcstart"">歌词:<a href="""&lrcurl&""" target=""new"">点击下载LRC歌词</a></div>"
    echo"<div id=""lrcollbox"">"
    echo"<table id=""lrcoll"" style=""position:relative;top:30px;width:100%;text-align:center"">"
    echo"<tr><td><div id=""lrcwt1""></div></td></tr>"
    echo"<tr><td><div id=""lrcwt2""></div></td></tr>"
    echo"<tr><td><div id=""lrcwt3""></div></td></tr>"
    echo"<tr><td class=""kong"">"
    echo"<table border=""0"" cellspacing=""0"" cellpadding=""0"">"
    echo"<tr><td nowrap height=""30""><span id=""lrcbox"" style=""width:0;""></span></td></tr>"
    echo"<tr style=""position:relative; top: -30px; z-index:6;""><td nowrap height=""30""><span id=""lrcbc"" style=""overflow:hidden; width:0;""></span></td>"
    echo"</tr>"
    echo"</table>"
    echo"</td></tr>"
    echo"<tr style=""position:relative; top: -30px;""><td><div id=""lrcwt4""></div></td></tr>"
    echo"<tr style=""position:relative; top: -30px;""><td><div id=""lrcwt5""></div></td></tr>"
    echo"</table>"
    echo"</div>"
    echo"</div>"
End Sub

Function Suggest()
   If Trim(query("songname"))<>"" then     
       songname=Replace((query("songname")),"!","%")
       'Suggest=ajax("http://mp3.sogou.com/suggest/suggest.jsp?key="&escape(query("songname"))&"&asc=1","","","UTF-8")
      Suggest=ajax("http://music.soso.com/wh.php?"&songname,"","","")
   End if
End Function

Function Query(byval var)
    Query = request.form(var)
    if Query = "" then Query = request(var)
End Function

Function Echo(byval str)
    response.write str
End Function

Public Function AJAX(url,method,data,bm)
    If method="" Then method="get"
    If bm="" Then  bm="gb2312"
    dim http 
    Set http=Server.createobject("Microsoft.XMLHTTP") 
    Http.open method,url,false
    if LCase(method)="post" then
        Http.setrequestheader "content-length",len(data)
        Http.setrequestheader "content-type","application/x-www-form-urlencoded"
    end if
    Http.send(data) 
    if Http.readystate=4 and Http.status=200 then 
        AJAX=bytesToBSTR(Http.responseBody,"GB2312")
    end If
    set http=nothing 
End function

Public Function BytesToBstr(body,Cset)
    dim objstream
    set objstream = Server.CreateObject("ADODB"+"."+"Stream")
    with objstream
        .Type = 1
        .Mode =3
        .Open
        .Write body
        .Position = 0
        .Type = 2
        .Charset = Cset
        BytesToBstr = .ReadText 
        .Close
    end with
    set objstream = nothing
End Function

Set regex=Nothing
%>

在线演示http://www.jb51.net/demo/mp4/index.html
本地下载

(0)

相关推荐

  • [asp]天枫AJAX百度音乐即时听附下载

    输入歌名自动会自动联想歌名 读取音乐地址时,背景变暗不可操作 同步LRC歌词显示, 用户可自己进行扩展,整合音乐站screen.width-333)this.width=screen.width-333" border=0> screen.width-333)this.width=screen.width-333" border=0> screen.width-333)this.width=screen.width-333" border=0>mp3.asp

  • [asp]天枫AJAX blog V1.0 程序提供下载了

    screen.width-333)this.width=screen.width-333" border=0>screen.width-333)this.width=screen.width-333" border=0>screen.width-333)this.width=screen.width-333" border=0>screen.width-333)this.width=screen.width-333" border=0> 主要

  • python中使用百度音乐搜索的api下载指定歌曲的lrc歌词

    这次这个真的是干货哦,昨晚弄了半晚上,,,,从8点吃完饭就开始写,一直到了快12点才弄好,,,新手,伤不起呀.... 先简单的说下吧,百度提供了一个音乐搜索的api,你想百度请求类似于 http://box.zhangmen.baidu.com/x?op=12&count=1&title=最佳损友$$陈奕迅$$$$ 的地址,百度会给你返回一段xml,如下所示 This XML file does not appear to have any style information associ

  • thinkPHP+mysql+ajax实现的仿百度一下即时搜索效果详解

    本文实例讲述了thinkPHP+mysql+ajax实现的仿百度一下即时搜索效果.分享给大家供大家参考,具体如下: 用过百度搜索的人应该都知道这个效果,今天我用ThinkPHP+Mysql+Ajax来实现这样的一个效果,首先我把所有的代码都先给大家,最后再来讲解. 百度即时搜索效果图 运行效果图 数据库截图 城市表 学校表 控制层代码(SchoolController.class.php) <?php namespace Wechat\Controller; use Think\Controll

  • Ajax添加数据即时显示信息篇

    今天我们要学习的内容是:使用ajax向服务端的数据库添加数据,然后在网页不刷新情况下即时显示被添加的数据.需要说明的是.本次ajax实例教程与前3篇有2点大不同之处. 1:我们要对数据库进行操作.2:更换请求的服务端网页.不再使用Web_ajax.Asp文件.新的请求网页是:Add_Data.Asp.看后缀大家就应该能明白.我在服务端采用的技术是Asp.都说Asp过时了.可他的简单易用,易学深深地吸引着我!当然也你可以使用php, .net,或jsp轻松的模拟该Asp文件的源码.我会在该次教程最

  • ASP.NET与Ajax的实现方式小总结

    Ajax 已经很流行一阵子了,现在谈 Ajax 觉得有点老土,-_____-```.目前所谓的 Web2.0 网站,基本上没有不使用 Ajax 的,就如使用 RSS 一样,就如同一个标签,贴上去就成了 2.0.Ajax 具体细节不谈,其目的就是让用户触发一些操作的时候,页面不会全部刷新,只刷新待更新的"部分页面",加载数据的过程中,用 Loading 的图片来表示正在加载数据,不只是看起来挺不错,也提高了用户的访问体验,有一种酷酷的感觉. 至于 ASP.NET 中用到的 Ajax ,我

  • Asp.Net 和 AJAX.Net 的区别第1/2页

    原文:http://www.microsoft.com/china/msdn/library/webservices/asp.net/us0501ASPNETPerformance.mspx?mfr=true 适用于:AJAX(异步 JavaScript 和 XML)Microsoft AJAX.NETMicrosoft ASP.NET 摘要:了解如何将 AJAX(异步 JavaScript 和 XML)用于您的 Microsoft ASP.NET 应用程序,使其互动性更强.响应更及时. 下载本

  • ASP.NET使用Ajax返回Json对象的方法

    一.新建一个html页面,如注册页面"Register.htm" <!DOCTYPE html> <html > <head> <title>用户注册</title> <meta charset="utf-8" /> <style type="text/css"> .msg { color:Red; } </style> </head> &

  • ASP.NET使用ajax实现分页局部刷新页面功能

    listview列表实现分页是非常容易的.ListView分页是非常简单的,加上一个DataPager控件,把ListView的ID赋予就可以了.最开始我就是这么写的.(网上有人说这样是伪分页?) <asp:ListView ID="newBlogItems" runat="server" DataSourceID="AccessDataSource1" ViewStateMode="Disabled"> <

  • Vuejs仿网易云音乐实现听歌及搜索功能

    前言 前端时间学了vue,一开始看了vue1.0,后来实在觉得技术总得实践,就直接上手vue2.0.然后花了将近一周时间做了一个网易云音乐的小项目.一开始觉得项目比较小,没必要用vuex所以就没有使用,但是后来发现数据流传输有点麻烦,后续会使用vuex. 技术栈 vue+vue-router(核心框架) better-scroll(使移动端滑动体验更加流畅) vue-lazyload(用户图片懒加载) nprogress(用于加载过渡) axios(请求) 功能分析与设计 首先我先参考了现有的一

随机推荐