?? song.asp
字號:
<!--#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),iSongType=request("type")page=CInt(request("page"))SongName=replace(request.querystring,"song=","")select case SongTypecase "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="&SongNamecase elseSongType="all"SoType(1)="checked "end SelectTheUrl="http://one.cn.yahoo.com/s?p="&SongName&"&v=music&ei=UTF-8&mimetype=lyric&source=ysearch_music_result_topsearch&x="&SongType&"&b="&pageTheThie=NB_GetPage_adzx(TheUrl)Call GoToList()Dim TheSong,ThePage,SkinType,NBCache,TheTitleIf 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 IfNBCache=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 6NBCache=Replace(NBCache,"{NB:sotype("&i&")}",SoType(i))NextResponse.Write NBCache
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -