www.gusucode.com > 流光音乐建站系统 1.1码程序 > admin/Make_musiclistall_all.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"> <title>生成歌曲页面</title> </head> <body> <% '===========================版权信息=============================== ' 流光音乐系统 1.0 ' Homepage : http://www.ad968.cn ' E-Mail : 77280511@qq.com ' QQ : 77280511 '请保留版权信息,以便我们更好的为您服务 '================================================================== dim Ds,SkyIdStr,SkyIdEnd,SkyIdNow Ds=timer() SkyIdStr=clng(request("SkyIdStr")) SkyIdEnd=clng(request("SkyIdEnd")) SkyIdNow=request("SkyIdNow") if request("type")="all" then if skyidstr<1 or skyidend<1 or SkyIdStr>=SkyIdEnd then 'response.write "开始和结束ID不能为空,且结束ID必须大于开始ID" response.write "<script language=vbscript>"& vbcrlf response.write "aaa=msgbox(""开始和结束ID不能为空,且结束ID必须大于开始ID"",vbOKOnly)"& vbcrlf response.write "</script>" else makeskysoft="yes" end if end if if makeskysoft="yes" then response.write"<b><font color=""#FF0000"">正在生成,请等待......</font></b><BR><span id=showImport></span>" if request("p")<>"" then p=cint(request("p")) D=request("D") else p=1 D=Ds end if MaxPerPage=10 'mpage=3 '得到总页数 allshu=SkyIdEnd-SkyIdStr '得到总数 SkyIDNowPage=p*MaxPerPage+SkyIdStr if SkyIDNowPage=>allshu+SkyIdStr then SkyIDNowPage=allshu+SkyIdStr for id=(p-1)*MaxPerPage+SkyIdStr to SkyIDNowPage i=i+1 call MakeHtml() if i>=MaxPerPage then exit for next Sshu=MaxPerPage*p-MaxPerPage+SkyIdStr Tshu=Sshu+i-1 if allshu+SkyIdStr<Sshu then response.redirect "make_musiclistall_all.asp?type=ok&SkyIdStr="&request("SkyIdStr")&"&SkyIdEnd="&request("SkyIdEnd")&"&shu="&request("shu")&"&D="&d&"&p="&p+1&"" response.end else response.write"<meta http-equiv=""refresh"" content=""0;url='make_musiclistall_all.asp?type="&request("type")&"&SkyIdStr="&request("SkyIdStr")&"&SkyIdEnd="&request("SkyIdEnd")&"&shu="&Tshu&"&D="&D&"&p="&p+1&"'"">" response.write"<B><BR>您选择的是从<font color=ff0000>"&request("SkyIdStr")&"</font>-<font color=ff0000>"&request("SkyIdEnd")&"</font> 共<font color=ff0000>"&allshu&"</font>个页面" response.write"<br>正在生成:第("&Sshu&"-"&Tshu&")个" response.write"<br>已用时("&FormatNumber((timer()-request("D")),2)&")秒</B>" end if Sub MakeHtml() 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>" end Sub else 'shu=50 response.write"<b>批量生成专辑列表页面" if request("type")="ok" then response.write"<br><br>操作成功:共生成<font color=""#FF0000"">"&request("SkyIdEnd")-request("SkyIdStr")&"</font>页专辑列表页面<BR>总费时<font color=""#FF0000"">"&FormatNumber((timer()-request("D")),2)&"</font>秒,完成时间"&Now()&"" end if set rs=server.createobject("adodb.recordset") sql="select * from Special order by Specialid asc" rs.Open sql,conn,1,1 kaishiid=rs("Specialid") rs.close sql="select * from Special order by Specialid desc" rs.Open sql,conn,1,1 jieshuid=rs("Specialid") rs.close response.write"<form name=pid method=""post"" action=""make_musiclistall_all.asp?type=all"">超始ID<input size=8 name=""SkyIDStr"" value='"&kaishiid&"'>到终止ID<input size=8 name=""SkyIDEnd"" value='"&jieshuid&"'><input name=""change"" class=""buttonface"" value=""确认"" type=""submit""></form>" end if%> </body> </html>