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=" > <a href='/'>"&webname&"</a> > "&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>