<!--#include file="htm_top.asp"-->
<%
id=request.QueryString("0hao_cn")
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="&ID)
   if rs.eof and rs.bof then 
	errmsg=errmsg+"参数错误，请输入正确的参数"
	call error()
        Response.End 
        else  
nclass=rs("nclass")
nclassid=rs("nclassid")
Specialid=rs("Specialid")
name=rs("name")
gequ_3="<html><head>"&vbCrLf
gequ_3=gequ_3&"<meta name='keywords' content='"&name&" 在线视听,"&name&" 免费下载,"&nclass&"最新专辑《"&name&"》在线视听,"&nclass&" 新歌在线视听,福建音乐视听网|www.0hao.cn'>"&vbCrLf
gequ_3=gequ_3&"<meta name='description' content='"&name&" 在线视听,"&name&" 免费下载,"&nclass&"最新专辑《"&name&"》在线视听,"&nclass&" 新歌在线视听,福建音乐视听网|www.0hao.cn'>"&vbCrLf
gequ_3=gequ_3&"<title>"&name&"|"&nclass&"|专辑《"&name&"》在线视听|"&name&"免费下载|"&sitename&"</TITLE>"
end if
pencat=replace(pencat,"Gequ_3",gequ_3)
pencat= Replace(pencat, "{name}", name)
pencat= Replace(pencat, "{nclass}", nclass)
pencat= Replace(pencat, "{nclassid}", nclassid)
pencat= Replace(pencat, "{info}", rs("info"))
pencat= Replace(pencat, "{gongsi}", rs("gongsi"))
pencat= Replace(pencat, "{yuyan}", rs("yuyan"))
pencat= Replace(pencat, "{sclass}", rs("sclass"))
pencat= Replace(pencat, "{sclassid}", rs("sclassid"))
pencat= Replace(pencat, "{specialid}", Specialid)
pencat= Replace(pencat, "{times}", rs("times"))
pencat= Replace(pencat, "{pic}", rs("pic"))
rs.close
'################ 读主题 开始 ################
i=0
sql="select * from musiclist where Specialid="&Specialid&"" 
rs.open sql,conn,1,1
do while not rs.eof
M_body=M_body&"<tr align=center height=25><td><input type='CheckBox' name='ID' value='"&rs("musicid")&"'> <b>"
if i<9 then M_body=M_body&"0"
M_body=M_body&i+1&"</b>.</td><td align=left> <a href=../play/play.asp?id="&rs("musicid")&"&.htm target=_blank>"&rs("name")&"</a></TD>"
M_body=M_body&"<td><a href='../play/play.asp?id="&rs("musicid")&"&.htm' target='_blank'>视听</a></td>"
M_body=M_body&"<td><a href=javascript:down('"&rs("musicid")&"')>下载</a></td>"
M_body=M_body&"<td><a href=javascript:txtwords('"&rs("nclass")&"','"&rs("name")&"')>TXT歌词</a></td>"
M_body=M_body&"<td><a href=javascript:lrcwords('"&rs("musicid")&"')>LRC歌词</a></td>"
M_body=M_body&"<td><a href=javascript:WriteSMusic('"&rs("musicid")&"')>QQ点歌</a></td>"
M_body=M_body&"<td><a href=javascript:Addbox('"&rs("musicid")&"')>收藏</td>"
M_body=M_body&"<td><a href=javascript:mms('"&rs("nclass")&"','"&rs("name")&"')><img src='../images/sms.gif' border='0'></a></td>"
M_body=M_body&"</tr><TR><TD colspan=9 background='../images/bg_dian.gif' height=1></TD></TR>"&vbCrLf
i=i+1
rs.movenext 
loop 
rs.close
pencat= Replace(pencat, "{M_body}", M_body)
set rs=nothing
conn.close
set conn=nothing

'################ 读结束 ################
FILENAME="../special/"&id&".htm"
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">生成 <%=nclass%> 专集 《<%=name%>》 HTML文件完成</font><br>
<font color="#FF0000">·</font>地址：<a href=<%=FILENAME%> target=_blank><%=FILENAME%></a>
</body></html>