生成所有页面的效果+分页生成

笑对人生gwen

笑对人生gwen

2016-02-19 09:51

今天图老师小编要跟大家分享生成所有页面的效果+分页生成,精心挑选的过程简单易学,喜欢的朋友一起来学习吧!

代码如下:

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/webkaifa/)
!--#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"centerbfont color=""#FF0000""正在生成文章内容页的Html页,请等待....../font/bspan id=showImport/span/centerIE: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 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 style="text-align:center"br正在生成:第(%=Sshu%/%=Tshu%)个 共%=allshu%个/div
%
end if
Sub MakeHtml()
%
scriptfunction 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 style="text-align:center"
brbr操作成功:共生成页面
font color="#FF0000"%=request("shu")%/font个,完成时间%=now()%
/center
%
end if
'-------------------------
%
table width="511" border="0" style="text-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
%
展开更多 50%)
分享

猜你喜欢

生成所有页面的效果+分页生成

Web开发
生成所有页面的效果+分页生成

生成静态页面的PHP类

Web开发
生成静态页面的PHP类

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

jsp生成静态页面的方法

Web开发
jsp生成静态页面的方法

Java 项目生成静态页面的代码

Web开发
Java 项目生成静态页面的代码

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

谈谈生成静态页面的一些经验

PHP
谈谈生成静态页面的一些经验

php生成WAP页面

PHP
php生成WAP页面

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Oracle关于时间/日期的操作

Oracle关于时间/日期的操作

基于John Carmark密码详解

基于John Carmark密码详解
下拉加载更多内容 ↓