jb51生成所有页面的效果+分页生成 原创
复制代码 代码如下: <% 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 &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 '------------------------- %>