<!--#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
Call ReNew_YesNo("index")
Response.Write NBCache
Sub NB_renew()
Dim TheUrl,TheThie,Song_list(14),i
TheUrl="http://music.cn.yahoo.com/mp3top.php?source=ysmm_hmeu_lbuzz"
TheThie=NB_GetPage(TheUrl)
Song_list(1)=NB_GetContent(TheThie,"<h3>新歌飆升榜","</table>",1)
Song_list(2)=NB_GetContent(TheThie,"<h3>熱搜歌曲榜","</table>",1)
Song_list(3)=NB_GetContent(TheThie,"<h3>流行金曲榜","</table>",1)
Song_list(4)=NB_GetContent(TheThie,"<h3>難忘老歌榜","</table>",1)
Song_list(5)=NB_GetContent(TheThie,"<h3>華語男歌手榜","</table>",1)
Song_list(6)=NB_GetContent(TheThie,"<h3>華語女歌手榜","</table>",1)
Song_list(7)=NB_GetContent(TheThie,"<h3>華語組合榜","</table>",1)
Song_list(8)=NB_GetContent(TheThie,"<h3>勁爆舞曲榜","</table>",1)
Song_list(9)=NB_GetContent(TheThie,"<h3>搖滾另類榜","</table>",1)
Song_list(10)=NB_GetContent(TheThie,"<h3>搞笑歌曲榜","</table>",1)
Song_list(11)=NB_GetContent(TheThie,"<h3>日韓歌曲榜","</table>",1)
Song_list(12)=NB_GetContent(TheThie,"<h3>粵語歌曲榜","</table>",1)
Song_list(13)=NB_GetContent(TheThie,"<h3>歐美歌曲榜","</table>",1)
Song_list(14)=NB_GetContent(TheThie,"<h3>經(jīng)典對唱榜","</table>",1)
NBCache=NB_Skin("index")
For i=1 To 14
NBCache=Replace(NBCache,"{NB:home_list("&i&")}",NB_RP(Song_list(i)))
Next
Call NB_WriteFile("index.htm",Date()&"[NB555.com]"&NBCache)
End Sub
Function NB_RP(s)
Dim Re
Set Re=new RegExp
Re.Global=True
Re.Pattern="<h3>(.+?)</h3>"
s=Re.Replace(s,"")
Re.Pattern="<a href=""http:\/\/one.cn.yahoo.com\/\/s\?p=(.+?)&(.+?)"">"
s=Re.Replace(s,"<a href='song.asp?song=$1'>")
Re.Pattern="<span(.+?)title=""(.+?)""></span>"
s=Re.Replace(s,"$2")
Re.Pattern="<tr.+?>"
s=Re.Replace(s,"<tr>")
Re.Pattern="<td .+?>"
s=Re.Replace(s,"<td>")
Re.Pattern="<table .+?>"
s=Re.Replace(s,"<table>")
Re.Pattern="[\n]"
s=Re.Replace(s,"")
Set Re=Nothing
s=Replace(s,"<td>1</td>","<td width='13'>1</td>")
s=Replace(s,"<td>","<td nowrap>")
NB_RP=s
End Function%>