输入歌名自动会自动联想歌名
读取音乐地址时,背景变暗不可操作
同步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="/UploadFiles/2021-04-02/"> 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
%>
在线演示https://www.jb51.net/demo/mp4/index.html
本地下载
读取音乐地址时,背景变暗不可操作
同步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="/UploadFiles/2021-04-02/"> 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
%>
在线演示https://www.jb51.net/demo/mp4/index.html
本地下载
华山资源网 Design By www.eoogi.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
华山资源网 Design By www.eoogi.com
暂无评论...
更新日志
2024年12月25日
2024年12月25日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]