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

词:<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("Micros