欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-06-15 14:24:49
复制代码 代码如下:
复制代码 代码如下:

<!--#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"">正在生成文章内容页的html页,请等待......</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 '得到每页数
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<sshu 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%>)个 共<%=allshu%>个</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>操作成功:共生成页面
<font color="#ff0000"><%=request("shu")%></font>个,完成时间<%=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">
      个文章
      <input type="submit" name="submit2" value="生成"></td>
  </tr>
  </form>
  <form action="makehtmlall.asp?type=nosh" method="post">
  <tr>
    <td height="25" nowrap bgcolor="#d6dff7">没有生成过的:</td>
    <td nowrap bgcolor="#d6dff7">当前需要生成文章[<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
%>