[asp]天楓AJAX百度音樂即時聽附下載

2024-09-01 08:31:46

字體：大中小

來源：轉載

供稿：網友

<%@ 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""baseline"" standby=""Loading Microsoft Windows Media Player components..."" type=""application/x-oleobject""mediaPlayerObj""width:300px;height:64px;border:1px solid #CCCCCC"">"
echo"<paramurl"" value='"&fileUrl&"'>"
echo"<paramrate"" value=""10"">"
echo"<parambalance"" value=""0"">"
echo"<paramcurrentPosition"" value=""0"">"
echo"<paramplayCount"" value=""1"">"
echo"<paramautoStart"" value=""-1"">"
echo"<paramvolume"" value=""60"">"
echo"<paramcurrentMarker"" value=""0"">"
echo"<paraminvokeURLs"" value=""-1"">"
echo"<paramstretchToFit"" value=""-1"">"
echo"<paramwindowlessVideo"" value=""0"">"
echo"<paramenabled"" value=""-1"">"
echo"<paramenableContextMenu"" value=""0"">"
echo"<paramfullScreen"" value=""0"">"
echo"<paramenableErrorDialogs"" value=""0"">"
echo"<embed src="""&fileUrl&"""baseline"" type=""application/x-mplayer2"" pluginspage=""""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""width:300px;height:68px;border:1px solid #FF0000""></embed>"
echo"</object>"
End Function

Sub Getlrc(songname)
echo"<divlrcxx""display:none""></div>"
echo"<spanlrcdata"">"
echo""
echo"</span>"
echo"<divbkk"">"
echo"<divlrcstart"">歌詞:<a href="""&lrcurl&""" target=""new"">點擊下載LRC歌詞</a></div>"
echo"<divlrcollbox"">"
echo"<tablelrcoll""position:relative;top:30px;width:100%;text-align:center"">"
echo"<tr><td><divlrcwt1""></div></td></tr>"
echo"<tr><td><divlrcwt2""></div></td></tr>"
echo"<tr><td><divlrcwt3""></div></td></tr>"
echo"<tr><tdkong"">"
echo"<table0"" cellspacing=""0"" cellpadding=""0"">"
echo"<tr><td nowrap30""><spanlrcbox""width:0;""></span></td></tr>"
echo"<trposition:relative; top: -30px; z-index:6;""><td nowrap30""><spanlrcbc""overflow:hidden; width:0;""></span></td>"
echo"</tr>"
echo"</table>"
echo"</td></tr>"
echo"<trposition:relative; top: -30px;""><td><divlrcwt4""></div></td></tr>"
echo"<trposition:relative; top: -30px;""><td><divlrcwt5""></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
%>