<!--#include file="Const.Asp"-->
<!--#include file="error.ini"-->
<link href="Images/Admin_Style.Css" rel="stylesheet" type="text/css">
<%pagename="make_musiclist"%>
<%
Specialid=request.QueryString("263")
FILENAME="../Musiclist/ylmv_"&Specialid&".html"
set rs=server.createobject("adodb.recordset")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<%
rs.open ("select gequ from mb"),conn,1,1
pencat=rs("gequ")
rs.close
'################ 读标题开始 ###############
  set rs=conn.execute("SELECT * FROM Special where SpecialID="&SpecialID)
   if rs.eof and rs.bof then 
	errmsg=errmsg+"参数错误，请输入正确的参数"
	call error()
        Response.End 
        else  
Nclass=rs("nclass")
name=rs("name")
gequ_3="<html><head>"
gequ_3=gequ_3&"<meta name='keywords' content='"&homes&",在线听歌,音乐网，音乐无线，音乐试听，在线音乐，音乐频道，mp3免费下载，免费音乐下载'>"
gequ_3=gequ_3&"<meta name='description' content='"&homes&",在线听歌,音乐网，音乐无线，音乐试听，在线音乐，音乐频道，mp3免费下载，免费音乐下载'>"
gequ_3=gequ_3&"<title>"&rs("Nclass")&" - "&name&" - "&rs("sclass")&" --- 最新流行歌曲在线试听 免费听歌 免费在线听歌 mp3免费下载 零距离音乐无线 让您的心重新获得释放</title>"
'################ 读横栏 开始 ###############
 
gequ_1="&nbsp;<a href='../index.html'><font color=#000000>首页</font></a> <font color=#000000>>></font> <a href='../Art/ylmv_"&rs("SClassid")&".html'><font color=#000000>"&rs("SClass")&"</font></a> <font color=#000000>>></font> <a href='../Special/ylmv_"&rs("NClassid")&".html'><font color=#000000>"&rs("Nclass")&"</font></a> <font color=#000000>>></font> <font color=#000000>《"&rs("Name")&"》所有歌曲</font>"       
end if
rs.close
pencat=replace(pencat,"Gequ_1",gequ_1)
pencat=replace(pencat,"Gequ_3",gequ_3)
'################ 读主题 开始 ###############
set rs=server.createobject("adodb.recordset")
sql="select * from Special where Specialid="&cstr(Specialid)
rs.open sql,conn,1,3
if rs.EOF then
	errmsg= "<li>服务器出错！请联系管理员</li>"
	call error()
	Response.End 
else
	rs("hits")=rs("hits")+1
	rs.update
	hits=rs("hits")
	Classid=rs("Classid")
	SClassid=rs("SClassid")
	NClassid=rs("NClassid")
	Specialid=rs("Specialid")
	Nclass=rs("Nclass")
	name=rs("name")
	Gongsi=rs("Gongsi")
	Yuyan=rs("Yuyan")
	pic=rs("pic")
	intro=rs("intro")
	Times=rs("Times")
pencat= Replace(pencat, "{Name}", Name)
pencat= Replace(pencat, "{Nclass}", NClass)
pencat= Replace(pencat, "{Gongsi}", Gongsi)
pencat= Replace(pencat, "{Yuyan}", Yuyan)
pencat= Replace(pencat, "{Times}", Times)
pencat= Replace(pencat, "{Pic}", Pic)
pencat= Replace(pencat, "{Intro}", Intro)
pencat= Replace(pencat, "{Nclassid}", NClassid)
pencat= Replace(pencat, "{Specialid}", Specialid)
pencat= Replace(pencat, "{Sms}", Sms)
end if
rs.close
sql="select * from MusicList where Specialid="&cstr(Specialid)
rs.open sql,conn,1,1
if rs.EOF then
gequ_2=gequ_2&"<div align=center>未收录歌曲</div>"
else
gequ_2=gequ_2&"<table border='0' cellpadding='2' cellspacing='0' width='100%' bordercolordark='#FFFFFF'>"
gequ_2=gequ_2&"<form name=""form2"" onSubmit=""javascript:return lbsong();"" target=""263musiclisten"" action=""../Player/"">"





i=0
do while not rs.eof
i=i+1
gequ_2=gequ_2&" <tr>"
gequ_2=gequ_2&"<td width=4% align=center>"
gequ_2=gequ_2&"    <input type='checkbox' name='id' value='"&rs("id")&"'></td>"


'=====================歌名====================================
gequ_2=gequ_2&"   <td width='50%' class='content'>&nbsp;&nbsp;"&i&".<a href=../MusicPlay/"&rs("NClassID")&"/"&rs("id")&".html target=_blank''c''><font style=""margin-left: 0; margin-right: 0"">"&rs("MusicName")&"</font></a></td>"
'=====================播放====================================
gequ_2=gequ_2&"   <td width='7%' align=center> <a href=../MusicPlay/"&rs("NClassID")&"/"&rs("id")&".html target=_blank''c''><img border='0' src='../Images/Wma.gif' alt='点击试听'></a> </td>"
'=====================免费点歌====================================
gequ_2=gequ_2&"   <td width='7%' align=center> <a href='../dg/add.asp?MusicID="&rs("id")&"&musicname="&rs("MusicName")&"' target='_blank'><img src='../Images/icon_song.gif' border='0' alt='免费给朋友点歌'></a></a></td>"
'=====================查看歌词====================================
gequ_2=gequ_2&"   <td width='7%' align=center><a href='../inc/GetOne.asp?MusicName="&rs("MusicName")&"' target='_blank'><img border='0' src='../Images/Word.gif' border='0' alt='查看歌词'></a></td>"
'=====================下载====================================
gequ_2=gequ_2&"   <td width='7%' align=center><a href='../Yxdown.asp?id="&rs("id")&"' target='_blank'><img src='../Images/Down.gif' border='0' alt='点击这里，享受高速下载'></a></td>"
'=====================音乐盒====================================
gequ_2=gequ_2&"   <td width='7%' align=center><a href='../Box.asp?action=add&id="&rs("id")&"' target='_blank'><img src='../Images/Fav.gif' border='0' alt='会员才能使用音乐盒'></a></td>"
'=====================手机铃声====================================
gequ_2=gequ_2&"   <td width='7%' align=center><a href='Http://www.caishow.com/ring_body.asp?f="&sms&"&search="&rs("MusicName")&"' target='_blank'><img src='../Images/Sms.gif' border='0' alt='发送铃声到您的手机'></a></td>"



gequ_2=gequ_2&" </tr>"
gequ_2=gequ_2&" <TR>"
gequ_2=gequ_2&"   <TD height=1 colSpan=8 bgcolor='#87CCE6'></TD>"
gequ_2=gequ_2&" </TR>"



rs.movenext 
loop
gequ_2=gequ_2&"</table></td></tr></td></tr><tr>"&_
        "<td width=100% height=16 colspan=2>"&_
        "<table border=0 cellpadding=0 cellspacing=0 width=100% height=35><tr>"
gequ_2=gequ_2&"<td width=100% >"&_
            "<p  align=center>"&_
            "<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"">                          &nbsp; "&_
"<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"">                          &nbsp; "&_
" <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"">"&_
            "</td></tr></table></td></tr></table></td></tr></table>"        
end if
rs.close

set rs=nothing
conn.close
set conn=nothing

pencat=replace(pencat,"Gequ_2",gequ_2)
'################ 读结束 ###############
Specialid=request.QueryString("ID")
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">生成 <%=Nclass%> 专辑 <%=name%> Html文件完成</font><br>
<font color="#FF0000">·</font><a target="_blank" href="<%=FILENAME%>">点此浏览<%=FILENAME%></a>

</body></html>