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


geshou_1="&nbsp;<a href='../'><font color=#000000>首页</font></a> <font color=#000000>>></font> <font color=#000000>"&rs("sclass")&"列表</font>"
end if
rs.close

pencat=replace(pencat,"Geshou_1",geshou_1)
pencat=replace(pencat,"Geshou_3",geshou_3)

   if Sclassid<>"" then
	set rs=conn.execute("SELECT * FROM Nclass where Sclassid="&Sclassid&" order by Abcd")
		if not rs.eof then
		i=0
		do while not rs.eof
		i=i+1
		if thischar<>rs("Abcd") then
		thischar=rs("Abcd")
		i = 1
		geshou_2=geshou_2&"<tr><td height=25 colspan=5 align=center background=../Images/Pic29_3.gif bgcolor=#3AA3D2 ><a name="&thischar&" href=#><font color=#FFFFFF><strong>["&thischar&"]</strong></font></a></td> </tr><tr> " 
end if
geshou_2=geshou_2&"<td width=20% height=22 >·<a href=../Special/ylmv_"&rs("NClassid")&".html>"&(rs("NClass"))&"</a></td>"
if (i mod 5)=0 and i>=5 then
geshou_2=geshou_2&"</tr>"
end if
	     rs.movenext
             loop
	     else
	     end if
             end if 
	 set rs = nothing 
	 set conn = nothing

pencat=replace(pencat,"Geshou_2",geshou_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">生成 - <%=sclass%> - 列表完成</font><br>
<font color="#FF0000">·</font><a target="_blank" href="<%=filename%>">点击浏览<%=filename%></a>
</body>
</html>