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

www.gusucode.com > 流光音乐建站系统 1.1码程序 > admin/Make_musiclist.asp
    <!--#include file="Const.Asp"-->
<link href="Images/Admin_Style.Css" rel="stylesheet" type="text/css">
<%CheckAdmin3%>
<%pagename="make_musiclist"%>
<%
Specialid=request.QueryString("263")
FILENAME="../Musiclist/"&Front&""&Specialid&".html"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<%
'===========================版权信息===============================
' 流光音乐系统 1.0
' Homepage  : http://www.ad968.cn
' E-Mail : 77280511@qq.com
' QQ : 77280511 
'请保留版权信息,以便我们更好的为您服务
'==================================================================
Set Rs = Conn.Execute("Select Top 1 gequ From Mb")
pencat=rs("gequ")
rs.close
'################ 读标题开始 #流光网音乐网###############
	set rs=conn.execute("SELECT * FROM Special where SpecialID="&SpecialID)
   	if rs.eof and rs.bof then 
		errmsg=errmsg+"参数错误，请输入正确的参数"
		call error()
        	Response.End 
        else  
		Nclass=rs("nclass")
		name=rs("name")
		gequ_3="<html><head>"&vbcrlf
		gequ_3=gequ_3&"<meta name='keywords' content='"&rs("sclass")&"/"&rs("Nclass")&"/"&name&"/&webname&免费在线试听'>"&vbcrlf
		gequ_3=gequ_3&"<meta name='description' content='<&webname&为您提供"&rs("sclass")&"/"&rs("Nclass")&"的歌曲列表/"&name&"/免费MP3下载/歌词/试听'>"&vbcrlf
		gequ_3=gequ_3&"<title>"&rs("sclass")&" - "&rs("Nclass")&" - "&name&" -- "&webname&"</title>"& vbcrlf
'################ 读横栏 开始 #流光网音乐网###############
 
		gequ_1="<a href='/'>"&webname&"</a>&nbsp;&gt;&nbsp;<a href='../Special/"&Front&""&rs("Nclassid")&".html'>"&rs("Nclass")&"</a>&nbsp;&gt;&nbsp;></font></strong>专辑:"&rs("Name")&""        
	end if
	rs.close
	pencat=replace(pencat,"{Gequ_1}",gequ_1)
	pencat=replace(pencat,"Gequ_3",gequ_3)
'################ 读主题 开始 #流光网音乐网###############
Sql="select * from Special where Specialid="&cstr(Specialid)
Set Rs = Conn.Execute(Sql)
if rs.EOF then
	errmsg= "<li>服务器出错！请联系管理员</li>"
	call error()
	Response.End 
else
	hits=rs("hits")
	Classid=rs("Classid")
	SClassid=rs("SClassid")
	NClassid=rs("NClassid")
	Specialid=rs("Specialid")
	Nclass=rs("Nclass")
	name=rs("name")
	Gongsi=rs("Gongsi")
	Yuyan=rs("Yuyan")
	pic=rs("pic")
	intro=rs("intro")
	Times=rs("Times")
pencat= Replace(pencat, "{Name}", Name)
pencat= Replace(pencat, "{Nclass}", NClass)
pencat= Replace(pencat, "{Gongsi}", Gongsi)
pencat= Replace(pencat, "{Yuyan}", Yuyan)
pencat= Replace(pencat, "{Times}", Times)
pencat= Replace(pencat, "{Intro}", Intro)
pencat= Replace(pencat, "{Nclassid}", NClassid)
pencat= Replace(pencat, "{Specialid}", Specialid)
pencat= Replace(pencat, "{Sms}", Sms)
end if
rs.close
sql="select * from MusicList where Specialid="&cstr(Specialid)
Set Rs = Conn.Execute(Sql)
if rs.EOF then
gequ_2=gequ_2&"<div align=center>未收录歌曲</div>"
else
gequ_2=gequ_2&"<table cellspacing=""0"" cellpadding=""0""><thead><tr><th width=""5%"">选择</th><th width""60%"">歌曲</th><th width=""7%"">试听</th><th width=""7%"">收藏</th><th width=""7%"">歌词</th><th width=""7%"">下载</th><th width=""7%"">铃声</th></tr></thead><tbody id=albumSongs>"

i=0
do while not rs.eof
i=i+1
gequ_2=gequ_2&" <tr> "
gequ_2=gequ_2&" <td align=center><input type=checkbox value="&rs("id")&" name=checked></td>"
gequ_2=gequ_2&" <td class=ge><a href=../Musicplay/"&rs("NClassID")&"/"&Front&""&md5(""&Front&""&rs("id")&"play")&"_"&rs("id")&".html>"&rs("MusicName")&"</a></td>"
gequ_2=gequ_2&" <td align=center><a href=../Musicplay/"&rs("NClassID")&"/"&Front&""&md5(""&Front&""&rs("id")&"play")&"_"&rs("id")&".html>试听</a></td>"
gequ_2=gequ_2&" <td align=center><a href=javascript:void(null) onClick=window.open('../User/BoxMusicPlay.Asp?action=add&amp;id="&rs("id")&"','','width=316,height=450,top=190,left=320,resizable=no') target=_self>收藏</a></td>"
gequ_2=gequ_2&" <td align=center><a href=javascript:void(null) onClick=window.open('../player/song_word.asp?id="&rs("id")&"','','width=300,height=160,top=130,left=300,resizable=no') target=_self>歌词</a></td>"
gequ_2=gequ_2&" <td align=center><a href=javascript:void(null) onClick=window.open('../ads/ivr.asp?mn="&rs("MusicName")&"','','width=300,height=300,top=130,left=300,resizable=no') target=_self>下载</a></td>"
gequ_2=gequ_2&"  <td align=center><a href=javascript:void(null) onClick=window.open('../ads/ivr.asp?mn="&rs("MusicName")&"','','width=300,height=300,top=130,left=300,resizable=no') target=_self>铃声</a></td></tr>"
rs.movenext 
loop
end if
rs.close

set rs=nothing

pencat=replace(pencat,"{Gequ_2}",gequ_2)
pencat=replace(pencat, "{Pic}", Pic)
'################ 以下是右侧专辑 #流光网音乐网###############
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")
		front=rs("front")
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)
pencat=replace(pencat,"{front}",front)
'################ 读统计 #流光音乐网###############  
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 
 
i=0
MaxList=12
do while not rs.eof
	i=i+1
gequ_4=gequ_4&"<li><img src=../i/200707/d.gif /><a href=../MusicList/"&Front&""&rs("SpecialID")&".Html>"&rs("Name")&"</a></li>"&vbcrlf
if i>=MaxList then exit do
rs.movenext
loop
end if

pencat=replace(pencat,"{Gequ_4}",gequ_4)
'################ 以下是右侧歌曲 流光网音乐网###############
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=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=18
do while not rs.eof
	i=i+1
gequ_5=gequ_5&"<li><input type=checkbox value="&rs("id")&" name=checked><a href=../Musicplay/"&rs("NClassID")&"/"&Front&""&md5(""&Front&""&rs("id")&"play")&"_"&rs("id")&".html target=_blank&play>"&rs("musicname")&"</a></li>"&vbcrlf
if i>=MaxList then exit do
rs.movenext
loop
end if

conn.close
set conn=Nothing
pencat=replace(pencat,"{Gequ_5}",gequ_5)
'################ 读结束 #流光网音乐网###############
Specialid=request.QueryString("ID")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(FILENAME))
fout.Write pencat
fout.close
'************** 生成结束 *#流光网音乐网**************
%>
<div id="mkput">
<font color="#FF0000">·</font><font color="#FF0000">生成 <%=Nclass%> 专辑 <%=name%> Html文件完成</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>