www.gusucode.com > 流光音乐建站系统 1.1码程序 > admin/Make_type.asp

    <!--#include file="Const.Asp"-->
<%CheckAdmin3%>
<%pagename="make_type"%>
<link href="Images/Admin_Style.Css" rel="stylesheet" type="text/css">
<%
'===========================版权信息===============================
' 流光音乐系统 1.0
' Homepage  : http://www.ad968.cn
' E-Mail : 77280511@qq.com
' QQ : 77280511 
'请保留版权信息,以便我们更好的为您服务
'==================================================================
Sclassid=request.QueryString("263")
filename="../Music/"&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
'################ 以下是HEAD内容 #流光音乐网###############
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>"&vbcrlf
geshou_3=geshou_3&"<meta name='keywords' content='"&sclass&"'>"&vbcrlf
geshou_3=geshou_3&"<meta name='description' content='流光音乐网'>"&vbcrlf
geshou_3=geshou_3&"<title>"&sclass&" - "&webname&" - "&weburl&"</title>"&vbcrlf
'################ 以下是导航 #流光音乐网###############

geshou_1="&nbsp;&gt;&nbsp;<a href='/'>"&webname&"</a>&nbsp;&gt;&nbsp;"&rs("sclass")&"列表"
end if
rs.close

pencat=replace(pencat,"{sclass}",sclass)
pencat=replace(pencat,"{Geshou_1}",geshou_1)
pencat=replace(pencat,"{Geshou_3}",geshou_3)
'################ 以下是HEAD内容 #流光音乐网###############
i=0
MaxList=9
set rs=conn.execute("SELECT * FROM special where sclassid="&sclassid )
do while not rs.eof
i=i+1
geshou_Good=geshou_Good&"<div><a href=""../Special/"&Front&""&rs("NClassid")&".Html"" target=""_blank""><img src="""&(rs("Pic"))&""" alt="""" /></a>"&vbcrlf
geshou_Good=geshou_Good&"</div>"&vbcrlf
if i>=MaxList then exit do
rs.movenext
loop
rs.close
pencat=replace(pencat,"{geshou_Good}",geshou_Good)
'################ 以下是主列表  #流光音乐网###############
    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&"</div><div class=""b3""><h3><span><a href=""#"" target=""_self""><img src=""../i/s.gif"" alt=""返回顶部""/>返回顶部</a></span><a name="&thischar&">"&thischar&"</a></h3><ul>" 
end If
If rs("isgood")=true then
geshou_2=geshou_2&"<li><a href=""../Special/"&Front&""&rs("NClassid")&".Html"" ><font color=red>"&Left((rs("NClass")),3)&"</font></a></li>"
Else
geshou_2=geshou_2&"<li><a href=""../Special/"&Front&""&rs("NClassid")&".Html"" >"&Left((rs("NClass")),3)&"</a></li>"
End if
if (i mod 3)=0 and i>=1000 then
geshou_2=geshou_2&"</DIV></DIV></DIV>"
end If
	     rs.movenext
             Loop
 geshou_2=geshou_2&"</ul>"
	     else
	     end if
             end if 
	 set rs = nothing 

pencat=replace(pencat,"{Geshou_2}",geshou_2)
'################ 以下是公共的统计,站点地址,名称,关键词等 ###############
	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)
'################ 以下是歌手分类 #流光音乐网###############
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 MusicList where Sclassid="&Sclassid&" order by hits desc")

if rs.eof and rs.bof then 
	errmsg=errmsg+"参数错误,请输入正确的参数"
	call error()
        Response.End 
        else 
 
i=0
MaxList=24
do while not rs.eof
	i=i+1
gequ_4=gequ_4&"<li><a href=../Musicplay/"&rs("NClassID")&"/"&Front&""&md5(""&Front&""&rs("id")&"play")&"_"&rs("id")&".html>"&rs("musicname")&"</a></li>"
if i>=MaxList then exit do
rs.movenext
loop
end if
rs.close
pencat=replace(pencat,"gequ_4",gequ_4)
'################ 以下是右侧歌曲 流光网音乐网###############
set rs=server.createobject("adodb.recordset")
	if Nclassid<>"" then
		sql="SELECT * FROM MusicList where Sclassid="&Sclassid&" order by id desc"
	else
	sql="SELECT * FROM MusicList order by id 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=24
do while not rs.eof
	i=i+1
gequ_3=gequ_3&"<li><a href=../Musicplay/"&rs("NClassID")&"/"&Front&""&md5(""&Front&""&rs("id")&"play")&"_"&rs("id")&".html>"&rs("musicname")&"</a></li>"
if i>=MaxList then exit do
rs.movenext
loop
end if
rs.close
conn.close
set conn=Nothing
pencat=replace(pencat,"gequ_3",gequ_3)

'************** 申明对象 *#流光音乐网**************
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">生成 - <%=sclass%> - 列表完成</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>