如何去掉分页显示,高手帮帮忙.

小点点14504

我有一个网站,之前后台是分页显示的,现在客户想要让他一页显示到底,去掉分页,我又不知道怎么喝改,有高手路过帮帮忙哦.
'=================================================
'过程名：ShowArticle
'=================================================
sub ShowArticle(TitleLen)
    if TitleLen<0 or TitleLen>200 then
        TitleLen=50
    end if
    if currentpage<1 then
          currentpage=1
    end if
    if (currentpage-1)*MaxPerPage>totalput then
        if (totalPut mod MaxPerPage)=0 then
              currentpage= totalPut \ MaxPerPage
        else
              currentpage= totalPut \ MaxPerPage + 1
        end if
      end if
    if currentPage=1 then
        sqlArticle="select top " & MaxPerPage   
    else
        sqlArticle="select "
    end if

    sqlArticle=sqlArticle & " ArticleID,Product_Id,BigClassName,SmallClassName,IncludePic,Title,DefaultPicUrl,UpdateTime,Hits from Product where Passed=True "
   
    if BigClassName<>"" then
        sqlArticle=sqlArticle & " and BigClassName='" & BigClassName & "' "
        if SmallClassName<>"" then
            sqlArticle=sqlArticle & " and SmallClassName='" & SmallClassName & "' "
        end if
    else
        if SpecialName<>"" then
            sqlArticle=sqlArticle & " and SpecialName='" & SpecialName & "' "
        end if
    end if
    sqlArticle=sqlArticle & " order by UpdateTime desc"
    Set rsArticle= Server.CreateObject("ADODB.Recordset")
    rsArticle.open sqlArticle,conn,1,1
    if rsArticle.bof and  rsArticle.eof then
        response.Write("<br><li>没有任何产品</li>")
    else
        if currentPage=1 then
            call ArticleContent(TitleLen)
        else
            if (currentPage-1)*MaxPerPage<totalPut then
                    rsArticle.move  (currentPage-1)*MaxPerPage
                dim bookmark
                  bookmark=rsArticle.bookmark
                call ArticleContent(TitleLen)
            else
                currentPage=1
                  call ArticleContent(TitleLen)
            end if
        end if
    end if
    rsArticle.close
    set rsArticle=nothing
end sub

sub ArticleContent(intTitleLen)
      dim i,j,strTemp,row_count   
    i=0   
    j=1

            do while not rsArticle.eof and not j> MaxPerPage
            strTemp= strTemp & "<table width=145 border=0 >"            
              strTemp= strTemp & "<tr><td height=135  background=Images/p2.gif >"
              strTemp= strTemp & "<div align=center><a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">"               
                strTemp= strTemp & "<img border=0 src=" & rsArticle("DefaultPicUrl") & ">"
                strTemp= strTemp & "</a></div></td></tr>"
                strTemp= strTemp & "<tr>"
                strTemp= strTemp & "<td align=center height=40>"
                strTemp= strTemp & "<a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">" & rsArticle("Title") & ""
                strTemp= strTemp & "</a></td>"
                strTemp= strTemp & "</tr><tr><TD height=1 background=img/naBialym.gif></td></tr>"
                strTemp= strTemp & "</table><td width=20></td><td>"

                IF j  Mod 3= 0 Then
                strTemp= strTemp & "</td></tr>"
                strTemp= strTemp &"<tr><td>"
                End If              

        rsArticle.movenext
        j=j+1
        i=i+1
        if i>=MaxPerPage then exit do   
        loop
response.write strTemp
end sub