lrc.asp

jkjgkjbkjklb hnbbnl,bmnmn

<!--#include file="config.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/file.asp"-->
<!--#include file="inc/skin.asp"-->
<!--#include file="inc/lrc.asp"-->
<%Dim SongName,TheUrl,TheThie,page
SongName=request("song")
page=CInt(request("page"))
If SongName="" Then
TheUrl=request.querystring
TheUrl="http://music.cn.yahoo.com/lyric.html?"&TheUrl
Else
TheUrl="http://music.cn.yahoo.com/lyric.html?p="&Songname&"&mimetype=lyric"&"&start="&page
End If
TheThie=NB_GetPage(TheUrl)
If SongName="" Then
SongName=NB_GetContent(TheThie,"<b>1. 曲名：</b>","</a>",0)
SongName=Right(SongName,Len(SongName) - InStr(SongName,">"))
End If
Dim TheLrc,ThePage,SkinType,NBCache
If InStr(TheThie,"<P class=results_nav>") > 0 Then
TheLrc=Rp_Lrc(NB_GetContent(TheThie,"<table width=""98%"" border=""0"" align=""center"" cellpadding=""15"" cellspacing=""0"" class=""result_page"">","<P class=results_nav>",1))
ThePage=Rp_Page(NB_GetContent(TheThie,"<P class=results_nav>","</p>",0))
SkinType="lrc"
Else
TheLrc="<b>抱歉！网络忙 或 无法找到相关歌词。</b>"
SkinType="none"
End If
NBCache=NB_Skin(SkinType)
NBCache=Replace(NBCache,"{NB:songname}",SongName)
NBCache=Replace(NBCache,"{NB:contents}",TheLrc)
NBCache=Replace(NBCache,"{NB:lrcpage}",ThePage)
Response.Write NBCache
Function Rp_Lrc(s)
s=Replace(s,"&nbsp;"," ")
Dim Re
Set Re=new RegExp
Re.Global=True
Re.Pattern="[\n]"
s=Re.Replace(s,"")
Re.Pattern="<table (.+?)>"
s=Re.Replace(s,"<table>")
Re.Pattern="<td (.+?)>"
s=Re.Replace(s,"<td>")
Re.Pattern="<font (.+?)>(.+?)</font>"
s=Re.Replace(s,"$2")
Re.Pattern="<img (.+?)>"
s=Re.Replace(s,"")
Re.Pattern=">[ ]+<"
s=Re.Replace(s,"><")
Re.Pattern="<a href=""\/search\?p=(.+?)&(.+?)>(.+?)</a>"
s=Re.Replace(s,"<a href='song.asp?song=$1'>$3</a> ")
Re.Pattern="<a href=""printlyric.html(.+?)>查看打印版</a>"
s=Re.Replace(s,"")
Re.Pattern="<a href=""http:\/\/massist.yahoo.com.cn\/(.+?)""(.+?)>查看LRC歌词[ ]*</a>"
s=Re.Replace(s,"")
Re.Pattern="<a href=""searcheml.html\?(.+?)&nm=(.+?)""(.+?)>发送给好友</a>"
s=Re.Replace(s,"〖<a href='"&NB_SS("song")&"$2' target='_blank'>免费点歌送朋友</a>〗〖<a href='"&NB_SS("sms")&"$2' target='_blank'>下载此歌做铃声</a>〗")
Set Re=Nothing
s=Replace(s,"<br>","<br />")
s=Replace(s,"<P class=results_nav>","")
s=Replace(s,"</table><br />","</table>")
Rp_Lrc=Trim(By_Lrc(s))
End Function
Function Rp_Page(s)
Dim Re
Set Re=new RegExp
Re.Global=True
Re.Pattern="[\n]"
s=Re.Replace(s,"")
Re.Pattern="<[Aa] href=""\?p=(.+?)&(.+?)&start=(.+?)&(.+?)>"
s=Re.Replace(s,"<a href='lrc.asp?song=$1&page=$3'>")
Re.Pattern="<td (.+?)>(.+?)</td>"
s=Re.Replace(s,"$2")
Set Re=Nothing
s=Replace(s,"&nbsp;&nbsp;"," ")
Rp_Page=Trim(s)
End Function
%>