<!--#include file="const.asp"-->
<!--#include file="error.ini"-->
<%pagename="make_special"%>
<%
id=request.QueryString("id")
FILENAME="../Top/ylmv_"&id&".html"
set rs=server.createobject("adodb.recordset")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成歌曲排行列表</title>
<style>
body{font-size:9pt;line-height:140%} 
</style>
</head>
<body>
<%
rs.open ("select toplist from mb"),conn,1,1
pencat=rs("toplist")
rs.close

htmtop_3="<html><head>"
htmtop_3=htmtop_3&"<meta http-equiv='Content-Type' content='text/html' charset=gb2312'>"
htmtop_3=htmtop_3&"<meta name='keywords' content='"&homes&", wma, WMA, wma下载, wma试听, WMA下载, Mp3, MP3, mp3下载, MP3下载, mtv, MTV, flash, FLASH, 免费音乐下载, 免费音乐试听, 在线视听, 流行歌曲, 经典老歌, DJ舞曲, dj舞曲, 免费电影, 电影下载, 服务器租用'>"
htmtop_3=htmtop_3&"<meta name='description' content='"&homes&"旗下网站,六万首音乐在线试听，百万网友喜爱的音乐网站'>"
htmtop_3=htmtop_3&"<title>歌曲排行榜 - "&homes&" - "&url&"  港台 内地 日韩 欧美 流行歌曲排行榜 免费下载试听 WMA下载 MP3下载 流行音乐 DJ舞曲 免费电影 电影下载</title>"
pencat=replace(pencat,"htmtop_3",htmtop_3)
'################ 读标题 开始 ###############
htmtop_2=htmtop_2&"<TABLE width=770 border=5 align=center cellPadding=1 cellSpacing=0 bordercolor='#A1C9E3' borderColorDark=#ffffff bgcolor='#FFFFFF'>"
htmtop_2=htmtop_2&"<TBODY>"
htmtop_2=htmtop_2&"<script src=../Js/Js.js></script>"
htmtop_2=htmtop_2&"<FORM action=../playsong.asp name=form2 onsubmit='javascript:return ting2008 ();' target=ting2008>"
htmtop_2=htmtop_2&"<TR align=middle>"
htmtop_2=htmtop_2&"<TD width=39 height=25 bgcolor='#c6e3f7'><FONT color=#000000>选择</font></TD>"
htmtop_2=htmtop_2&"<TD width=160 bgcolor='#c6e3f7'><FONT color=#000000>歌曲</font></TD>"
htmtop_2=htmtop_2&"<TD width=39 bgcolor='#c6e3f7'><FONT color=#000000>选择</font></TD>"
htmtop_2=htmtop_2&"<TD width=160 bgcolor='#c6e3f7'><FONT color=#000000>歌曲</font></TD>"
htmtop_2=htmtop_2&"<TD width=39 bgcolor='#c6e3f7'><FONT color=#000000>选择</font></TD>"
htmtop_2=htmtop_2&"<TD width=160 bgcolor='#c6e3f7'><FONT color=#000000>歌曲</font></TD>"
htmtop_2=htmtop_2&"<TD width=39 bgcolor='#c6e3f7'><FONT color=#000000>选择</font></TD>"
htmtop_2=htmtop_2&"<TD width=160 bgcolor='#c6e3f7'><FONT color=#000000>歌曲</font></TD>"
htmtop_2=htmtop_2&"</TR>"
htmtop_2=htmtop_2&"<TR align=middle>"
      
dim i
i=0
page = request.querystring("id")
set rs=server.createobject("adodb.recordset") 
sql="select * from MusicList order by hits desc"
rs.open sql,conn,1,1
if rs.EOF then
response.write "<div align=center>未收录歌曲</div>"
else
rs.pagesize = "201"
if page = "" or page < "1" then
page = "1"
end if
if rs.pagecount > "0" then
rs.absolutepage = page
end if
do while not rs.eof
i=i+1
if i > rs.pagesize then
exit do
end if

htmtop_2=htmtop_2&"<TD width=39><input type='checkbox' name='checked' value='"&rs("id")&"'></TD>"
htmtop_2=htmtop_2&"<TD width=160><a href='../Yxplay.asp?id="&rs("id")&"'>"&rs("MusicName")&"</a></TD>"
       if i mod 4 =0 then
htmtop_2=htmtop_2&"<TR align=middle>"

end if
if i>=60 then exit do
rs.movenext
loop
end if

htmtop_2=htmtop_2&"</TR>"
htmtop_2=htmtop_2&"<TR>"
htmtop_2=htmtop_2&"<TD width='80%' align=center colSpan=12>"
htmtop_2=htmtop_2&"<input type='button' name='chkall'  value='' onclick='CheckAll(this.form)' title='选择显示的所有歌曲' style=""width: 46px; height: 17px; background-image: url('../images/Icon_quanx.gif'); border-style: none; border-width: medium"">"
htmtop_2=htmtop_2&"&nbsp;&nbsp;&nbsp;&nbsp;"
htmtop_2=htmtop_2&"<input type='button' name='chkOthers' value='' onclick='CheckOthers(this.form)' title='反向选择歌曲' style=""width: 46px; height: 17px; background-image: url('../images/Icon_qux.gif'); border-style: none; border-width: medium"">"
htmtop_2=htmtop_2&"&nbsp;&nbsp;&nbsp;&nbsp;"
htmtop_2=htmtop_2&"<input type='submit'  name='B1' value='' title='请先选择你想听的歌曲后再点击播放' style=""width: 75px; height: 17px; background-image: url('../images/Icon_playall.gif'); border-style: none; border-width: medium"">"
htmtop_2=htmtop_2&"</form>"
htmtop_2=htmtop_2&"</TABLE>"

rs.close
set rs=nothing
conn.close
set conn=nothing
pencat=replace(pencat,"htmtop_2",htmtop_2)
'################ 读结束 ###############
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(FILENAME))
fout.Write pencat
fout.close
'************** 生成结束 **************
%>
<font color="#FF0000">·</font><font color="#FF0000">生成歌曲排行完成</font><br>
<font color="#FF0000">·</font><a target="_blank" href="<%=FILENAME%>">点击浏览<%=FILENAME%></a>
</body>
</html>