Make_specialall.asp 流光音乐建站系统 1.1码程序 - ASP源码程序

www.gusucode.com > 流光音乐建站系统 1.1码程序 > admin/Make_specialall.asp
    <!--#include file="const.asp"-->
<%CheckAdmin3%>
<%pagename="make_specialallall"%>
<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 
'请保留版权信息,以便我们更好的为您服务
'==================================================================
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 nclassid FROM nclass where classid like "&request("zzyy")&" order by nclassid 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("nclassid")
         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_special.asp?263="&id&"' width=0 height=0></iframe>"
'response.write"<script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('make_special.asp?263="&id&"',onDownloadDone)</script>"
next
if page<mpage1 then
response.write"<meta http-equiv=""refresh"" content=""0;url='make_specialall.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_specialall.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))/10&"</font>秒,完成时间"&Now()&"</b>"
end if
%>
</body>
</html>