<!--#include file="Const.asp"-->
<!--#include file="error.ini"-->
<link href="Images/Admin_Style.Css" rel="stylesheet" type="text/css">
<%pagename="make_special"%>
<%
Nclassid=request.QueryString("263")
FILENAME="../Special/ylmv_"&Nclassid&".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 zhuanji from mb"),conn,1,1
pencat=rs("zhuanji")
rs.close
'################ 读标题 开始 ################
 set rs=conn.execute("SELECT * FROM Special where nclassid="&nclassid)
    if rs.eof and rs.bof then 
	errmsg=errmsg+"参数错误，请输入正确的参数"
	call error()
        Response.End 
        else  
        sclassid=rs("sclassid")
        geshou=rs("nclass")
     set trs=conn.execute("SELECT * FROM sclass where sclassid="&sclassid)
     if trs.eof and trs.bof then 
        errmsg=errmsg+"参数错误，请输入正确的参数"
	call error()
        Response.End 
        else    
zhuanji_3="<html><head>"
zhuanji_3=zhuanji_3&"<meta http-equiv='Content-Type' content='text/html' charset=gb2312'>"
zhuanji_3=zhuanji_3&"<meta name='keywords' content='"&homes&",在线听歌,音乐网，音乐无线，音乐试听，在线音乐，音乐频道，mp3免费下载，免费音乐下载'>"
zhuanji_3=zhuanji_3&"<meta name='description' content='"&homes&",在线听歌,音乐网，音乐无线，音乐试听，在线音乐，音乐频道，mp3免费下载，免费音乐下载'>"
zhuanji_3=zhuanji_3&"<title>"&geshou&"-"&homes&"-"&url&"-最新流行歌曲在线试听 免费听歌 免费在线听歌 mp3免费下载 零距离音乐无线 让您的心重新获得释放</title>"
'################ 读标题 开始 ###############


zhuanji_1="&nbsp;<a href='../index.html'><font color=#000000>首页</font></a> <font color=#000000>>></font> <a href='../Art/ylmv_"&trs("sclassid")&".html'><font color=#000000>" &trs("sclass")& "</font></a> <font color=#000000>>> </font> <font color=#000000>"&rs("Nclass")&"所有专辑</font>"          
rs.close
trs.close
end if
end if
pencat=replace(pencat,"Zhuanji_1",zhuanji_1)
pencat=replace(pencat,"Zhuanji_3",zhuanji_3)
'################ 读取主列表 开始 ###############
set rs=server.createobject("adodb.recordset")
	if Nclassid<>"" then
		sql="SELECT * FROM Special where Nclassid="+cstr(Nclassid)+" order by Specialid desc"
	else
	sql="SELECT * FROM Special order by Specialid desc"
	end if

rs.open sql,conn,1,1
if rs.eof and rs.bof then 
	errmsg=errmsg+"参数错误，请输入正确的参数"
	call error()
        Response.End 
        else 
 
MaxSpecialList=200
totalPut=rs.recordcount
i=0
do while not rs.eof
	i=i+1
	zhuanji_2=zhuanji_2&"<table width='100%' border='0' cellpadding='3' cellspacing='3'>"
zhuanji_2=zhuanji_2&"<tr>"
zhuanji_2=zhuanji_2&"<td bgcolor='#E8FAFD'><table width='100%' border='0' cellpadding='1' cellspacing='1' bgcolor='#99D3EA'>"
zhuanji_2=zhuanji_2&"<tr>"
zhuanji_2=zhuanji_2&"<td><table width='100%' height='150' border='0' cellpadding='0' cellspacing='0'>"
zhuanji_2=zhuanji_2&"<tr>"
zhuanji_2=zhuanji_2&"<td width='190' align='center'><table border='0' cellpadding='2' cellspacing='2' bgcolor='#FFFFFF' align='center'>"
zhuanji_2=zhuanji_2&"<tr>"
zhuanji_2=zhuanji_2&"<td><a href='../MusicList/ylmv_"&rs("Specialid")&".html'><img src="&rs("pic")&" width=140 height=140 alt='进入试听："&rs("Nclass")&"《"&rs("name")&"》' border=0></a></td>"
zhuanji_2=zhuanji_2&"</tr>"
zhuanji_2=zhuanji_2&"</table>"
zhuanji_2=zhuanji_2&"</td>"
zhuanji_2=zhuanji_2&"<td>"
zhuanji_2=zhuanji_2&"<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
zhuanji_2=zhuanji_2&"<tr>"
zhuanji_2=zhuanji_2&"<td>"
if (i mod (MaxSpecialList/200)=0) and i>=(MaxSpecialList/200) then
zhuanji_2=zhuanji_2&"<table width='250' border='0' cellpadding='0' cellspacing='0'>"
zhuanji_2=zhuanji_2&"<tr>"
zhuanji_2=zhuanji_2&"<td height='27'>专辑名称：<a href='../MusicList/ylmv_"&rs("Specialid")&".html'><font color='#FF0000'><strong>"&rs("name")&"</strong></font></a></td>"
zhuanji_2=zhuanji_2&"</tr>"
zhuanji_2=zhuanji_2&"<tr>"
zhuanji_2=zhuanji_2&"<td height='27'>演唱歌手："&rs("Nclass")&"</td>"
zhuanji_2=zhuanji_2&"</tr>"
zhuanji_2=zhuanji_2&"<tr>"
zhuanji_2=zhuanji_2&"<td height='27'>发行公司："&rs("Gongsi")&"</td>"
zhuanji_2=zhuanji_2&"</tr>"
zhuanji_2=zhuanji_2&"<tr>"
zhuanji_2=zhuanji_2&"<td height='27'>语言种类："&rs("Yuyan")&"</td>"
zhuanji_2=zhuanji_2&"</tr>"
zhuanji_2=zhuanji_2&"<tr>"
zhuanji_2=zhuanji_2&"<td height='27'>发行时间："&rs("Times")&"</td>"
zhuanji_2=zhuanji_2&"</tr>"
zhuanji_2=zhuanji_2&"<tr>"
zhuanji_2=zhuanji_2&"<td height='27'><a href='../albuBox.asp?action=add&id="&rs("Specialid")&"'>会员才能使用专集收藏夹</a></td>"
zhuanji_2=zhuanji_2&"</tr>"
zhuanji_2=zhuanji_2&"</table>"
zhuanji_2=zhuanji_2&"</td>"
zhuanji_2=zhuanji_2&"<td width='140'><a href='../MusicList/ylmv_"&rs("Specialid")&".html' title='"&rs("Nclass")&"：《"&rs("name")&"》'>&gt;&gt; 进入试听</a><br><br><a href='http://www.caishow.com/ring_body.asp?f=61780&search="&rs("name")&"' target='_blank'><font color='#FF0000'>下载专辑铃声</font></a></td>"
zhuanji_2=zhuanji_2&"</tr>"
zhuanji_2=zhuanji_2&"</table></td>"
zhuanji_2=zhuanji_2&"</tr>"
zhuanji_2=zhuanji_2&"</table>"
zhuanji_2=zhuanji_2&"</td>"
zhuanji_2=zhuanji_2&"</tr>"
zhuanji_2=zhuanji_2&"</table></td>"
zhuanji_2=zhuanji_2&"</tr>"
zhuanji_2=zhuanji_2&"</table>"
pencat=replace(pencat,"{Nclass}",rs("Nclass"))
end if
if i>=MaxSpecialList then exit do
rs.movenext
loop
zhuanji_2=zhuanji_2&"<tr></table></div> <div align=center><center><table border=0 width='98%' cellpadding='0' cellspacing='0'><tr><td align=center height=22 bgcolor=#3EADD7 ><strong><font color=#FFFFFF>"&webname&"共收录该歌手<b>"&totalPut&"</b>张专辑，点击以上相关专辑进入试听</font></strong></td></tr>"
end if
pencat=replace(pencat,"Zhuanji_2",zhuanji_2)     
'################ 读取结束 ###############
'################ 读主题 开始 ###############
 set rs=server.createobject("adodb.recordset")
if Nclassid<>"" then
		sql="SELECT * FROM nclass where Nclassid="+cstr(Nclassid)+" order by nclassid desc"
	else
		sql="SELECT * FROM nclass order by nclassid desc"
	end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then 
	response.write "<p align='center'>参数错误，请输入正确的参数 <br><br><a href=javascript:history.go(-1)><br><br> 请 返 回 重 试</a></p>" 
else

                           pic=rs("pic")
                           if pic<>"" then
                           pic=rs("pic")
                           else
                           pic="../tupian/NoPic.gif"
                           end if

end if
pencat=replace(pencat,"{Nclassid}",rs("Nclassid"))
pencat=replace(pencat,"{Pic}",Pic)
pencat=replace(pencat,"{Sms}",Sms)
rs.close 
set rs=nothing
conn.close
set conn=nothing                    

'################ 读结束 ###############
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(FILENAME))
fout.Write pencat
fout.close
'************** 生成html页 结束 **************
%>
<font color="#FF0000">·</font><font color="#FF0000">生成 - <%=geshou%> - 专辑列表完成</font><br>
<font color="#FF0000">·</font><a target="_blank" href="<%=FILENAME%>">点击浏览<%=FILENAME%></a>
</body>
</html>