list.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/renew.asp"-->
<%Dim NBCache,ReNewTime,list_class,list_title
list_class=CInt(request("song"))
If list_class<1 Or list_class>14 Then list_class=1
select case list_class
case 14
list_title="经典对唱歌曲"
case 13
list_title="欧美歌曲"
case 12
list_title="粤语歌曲"
case 11
list_title="日韩歌曲"
case 10
list_title="搞笑歌曲、网络歌曲"
case 9
list_title="摇滚另类歌曲"
case 8
list_title="劲舞歌曲、DJ舞曲"
case 7
list_title="乐队组合歌曲"
case 6
list_title="女歌手歌曲"
case 5
list_title="男歌手歌曲"
case 4
list_title="怀旧老歌"
case 3
list_title="流行歌曲"
case 2
list_title="热门歌曲"
case else
list_title="最新歌曲"
end Select
Call ReNew_YesNo("list")
Response.Write NBCache
Sub NB_renew()
Dim TheUrl,TheThie,Song_list
select case list_class
case 14
TheUrl="http://music.cn.yahoo.com/mp3list_top.php?pid=ysearch&sub1=%B8%E8%C7%FA&sub2=%BE%AD%B5%E4%B6%D4%B3%AA&source=ysmm_lmeu_ldui0"
case 13
TheUrl="http://music.cn.yahoo.com/mp3list_top.php?pid=ysearch&sub1=%B8%E8%C7%FA&sub2=%C5%B7%C3%C0%B8%E8%C7%FA&source=ysmt_ltopom_r"
case 12
TheUrl="http://music.cn.yahoo.com/mp3list_top.php?pid=ysearch&sub1=%B8%E8%C7%FA&sub2=%D4%C1%D3%EF%B8%E8%C7%FA&source=ysmt_ltopyue_r"
case 11
TheUrl="http://music.cn.yahoo.com/mp3list_top.php?pid=ysearch&sub1=%B8%E8%C7%FA&sub2=%C8%D5%BA%AB%B8%E8%C7%FA&source=ysmt_ltoprih_r"
case 10
TheUrl="http://music.cn.yahoo.com/mp3list_top.php?pid=ysearch&sub1=%B8%E8%C7%FA&sub2=%B8%E3%D0%A6%B8%E8%C7%FA&source=ysmm_lmeu_lgao0"
case 9
TheUrl="http://music.cn.yahoo.com/mp3list_top.php?pid=ysearch&sub1=%B8%E8%C7%FA&sub2=%D2%A1%B9%F6%C1%ED%C0%E0&source=ysmm_lmeu_lroc0"
case 8
TheUrl="http://music.cn.yahoo.com/mp3list_top.php?pid=ysearch&sub1=%B8%E8%C7%FA&sub2=%BE%A2%B1%AC%CE%E8%C7%FA&source=ysmt_ltopdan_r"
case 7
TheUrl="http://music.cn.yahoo.com/mp3list_top.php?pid=ysearch&sub1=%B8%E8%CA%D6&sub2=%BB%AA%D3%EF%D7%E9%BA%CF&source=ysmm_lmeu_lhyz0"
case 6
TheUrl="http://music.cn.yahoo.com/mp3list_top.php?pid=ysearch&sub1=%B8%E8%CA%D6&sub2=%BB%AA%D3%EF%C5%AE%B8%E8%CA%D6&source=ysmm_lmeu_lhyf0"
case 5
TheUrl="http://music.cn.yahoo.com/mp3list_top.php?pid=ysearch&sub1=%B8%E8%CA%D6&sub2=%BB%AA%D3%EF%C4%D0%B8%E8%CA%D6&source=ysmm_lmeu_lhym0"
case 4
TheUrl="http://music.cn.yahoo.com/mp3list_top.php?pid=ysearch&sub1=%B8%E8%C7%FA&sub2=%C4%D1%CD%FC%C0%CF%B8%E8&source=ysmm_lmeu_lold0"
case 3
TheUrl="http://music.cn.yahoo.com/mp3list_top.php?pid=ysearch&sub1=%B8%E8%C7%FA&sub2=%C1%F7%D0%D0%BD%F0%C7%FA&source=ysmm_lmeu_lpop0"
case 2
TheUrl="http://music.cn.yahoo.com/mp3list_top.php?pid=ysearch&sub1=%B8%E8%C7%FA&sub2=%C8%C8%CB%D1%B8%E8%C7%FA&source=ysmm_lmeu_lhot0"
case else
TheUrl="http://music.cn.yahoo.com/mp3list_top.php?pid=ysearch&sub1=%B8%E8%C7%FA&sub2=%D0%C2%B8%E8%EC%AD%C9%FD%B0%F1&source=ysmm_lmeu_lnew0"
end Select
TheThie=NB_GetPage(TheUrl)
Song_list=NB_GetContent(TheThie,"<table width=""98%"" cellpadding=""0"" cellspacing=""0"">","</table>",0)
NBCache=NB_Skin("list")
NBCache=Replace(NBCache,"{NB:contents}",NB_RP(Song_list))
NBCache=Replace(NBCache,"{NB:title}",list_title)
Call NB_WriteFile("list"&list_class&".htm",Date()&"[3qyy.com]"&NBCache)
End Sub
Function NB_RP(s)
Dim Re
Set Re=new RegExp
Re.Global=True
Re.Pattern="<a(.+?)href=""http:\/\/music.yahoo.com.cn\/search\?(.+?)&p=(.+?)""(.+?)>"
s=Re.Replace(s,"<a href='song.asp?song=$3'>")
Re.Pattern="<span(.+?)>(.+?)</span>"
s=Re.Replace(s,"$2")
Re.Pattern="<td .+?>"
s=Re.Replace(s,"<td>")
Re.Pattern="<td>([1,2,3,4,5,6]).</td>"
s=Re.Replace(s,"<td width='1%'>$1.</td>")
Re.Pattern="<font(.+?)>&lt;</font>(.+?)<font(.+?)>&gt;</font>"
s=Re.Replace(s," <u>($2)</u>")
Re.Pattern="[\n]"
s=Re.Replace(s,"")
Set Re=Nothing
NB_RP="<table>"&s&"</table>"
End Function%>