makelistall.asp 共享世纪内容管理系统 2.1 build 080704 全站开源版 - ASP源码程序

www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/makelistall.asp
    <%Admin="InfoMake"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<!--#include file="top.asp"-->
<!--#include file="config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta copy="WWW.2KY.CN 共享世纪">
<title>生成分类HTML页</title>
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<body>
<%
'==========================================
'
'  晓宇听幽新闻文章管理系统 2004
'
'  主页地址：http://www.xoYu.com
'
'==========================================
'程序名称：晓宇听幽新闻文章管理系统
'英文名称：xoYu News 2004 Professional
'程序创建时间：2003-7-10
'程序完成时间：2003-9-11
'最后修改时间：2003-10-10
'==========================================
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
id=request("id")
ts=request("ts")
last=request("last")
MaxPerPage=request("MaxPerPage")
set rs=server.createobject("adodb.recordset")
     if request("type")="all" then

        rs.open ("select id,ts,last,MaxPerPage from infotype where ts like '"&request("ts")&"%' order by id 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("id")
         ts=rs("ts")
         last=rs("last")
         MaxPerPage=rs("MaxPerPage")
        if i>=1 then exit do
        rs.movenext
        loop
        rs.close
        end if
     end if

if id<>"" then
if last="2" then
mpage=1
end if
if last="1" then
sql="select * from infotype where ts like '"&ts&"%'"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
   sqqq=sqqq& ""&rs("id")&", "
rs.MoveNext
loop
end if
rs.close
     rs.open ("select * from info where tid in("&sqqq&")"),conn,1,1
     if not rs.eof then 
     rs.pagesize=MaxPerPage          '得到每页数
     mpage=rs.pagecount    '得到总页数
     else
     mpage=1
     end if
     rs.close
end if
end if
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('makelist.asp?MaxPerPage="&MaxPerPage&"&tid="&id&"&page="&ii&"',onDownloadDone)</script>"
next
if page<mpage1 then
response.write"<meta http-equiv=""refresh"" content=""0;url='makelistall.asp?type="&request("type")&"&ts="&request("ts")&"&page="&page+1&"&m="&request("m")+m&"&D="&D&"'"">"
else
response.write"<meta http-equiv=""refresh"" content=""0;url='makelistall.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)&"</font>秒,完成时间"&Now()&"</b>"
end if
%></body></html>