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

www.gusucode.com > 要听音乐网完美修正版 1.0源码程序 > admin/make_typeall.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 sclassid from sclass"
			 rs.open sql,conn,1,1
				rs.pagesize=1 '得到每页数
				mpage1=rs.pagecount     '得到总页数
				rs.move  (page-1)*1
				do while not rs.eof
					i=i+1
					id=rs("sclassid")
					if i>=1 then exit do
				rs.movenext
				loop
		 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_type.asp?im286="&id&"',onDownloadDone)</script>"
	next
	if page<mpage1 then
		response.write"<meta http-equiv=""refresh"" content=""0;url='make_typeall.asp?type="&request("type")&"&page="&page+1&"&m="&request("m")+m&"&D="&D&"'"">"
	else
		response.write"<meta http-equiv=""refresh"" content=""0;url='make_typeall.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>
<%end if%>