make_special.asp 要听音乐网完美修正版 1.0源码程序 - ASP源码程序

www.gusucode.com > 要听音乐网完美修正版 1.0源码程序 > admin/make_special.asp
    <!--#include file="../inc/const.asp"-->
<!--#include file="inc/char.asp"-->
<%
If Not CheckAdmin(ScriptName) Then
    strMsg="<Li>您没有管理本页面的权限。"
    Call Msg()
else
Nclassid=request.QueryString("im286")
FILENAME="../Albumlist/"&Nclassid&".htm"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成歌手专辑列表HTML文件</title>
<style>
body{font-size:9pt;line-height:140%} 
</style>
</head>
<body>
<%
Set rs=server.createobject("adodb.recordset")
sql = "select zhuanji from mb"
rs.open sql,conn,0,1 
pencat=rs("zhuanji")
rs.close
'################ 读标题 开始 ################
sql = "SELECT * FROM special where NClassID="&Nclassid
rs.open sql,conn,0,1 
if rs.eof and rs.bof then
	Response.write"参数错误，请输入正确的参数"
  Response.End 
else
    geshou=rs("NClass")
    sclassid=rs("SClassID")
    sclass=rs("SClass")
		zhuanji_3=zhuanji_3&""&geshou&""
'################ 读横栏 开始 ################
		zhuanji_1="<a href="""&site_info(1)&""">"&site_info(0)&"</a> → <a href='../"&sclassid&"_0912.htm'>" &sclass& "</a> → "&geshou&" → 专辑列表"      
end if
rs.close
pencat=replace(pencat,"Zhuanji_1",zhuanji_1)
pencat=replace(pencat,"Zhuanji_3",zhuanji_3)
'################ 读主题 开始 ################
sql="SELECT * FROM special where NClassID="&Nclassid&" order by SpecialID desc"
rs.open sql,conn,0,1 
if rs.eof and rs.bof then 
	Response.write"参数错误，请输入正确的参数"
  Response.End 
else 
	i=0
	do while not rs.eof
	i=i+1
		zhuanji_2=zhuanji_2&"<TABLE cellSpacing=1 cellPadding=1 width=95% align=center bgColor=#fff1d9 border=0><TBODY><TR><TD bgColor=#ffdc9b><TABLE cellSpacing=1 cellPadding=8 width='100%' bgColor=#ffc253 border=0>"
		zhuanji_2=zhuanji_2&"<TBODY><TR><TD bgColor=#ffffff><table width='100%' border='0' cellspacing='2' cellpadding='0'><tr>" 
		zhuanji_2=zhuanji_2&"<td width='70' rowspan='2'><div align=center><a title="&rs("Nclass")&"的专辑《"&rs("name")&"》 href='../musiclist/"&rs("Specialid")&".htm'><img src=../"&rs("pic")&" width=50 height=50 border=0 class='pic_y'></a></div></td>"
		zhuanji_2=zhuanji_2&"<td width=57 height=25>专辑名称:</td><td width='249'><a href='../musiclist/"&rs("Specialid")&".htm'><font color='#FF6600'>"&rs("name")&"</font></a></td><td width='58'>专辑语言:</td><td width='54'>"&rs("Yuyan")&"</td></tr></td><tr>"
		zhuanji_2=zhuanji_2&"<td>发行日期:</td><td>"&rs("Times")&"</td><td colspan='2'><a href='../musiclist/"&rs("Specialid")&".htm'>在线试听下载&gt;&gt;</a></td>"
		zhuanji_2=zhuanji_2&"</tr></table></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>"
	rs.movenext
	loop
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
pencat=replace(pencat,"Zhuanji_2",zhuanji_2)     
'################ 读结束 ################
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%>专辑列表HTML文件完成</font><br>
<font color="#FF0000">·</font><a target="_blank" href="<%=FILENAME%>">点此浏览<%=FILENAME%></a>
</body>
</html>
<%end if%>