make_musiclistall_all.asp 要听音乐网完美修正版 1.0源码程序 - ASP源码程序

www.gusucode.com > 要听音乐网完美修正版 1.0源码程序 > admin/make_musiclistall_all.asp
    <!--#include file="../inc/const.asp"-->
<!--#include file="inc/char.asp"-->
<%
If Not CheckAdmin(ScriptName) Then
    strMsg="<Li>您没有管理本页面的权限。"
    Call Msg()
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成专辑歌曲HTML文件</title>
<style>
body{font-size:9pt;line-height:140%} 
</style>
</head>
<body>
<%
if request("type")<>"" then
	if request("page")<>"" then
		page=cint(request("page"))
		D=request("D")
	else        
		page=1
		D=timer()
	end if
	mpage=1
	set rs=server.createobject("adodb.recordset")
		 if request("type")="all" then
			sql = "SELECT specialid FROM special"
			rs.cursorlocation = 3 
			rs.open sql,conn,0,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
			end if
		 end if
	rs.close
	set rs = nothing	 	
	conn.close  
	set conn=nothing	
	response.write"<b><font color=""#FF0000"">"&page&"</font>/<font color=""#FF0000"">"&mpage1&"</font> 正在专辑歌曲的Html页,请等待......</b><span id=showImport></span><IE:Download ID=""oDownload"" STYLE=""behavior:url(#default#download)"" />"
	for ii=1 to mpage
		m=m+1
		response.write"<script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('make_musiclist.asp?im286="&id&"',onDownloadDone)</script>"
	next
	if page<mpage1 then
		response.write"<meta http-equiv=""refresh"" content=""0;url='make_musiclistall_all.asp?type="&request("type")&"&page="&page+1&"&m="&request("m")+m&"&D="&D&"'"">"
	else
		response.write"<meta http-equiv=""refresh"" content=""0;url='make_musiclistall_all.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
end if
%>
</body>
</html>