Make_special.asp 流光音乐建站系统 1.1码程序 - ASP源码程序

www.gusucode.com > 流光音乐建站系统 1.1码程序 > admin/Make_special.asp
    <!--#include file="Const.Asp"-->
<link href="Images/Admin_Style.Css" rel="stylesheet" type="text/css">
<%CheckAdmin3%>
<%pagename="make_special"%>
<%
'===========================版权信息===============================
' 流光音乐系统 1.0
' Homepage  : http://www.ad968.cn
' E-Mail : 77280511@qq.com
' QQ : 77280511 
'请保留版权信息,以便我们更好的为您服务
'==================================================================
Nclassid=request.QueryString("263")
FILENAME="../Special/"&Front&""&Nclassid&".html"
%>
<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>
<%

SQL = "select top 1 zhuanji from mb"
Set Rs = Conn.Execute(SQL)
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>"&vbcrlf
zhuanji_3=zhuanji_3&"<meta http-equiv='Content-Type' content='text/html' charset=gb2312'>"&vbcrlf
zhuanji_3=zhuanji_3&"<meta name='keywords' content='"&geshou&"|"&trs("sclass")&"'>"&vbcrlf
zhuanji_3=zhuanji_3&"<meta name='description' content='"&webname&"'>"&vbcrlf
zhuanji_3=zhuanji_3&"<title>"&geshou&" 所有专辑 所有歌曲- "&trs("sclass")&" - "&webname&" - "&weburl&"</title>"&vbcrlf
'################ 读标题 开始 #流光音乐网###############

Singer = rs("Nclass")
zhuanji_1="&nbsp;&gt;&nbsp;<a href='/'>"&webname&"</A>&nbsp;&gt;&nbsp;<a href='/music/"&trs("sclassid")&".Html' target=_self>" &trs("sclass")& "</A>&nbsp;&gt;&nbsp;"&rs("Nclass")&"专辑列表"           
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&"<DIV class=""zj"">"
zhuanji_2=zhuanji_2&"<DIV class=""zh"">"
zhuanji_2=zhuanji_2&"<a href='../MusicList/"&Front&""&rs("Specialid")&".html'><img src="&rs("pic")&" width=70 height=70 border=0></A>"
if (i mod (MaxSpecialList/200)=0) and i>=(MaxSpecialList/200) then
zhuanji_2=zhuanji_2&"<UL class=""z1""><LI class=""zt"">"
zhuanji_2=zhuanji_2&"&nbsp;<a href='../MusicList/"&Front&""&rs("Specialid")&".html'>"
zhuanji_2=zhuanji_2&""&rs("name")&""
zhuanji_2=zhuanji_2&"</A>"
zhuanji_2=zhuanji_2&"</LI>"
zhuanji_2=zhuanji_2&"<LI>发行公司："&rs("Gongsi")&"</LI>"
zhuanji_2=zhuanji_2&"<LI>添加时间："&rs("Times")&"</LI>"
zhuanji_2=zhuanji_2&"<LI class=""zt"">"
zhuanji_2=zhuanji_2&"&nbsp;<a href='../MusicList/"&Front&""&rs("Specialid")&".html'>进入专辑|</a>&nbsp;&nbsp;<a href=# onClick=window.open('../User/Box.Asp?action=add&id="&rs("Specialid")&"','','width=316,height=450,top=190,left=320,resizable=no') target=_self>收藏专辑</a>"
zhuanji_2=zhuanji_2&"</A>"
zhuanji_2=zhuanji_2&"</LI>"
zhuanji_2=zhuanji_2&"</UL></DIV></DIV>"
pencat=replace(pencat,"{Nclass}",rs("Nclass"))
end if
if i>=MaxSpecialList then exit do
rs.movenext
loop
end if
pencat=replace(pencat,"{Zhuanji_2}",zhuanji_2)    
'################ 读取结束 #流光音乐网############### 
set rs=server.createobject("adodb.recordset")
	if Nclassid<>"" then
		sql="SELECT * FROM MusicList where Nclassid="+cstr(Nclassid)+" order by id desc"
	else
	sql="SELECT * FROM MusicList 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 
 
i=0
MaxList=12
do while not rs.eof
	i=i+1
zhuanji_4=zhuanji_4&"<li><input type=checkbox value="&rs("id")&" name=checked><a href=../MusicPlay/"&NClassID&"/"&Front&""&md5(""&Front&""&rs("id")&"play")&"_"&rs("id")&".html target=_blank&play>"&rs("musicname")&"</a></li>"
if i>=MaxList then exit do
rs.movenext
loop
end if
pencat=replace(pencat,"{Zhuanji_4}",zhuanji_4) 
'################ 读主体 开始 #流光音乐网###############
set rs=server.createobject("adodb.recordset")
	sql="SELECT * FROM MusicList order by id desc"

rs.open sql,conn,1,1
if rs.eof and rs.bof then 
	errmsg=errmsg+"参数错误，请输入正确的参数"
	call error()
        Response.End 
        else 
 
i=0
MaxList=12
do while not rs.eof
	i=i+1
zhuanji_5=zhuanji_5&"<li><input type=checkbox value="&rs("id")&" name=checked><a href=../MusicPlay/"&NClassID&"/"&Front&""&md5(""&Front&""&rs("id")&"play")&"_"&rs("id")&".html target=_blank&play>"&rs("musicname")&"</a></li>"
if i>=MaxList then exit do
rs.movenext
loop
end if
pencat=replace(pencat,"{Zhuanji_5}",zhuanji_5) 
'################ 读主体 开始 #流光音乐网###############
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
Set Rs = Conn.Execute(SQL)
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="../Photo/NoPic.gif"
                           end if

end if
pencat=replace(pencat,"{Nclassid}",rs("Nclassid"))
pencat=replace(pencat,"{Pic}",Pic)
pencat=replace(pencat,"{Sms}",Sms)
pencat=replace(pencat,"{Singer}",Singer)
rs.close 
set rs=nothing   
'################ 读统计 #流光音乐网###############  
i=0
MaxList=15
set rs=conn.execute("SELECT * FROM Sclass order by Sclassid ASC")
do while not rs.eof
i=i+1
fenlei=fenlei&"<LI><A href=../Music/"&rs("Sclassid")&".Html target=_self>"&rs("Sclass")&"</A></LI>"
if i>=MaxList then exit do
rs.movenext
loop
rs.close
pencat=replace(pencat,"{fenlei}",fenlei)
'################ 以下是右侧专辑 #流光网音乐网###############
set rs=conn.execute("SELECT * FROM Const order by id desc")
if rs.EOF then
	errmsg= "<li>服务器出错！请联系管理员</li>"
	call error()
	Response.End 
else
        tongji=rs("Count")
		weburl=rs("weburl")
        webname=rs("webname")
        keywords=rs("keywords")
end if 
        rs.close
	set rs = nothing 

pencat=replace(pencat,"{tongji}",tongji)
pencat=replace(pencat,"{weburl}",weburl)
pencat=replace(pencat,"{webname}",webname)
pencat=replace(pencat,"{keywords}",keywords)
'################ 读统计 #流光音乐网###############  
SET rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM MusicList where Nclassid="+cstr(Nclassid)+""
	rs.Open sql,conn,1,1
	TotalSong =INT(RS.recordcount)
	rs.close
sql="SELECT * FROM Special where Nclassid="+cstr(Nclassid)+""
	rs.Open sql,conn,1,1
	TotalSpecial =INT(RS.recordcount)
	rs.close
pencat=replace(pencat,"{Totalspecial}",Totalspecial)
pencat=replace(pencat,"{Totalsong}",Totalsong)
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
'************** 生成Shtml页 结束 *#流光音乐网**************
%>
<div id="mkput">
<font color="#FF0000">·</font><font color="#FF0000">生成 - <%=geshou%> - 专辑列表完成</font><br>
<font color="#FF0000">·</font><a target="_blank" href="<%=FILENAME%>">点击浏览<%=FILENAME%></a>
</div>
<script language="javascript">
if(parent.showImport)
{
parent.showImport.innerHTML=mkput.outerHTML;
}
</script>
</body>
</html>