jb51生成所有頁(yè)面的效果+分頁(yè)生成 原創(chuàng)

!--#include file="conn.asp"-->
style type="text/css">
body,td,th{
color:#000000;
font-size:14px;
background-color:#D6DFF7;
}
/style>
%
dim rs
set rs=server.CreateObject("adodb.recordset")
if request("type")="date" then
yearstr=request("selyear")
monstr=request("selmonth")
daystr=request("selday")
  if daystr>"" then
  theymd=yearstr"-"monstr"-"daystr
  sql="select id from news where datetime like '"theymd"%' order by datetime desc"
  else
  theymd=yearstr"-"monstr"-"
  sql="select id from news where datetime like '"theymd"%' order by datetime desc"
  end if
elseif request("type")="new" then
topnew=request("newcount")
  if  topnew>"" then
  topnew=cint(topnew)
  sql="select top "topnew" id from news order by datetime desc"
  end if
elseif request("type")="nosh" then
  sql="select id from news where shengcheng=0"
elseif request("type")="all" then
  sql="select id from news order by id desc"
end if   
  if sql>"" then
  response.write sql
response.write"center>b>font color=""#FF0000"">正在生成文章內(nèi)容頁(yè)的Html頁(yè),請(qǐng)等待....../font>/b>span id=showImport>/span>/center>IE:Download ID=""oDownload"" STYLE=""behavior:url(#default#download)"" />"
if request("p")>"" then
     p=cint(request("p"))
    else
     p=1
   end if
MaxPerPage=100
rs.open sql,conn,1,1
if not rs.eof then
rs.pagesize=MaxPerPage '得到每頁(yè)數(shù)
mpage=rs.pagecount     '得到總頁(yè)數(shù)
allshu=rs.recordcount  '得到總數(shù)
rs.move  (p-1)*MaxPerPage
do while not rs.eof
i=i+1
call MakeHtml()
if i>=MaxPerPage then exit do
rs.movenext
loop
end if
rs.close
Sshu=MaxPerPage*p-MaxPerPage+1 '當(dāng)前已經(jīng)生成的數(shù)量
Tshu=Sshu+i-1 '已生成生成的
if allshuSshu then
 set rs=nothing
 conn.close
 set conn=nothing
 response.redirect "makehtmlall.asp?type=ok""shu="request("shu")"D="d"p="p+1
 response.end
else
%>
meta http-equiv="refresh" content="0;url=makehtmlall.asp?type=%=request("type")%>newcount=%=request("newcount")%>selyear=%=request("selyear")%>selmonth=%=request("selmonth")%>selday=%=request("selday")%>shu=%=Tshu%>D=%=D%>p=%=p+1%>">
div align="center">br>正在生成:第(%=Sshu%>/%=Tshu%>)個(gè) 共%=allshu%>個(gè)/div>
%
end if
Sub MakeHtml()
%>
script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('makehtml.asp?news_id=%=rs("id")%>',onDownloadDone)
/script>
%
end Sub
'-----------------------sql為空-------------------
else
set rstotal=conn.execute("select count(*) from news")
nowtotal=rstotal(0)
rstotal.close
set rstotal=nothing
set nosh=conn.execute("select count(*) from news where shengcheng=0")
nownosh=nosh(0)
nosh.close
set nosh=nothing
'-------------------
if request("type")="ok" then
%>div align="center">
br>br>操作成功:共生成頁(yè)面
font color="#FF0000">%=request("shu")%>/font>個(gè),完成時(shí)間%=now()%>
/center>
%
end if
'-------------------------
%>
table width="511" border="0" align="center" cellpadding="10" cellspacing="1" bgcolor="#FFFFFF">
  form action="makehtmlall.asp?type=date" method="post">tr>
    td width="99" height="25" nowrap bgcolor="#D6DFF7">按日期生成：/td>
    td width="369" nowrap bgcolor="#D6DFF7">select name="selyear">
    %
    for yearstr=2001 to year(date)
    if yearstr=year(date) then
    response.write "option value="yearstr" selected>"yearstr"/option>"
    else
    response.write "option value="yearstr">"yearstr"/option>"
    end if
    next
    %>
    /select>-
      select name="selmonth">
      %
      for monstr=1 to 12
    if monstr=month(date) then
    response.write "option value="monstr" selected>"monstr"/option>"
    else
    response.write "option value="monstr">"monstr"/option>"
    end if
    next
      %>
      /select>-
      select name="selday">
      option value=""""> /option>
        %
      for daystr=1 to 31
    if daystr=day(date) then
    response.write "option value="daystr" selected>"daystr"/option>"
    else
    response.write "option value="daystr">"daystr"/option>"
    end if
    next
      %>
      /select>
      input type="submit" name="Submit" value="生成">/td>
  /tr>
  /form>
  form action="makehtmlall.asp?type=new" method="post">
  tr>
    td height="25" nowrap bgcolor="#D6DFF7">按最新的生成：/td>
    td nowrap bgcolor="#D6DFF7">生成最新的
      input name="newcount" type="text" id="newcount" size="10">
      個(gè)文章
      input type="submit" name="Submit2" value="生成">/td>
  /tr>
  /form>
  form action="makehtmlall.asp?type=nosh" method="post">
  tr>
    td height="25" nowrap bgcolor="#D6DFF7">沒有生成過(guò)的：/td>
    td nowrap bgcolor="#D6DFF7">當(dāng)前需要生成文章[font color="red">%=nownosh%>/font>]
      input type="submit" name="Submit4" value="生成">/td>
  /tr>
  /form>
  form action="makehtmlall.asp?type=all" method="post">
  tr>
    td height="25" nowrap bgcolor="#D6DFF7">生成全部：/td>
    td nowrap bgcolor="#D6DFF7">共[font color="red">%=nowtotal%>/font>]
      input type="submit" name="Submit3" value="生成">/td>
  /tr>
  /form>  
/table>
%
end if
%>