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

olume"" 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"">歌