代码如下：

%
      page=trim(request("page"))
      maxperpage=40
      first=true
      last=true
      dim rs
      set rs=server.CreateObject("adodb.recordset")
      sql="select id,title,add1,cartype,isred,enterdate,hits from newnews where classtype=0 and pass=1 order by id desc"
rs.open sql,conn,1,1
        rs.pagesize=maxperpage
        totalpage=rs.pagecount
        if len(page)=0 then
        intpage=1
        first=false
        else
            if cint(page)=1 then
            intpage=1
            first=false
            else
                if cint(page)=rs.pagecount then
                intpage=rs.pagecount
                last=false
                else
                intpage=cint(page)
                end if
            end if
        end if            
        if not rs.eof then
        rs.absolutepage=intpage
        end if
        for a=1 to maxperpage
        if rs.eof then exit for
        %
        tr %if (a mod 2)=0 then
      response.write "bgcolor=#ffffff"
      else
      response.write "bgcolor=#f6f6f6"
      end if
      %
          td height="20"div style="text-align:center"%=a%/div/td
          tddiv style="text-align:center"
            %add=rs("add1")
        substring add,4
        %
          /div/td
          td
          a href="displaynews.asp?id=%=rs("id")%" target="_blank"          
         %
        if rs("isred")=True then
        %
        font color="red"
        %title=rs("title")
        substring title,20
        %/font
        %else
        title=rs("title")
        substring title,20
        %
        %
        end if
        %        
        /a/td
          tddiv style="text-align:center"%=rs("cartype")%/div/td
          tddiv style="text-align:center"
              %thetime=rs("enterdate")
                    themon=datepart("m",thetime)
                    if len(themon)2 then themon="0"&themon
                    theday=datepart("d",thetime)
                    if len(theday)2 then theday="0"&theday
                    ther=themon&"-"&theday
                    response.write ther
                %
          /div/td
          tddiv style="text-align:center"%=rs("hits")%/div/td
        /tr
        %
      rs.movenext
      if rs.eof then exit for
      next        
      %
      /table
      table width="100%" border="0" cellspacing="0" cellpadding="0"
      tr
        td height="5"/td
      /tr
    /table
     table width="100%" border="0" cellpadding="0" cellspacing="0"
            tr
              td height="20" bgcolor="#f6f6f6"
                  div style="text-align:center"
                    %if rs.pagecount0 then %
              共有%=rs.recordcount%条|当前页%=intpage%/
              %

=rs.pagecount%

              % end if %
              %if intpage1 then%
              a href="%request.ServerVariables("SCRIPT_NAME")%?

page=1"首页/a
              %else%
              首页
              %end if%
              %if first then%
              a href="%request.ServerVariables("SCRIPT_NAME")%?

page=%=intpage-1%"上一页/a
              %else%
              上一页
              %end if%
              %if last and intpagers.pagecount then%
              a href="%request.ServerVariables("SCRIPT_NAME")%?

page=%=intpage+1%"下一页/a
              %else%
              下一页
              %end if%
              %if intpagers.pagecount then%
              a href="%request.ServerVariables("SCRIPT_NAME")%?

page=%=rs.pagecount%"尾页/a
              %else%
              尾页
              %end if%
              转到
              select onChange="location=this.options

[this.selectedIndex].value"
                %for b=1 to rs.pagecount
     if b=intpage then%
                option value="%request.ServerVariables("SCRIPT_NAME")%?page=%=b%" selected

                第%=b%页/option
                % else %
                option value="%request.ServerVariables("SCRIPT_NAME")%?page=%=b%"第%=b%页

                /option
                %end if
     next%
              /select
    /div/td
            /tr
      /table    
/body
%
rs.close
set rs=nothing
conn.close
set conn=nothing
%