song.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/gotolist.asp"-->
<!--#include file="inc/song.asp"-->
<%Dim SongName,SongCode,SongType,TheUrl,TheThie,page,SoType(6),i
SongType=request("type")
page=CInt(request("page"))
SongName=replace(request.querystring,"song=","")
select case SongType
case "mp3"
SoType(2)="checked "
case "wma"
SoType(3)="checked "
case "rm"
SoType(4)="checked "
case "flash"
SoType(5)="checked "
case "others"
SoType(6)="checked "
case "lrc"
response.redirect "lrc.asp?song="&SongName
case else
SongType="all"
SoType(1)="checked "
end Select
TheUrl="http://one.cn.yahoo.com/s?p="&SongName&"&v=music&ei=UTF-8&mimetype=lyric&source=ysearch_music_result_topsearch&x="&SongType&"&b="&page
TheThie=NB_GetPage_adzx(TheUrl)
Call GoToList()
Dim TheSong,ThePage,SkinType,NBCache,TheTitle
If InStr(TheThie,"<div class=""yst-music"">") > 0 Then
TheTitle=Rp_Title(NB_GetContent(TheThie,"<title>","</title>",0))
TheSong=Rp_Song(NB_GetContent(TheThie,"<div class=""yst-music"">","</div>",1))
ThePage=Rp_Page(NB_GetContent(TheThie,"<div id=""page"">","</div>",1))
SkinType="none"
End If
NBCache=NB_Skin(SkinType)
NBCache=Replace(NBCache,"{NB:songname}",TheTitle)
NBCache=Replace(NBCache,"{NB:contents}",TheSong)
NBCache=Replace(NBCache,"{NB:songpage}",ThePage)
For i=1 To 6
NBCache=Replace(NBCache,"{NB:sotype("&i&")}",SoType(i))
Next
Response.Write NBCache
%>