代码如下：

    rs.open sql,conn,1,1
    if rs.eof and rs.bof then
     response.write "p align='center'还没找到文章/p"
  else
   totalPut=rs.recordcount
   maxperpage=18
   if currentpage1 then
    currentpage=1
    end if
   if (currentpage-1)*maxperpagetotalput then
      if (totalput mod maxperpage)=0 then
      currentpage=totalputmaxperpage
      else
      currentpage=totalputmaxperpage+1
      end if
   end if
    if currentpage=1 then
    showpage1 totalput,maxperpage,"infotype.asp?id="&request("id")
    showcontent()
    showpage totalput,maxperpage,"infotype.asp?id="&request("id")
    else
       if (currentpage-1)*maxperpagetotalput then
       rs.move (currentpage-1)*maxperpage
       dim bookmark
       bookmark=rs.bookmark
       showpage1 totalput,maxperpage,"infotype.asp?id="&request("id")
       showcontent
       showpage totalput,maxperpage,"infotype.asp?id="&request("id")
       else
       currentpage=1
       showpage1 totalput,maxperpage,"infotype.asp?id="&request("id")
       showcontent
       showpage totalput,maxperpage,"infotype.asp?id="&request("id")
       end if
    end if 
end if
%
%
  sub showcontent()
  %
  tr
    td height="20" class="blueback2"div style="text-align:center"ID/div/td
    td class="blueback2"div style="text-align:center"a href="javascript:selectall()"font color="#FFFFFF"选择/font/a/div/td
    td width="355" class="blueback2"div style="text-align:center"信息标题/div/td
    td width="84" class="blueback2"div style="text-align:center"更新日期/div/td
    td width="40" class="blueback2"div style="text-align:center"点击/div/td
    td width="55" class="blueback2"div style="text-align:center"添加人/div/td
    td width="44" class="blueback2"div style="text-align:center"编辑/div/td
    td width="43" class="blueback2"div style="text-align:center"删除/div/td
    td width="62" class="blueback2"div style="text-align:center"生成[a href="javascript:void(null)" onClick="window.open('cshengcheng.asp','','width=0,height=0')"font color="#FFFFFF"归零/font/a]/div/td
  /tr  
  %

  i=1
   do while not rs.eof
%

  tr
    td width="39" height="25" bgcolor="#D6DFF7"div style="text-align:center"%=rs("id")%/div/td
    td width="34" bgcolor="#D6DFF7"div style="text-align:center"
           input type="checkbox" name="dxyid" value="%=rs("id")%"
     /div/td
    td bgcolor="#D6DFF7"a href="Article_show.asp?id=%=rs("id")%" target="_blank"[%=rs("type_id")%]%thetitle1=rs("title")
    strcounts=truelen(thetitle1)
    response.write thetitle1
    %/a/td
    %
    datetime=rs("datetime")
    yname=year(datetime)
mname=month(datetime)
if len(mname)2 then mname="0"&mname
dname=month(datetime)
if len(dname)2 then dname="0"&dname
foldername=yname&mname
    %
    td bgcolor="#D6DFF7"div style="text-align:center"a href="%=htmlfolder%%=foldername%/%=rs("id")%.htm" title="查看生成的静态页面" target="_blank"%=rs("datetime")%/a/div/td
    td bgcolor="#D6DFF7"div style="text-align:center"%=rs("hits")%/div/td
    td bgcolor="#D6DFF7"div style="text-align:center"%=rs("author")%/div/td
    td bgcolor="#D6DFF7"div style="text-align:center"a href="news_edit.asp?dxy_id=%=rs("id")%"修改/a/div/td
    td bgcolor="#D6DFF7"div style="text-align:center"a href="javascript:delxx(%=rs("id")%)"删除/a/div/td
    td bgcolor="#D6DFF7"div style="text-align:center"a href="javascript:makehtml(%=rs("id")%)"生成(a href="javascript:void(null)" onClick="window.open('cshengcheng.asp?id=%=rs("id")%','','width=0,height=0')"%=rs("shengcheng")%)/a/div/td
  /tr
  %
  i=i+1
   if imaxperpage then exit do
  rs.movenext  
  loop
  %
  tr
    td height="20" class="blueback2"div style="text-align:center"ID/div/td
    td class="blueback2"div style="text-align:center"a href="javascript:selectall()"font color="#FFFFFF"选择/font/a/div/td
    td class="blueback2"div style="text-align:center"信息标题/div/td
    td class="blueback2"div style="text-align:center"更新日期/div/td
    td class="blueback2"div style="text-align:center"点击/div/td
    td class="blueback2"div style="text-align:center"添加人/div/td
    td class="blueback2"div style="text-align:center"编辑/div/td
    td class="blueback2"div style="text-align:center"删除/div/td
    td class="blueback2"div style="text-align:center"生成/div/td
  /tr
  %
  end sub    
  %

  tr
    td height="20" colspan="9" bgcolor="#D6DFF7"label
       input type="button" name="dxydo" value="全选" onClick="javascript:selectall()"
        input type="submit" name="dxydo" value="删除" onClick="{if(confirm('确定要删除选择的信息吗')){document.formselect.submit();return true;}return false;}"
         input type="submit" name="dxydo" value="生成"
         input type="submit" name="dxydo" value="移动"
    /label/td
    /tr
    %
    function showpage(totalnumber,maxperpage,filename)
    %
  tr
    td height="20" colspan="9" bgcolor="#D6DFF7"
    %
dim n
if totalnumber mod maxperpage=0 then
n=totalnumbermaxperpage
else
n=totalnumbermaxperpage+1
end if
%
div style="text-align:center"共有%=totalnumber%/%=maxperpage%条，

当前页%=currentpage%/%=n% 
        %if currentpage2 then%
        [首页] [上一页]
        %else%
        a href="%=filename%"font color="red"[首页]/font/a a href="%=filename%&page=%=currentpage-1%"font color="red"[上一页]/font/a
        %end if%% if n-currentpage1 then%
        [下一页] [尾页]%else%a href="%=filename%&page=%=currentpage+1%"font color="red"[下一页]/font/a a href="%=filename%&page=%=n%"font color="red"[尾页]/font/a
        %end if%
        转到：select name="dd" class="sle" 

onChange="location.href=this.options[this.selectedIndex].value"
     %for j=1 to n
     if currentpage=j then
     %option value="%=filename%&page=%=j%" selected%=j%/option
     %
     else
     %
     option value="%=filename%&page=%=j%"%=j%/option
     %
     end if
     next
     %
    /select
    /div    /td
    /tr
    %
    end function
    %
    %
    function showpage1(totalnumber,maxperpage,filename)
    %
  tr
    td height="20" colspan="9" bgcolor="#D6DFF7"
    %
dim b
if totalnumber mod maxperpage=0 then
b=totalnumbermaxperpage
else
b=totalnumbermaxperpage+1
end if
%
div style="text-align:center"共有%=totalnumber%/%=maxperpage%条，

当前页%=currentpage%/%=b% 
     %
     dxystart=currentpage-5
     if dxystart1 then dxystart=1
     dxyend=currentpage+5
     if dxyendb then dxyend=b
     for dxy=dxystart to dxyend
     if dxy=currentpage then
     response.write "[a href="&filename&"&page="&dxy&""&"font color=red"&dxy&"/font"&"/a]"&" "
     else
     response.write "[a href="&filename&"&page="&dxy&""&dxy&"/font"&"/a]"&" "
     end if
     next
     % 
    /div    /td
    /tr
    %
    end function
    %
  /form
/table
%
rs.close
set rs=nothing
conn.close
set conn=nothing
%