jb51生成所有页面的效果+分页生成 原创

复制代码 代码如下:

body,td,th{
color:#000000;
font-size:14px;
background-color:#D6DFF7;
}

<%
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"正在生成文章内容页的Html页,请等待......"
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 '得到每页数
mpage=rs.pagecount     '得到总页数
allshu=rs.recordcount  '得到总数
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 '当前已经生成的数量
Tshu=Sshu+i-1 '已生成生成的
if allshu 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
%>
&newcount=<%=request("newcount")%>&selyear=<%=request("selyear")%>&selmonth=<%=request("selmonth")%>&selday=<%=request("selday")%>&shu=<%=Tshu%>&D=<%=D%>&p=<%=p+1%>">

正在生成:第(<%=Sshu%>/<%=Tshu%>)个 共<%=allshu%>个

<%
end if
Sub MakeHtml()
%>

<%
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
%>


操作成功:共生成页面
<%=request("shu")%>个,完成时间<%=now()%>

<%
end if
'-------------------------
%>

  
    按日期生成：
    
    <%
    for yearstr=2001 to year(date)
    if yearstr=year(date) then
    response.write ""&yearstr&""
    else
    response.write ""&yearstr&""
    end if
    next
    %>
    -
      
      <%
      for monstr=1 to 12
    if monstr=month(date) then
    response.write ""&monstr&""
    else
    response.write ""&monstr&""
    end if
    next
      %>
      -
      
       
        <%
      for daystr=1 to 31
    if daystr=day(date) then
    response.write ""&daystr&""
    else
    response.write ""&daystr&""
    end if
    next
      %>
      
      
  
  
  
  
    按最新的生成：
    生成最新的
      
      个文章
      
  
  
  
  
    没有生成过的：
    当前需要生成文章[<%=nownosh%>]
      
  
  
  
  
    生成全部：
    共[<%=nowtotal%>]
      
  
    

<%
end if
%>