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>