MaxPerPage=10
代码：
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,Price,Spec,Unit,Memo,DefaultPicUrl,UpdateTime,Hits from Products 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 articleid 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,strTemp
i=0
do while not rsArticle.eof
strTemp= " "
strTemp= strTemp & " <table width=100% border=0 cellspacing=3 cellpadding=0> "