www.gusucode.com > 流光音乐建站系统 1.1码程序 > admin/Make_musiclistall.asp
<!--#include file="Const.Asp"--> <%CheckAdmin3%> <%pagename="make_musiclistall"%> <link href="Images/Admin_Style.Css" rel="stylesheet" type="text/css"> <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 '请保留版权信息,以便我们更好的为您服务 '================================================================== if request("type")<>"" then if request("page")<>"" then page=cint(request("page")) D=request("D") else page=1 D=timer() end if mpage=1 mpage1=1 MaxPerPage=15 id=request("id") zzyy=id&"," set rs=server.createobject("adodb.recordset") if request("type")="all" then rs.open ("SELECT specialid FROM special where classid like "&request("zzyy")&" order by specialid desc"),conn,1,1 if not rs.eof then rs.pagesize=1 '得到每页数 mpage1=rs.pagecount '得到总页数 rs.move (page-1)*1 do while not rs.eof i=i+1 id=rs("specialid") if i>=1 then exit do rs.movenext loop rs.close end if end if conn.close set conn=nothing response.write"<b><font color=""#FF0000"">"&page&"</font>/<font color=""#FF0000"">"&mpage1&"</font> 正在歌曲页,请等待......</b><span id=showImport></span>" for ii=1 to mpage m=m+1 Response.Write "<iframe src='make_musiclist.asp?263="&id&"' width=0 height=0></iframe>" 'response.write"<script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('make_musiclist.asp?263="&id&"',onDownloadDone)</script>" next if page<mpage1 then response.write"<meta http-equiv=""refresh"" content=""0;url='make_musiclistall.asp?type="&request("type")&"&zzyy="&request("zzyy")&"&page="&page+1&"&m="&request("m")+m&"&D="&D&"'"">" else response.write"<meta http-equiv=""refresh"" content=""0;url='make_musiclistall.asp?ok="&page&"&m="&request("m")+m&"&D="&D&"'"">" end if else response.write"<b>操作完成:共生成分类<font color=""#FF0000"">"&request("ok")&"</font>个,页面<font color=""#FF0000"">"&request("m")&"</font>个,总耗时<font color=""#FF0000"">"&(FormatNumber((timer()-request("D")),2))/5&"</font>秒,完成时间在"&Now()&"</b>" end if %></body></html>