song.asp

注意本程序是小偷代码,运用到某些类,卡巴会对INC.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/singer.asp"-->
<!--#include file="inc/song.asp"-->
<%Dim SongName,SongCode,SongType,TheUrl,TheThie,page,SoType(6),i
SongName=request("song")
SongType=request("type")
page=CInt(request("page"))
SongCode=NB_SongCode(SongName)
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="&SongCode
case else
SongType="all"
SoType(1)="checked "
end Select
TheUrl="http://music.cn.yahoo.com/search?pid=ysearch&source=ysmi_hsch_r&p="&SongCode&"&mimetype="&SongType&"&start="&page
TheThie=NB_GetPage(TheUrl)
Call GoToList()
Dim TheSong,ThePage,SkinType,NBCache
If InStr(TheThie,"<div class=""songlist"">") > 0 Then
TheSong=Rp_singer(NB_GetContent(TheThie,"<div class=""songlist"">","</div>",0))
SkinType="singer"
ElseIf InStr(TheThie,"<div class=""res"">") > 0 Then
TheSong=Rp_song(NB_GetContent(TheThie,"<table cellpadding=""5"" cellspacing=""0"">","</table>",0))
ThePage=Rp_Page(NB_GetContent(TheThie,"<div class=""page"">","</div>",0))
SkinType="song"
Else
TheSong="<b>抱歉！网络忙 或 无法找到相关歌曲。</b>"
SkinType="none"
End If
NBCache=NB_Skin(SkinType)
NBCache=Replace(NBCache,"{NB:songname}",SongName)
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%>