<!--#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_titlelist_class=CInt(request("song"))If list_class<1 Or list_class>14 Then list_class=1select case list_classcase 14list_title="經(jīng)典對唱歌曲"case 13list_title="歐美歌曲"case 12list_title="粵語歌曲"case 11list_title="日韓歌曲"case 10list_title="搞笑歌曲、網(wǎng)絡歌曲"case 9list_title="搖滾另類歌曲"case 8list_title="勁舞歌曲、DJ舞曲"case 7list_title="樂隊組合歌曲"case 6list_title="女歌手歌曲"case 5list_title="男歌手歌曲"case 4list_title="懷舊老歌"case 3list_title="流行歌曲"case 2list_title="熱門歌曲"case elselist_title="最新歌曲"end SelectCall ReNew_YesNo("list")Response.Write NBCacheSub NB_renew()Dim TheUrl,TheThie,Song_listselect case list_classcase 14TheUrl="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 13TheUrl="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 12TheUrl="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 11TheUrl="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 10TheUrl="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 9TheUrl="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 8TheUrl="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 7TheUrl="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 6TheUrl="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 5TheUrl="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 4TheUrl="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 3TheUrl="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 2TheUrl="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 elseTheUrl="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 SelectTheThie=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()&"[nb555.com]"&NBCache)End SubFunction NB_RP(s)Dim ReSet Re=new RegExpRe.Global=TrueRe.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,"")
Re.Pattern="&source=(.+?)&pid=bd_mp3"
s=Re.Replace(s,"")Set Re=Nothing
s=replace(s,"http://one.cn.yahoo.com/s?&v=music&p=","song.asp?song=")
s=replace(s,"http://one.cn.yahoo.com/s?v=music&p=","singer.asp?singer=")NB_RP="<table>"&s&"</table>"End Function
%>