分页算法

function changepage(pages,page,parastr)
dim str,sign
str = ""
if parastr = "" then
sign = ""
else
sign = "&"
end if
str = str & "<div style='line-height: 150%;'>"
    str = str & "<table width=""520"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&vbcrlf
'str = str &"<form action=""ProductList.asp"" name=""Myform"" method=""post"">"
    str = str & " <tr> "&vbcrlf
    str = str & "     <td height=""6""></td>"&vbcrlf
    str = str & " </tr>"&vbcrlf
    str = str & " <tr>"&vbcrlf
    str = str & "    <td bgcolor=""#CCCCCC"" height=""32"" align=""right"">(共"&iCount&"个产品) "&vbcrlf
str = str &" -- 共 "&pages&" 页 "
if page>1 then
  str = str & "<a href=""?page=1"&sign&parastr&""">首页</a>"
else
  str = str & "首页"
end if
if page > 1 then
  str = str & "<a href=""?page="&(int(page)-1)&sign&parastr&"""> 上一页 </a>"&vbcrlf
else
  str = str & " 上一页 "&vbcrlf
end if
if int(page)>((page-1)\10)*10 and page>10 then
   str = str & "<a href=""?page="&((int(page)-1)\10)*10&sign&parastr&""" onclink=""return false;"">上10页</a>"&vbcrlf
end if

if ((int(page)-1)\10)*10 + 10 >= pages then
  endpage = pages
else
  endpage = ((int(page)-1)\10)*10 + 10
end if
for i = ((int(page)-1)\10)*10+1 to endpage
  if i = int(page) then
   str = str & "<font color='FF0000' ><b>" &i& "</b></font> "&vbcrlf
  else
   str = str & "<a href='?page="&i&sign&parastr&"'>"&i&"</a> "&vbcrlf
  end if
next

if endpage <> pages then
   str = str & "<a href='?page="&int(endpage+1)&sign&parastr&"' onclink=""return false;"">下10页</a>"&vbcrlf
end if
if int(page)<int(pages) then
  str = str & "<a href=""?page="&(int(page)+1)&sign&parastr&"""> 下一页 </a>"
else
  str = str & " 下一页 "
end if
if int(page)<int(pages) then
  str = str & "<a href=""?page="&(int(pages))&sign&parastr&""">末页 </a>"
else
  str = str &"末页 "
end if
str = str & "跳到"&vbcrlf
    str = str & "         <input type=""text"" name=""page"" size=""4"">页  </td>"&vbcrlf
str = str & "         <input type=""hidden"" name=""tp"" value="&sType_Code&">"&vbcrlf
str = str & "         <input type=""hidden"" name=""BrandCode"" value="&sBrand_Code&">"&vbcrlf
    str = str & " </tr>"&vbcrlf
'str = str & "</form>"
str = str & " </table>"&vbcrlf
str = str & "</div>"
changepage = str
end function

private string CreatePage(int resultCount, int PageIndex, string keyWord, string cdoc_type, string cpush_date)
{
int count;

string ChannelCode = Request["ChannelCode"];
//如果查询结果总数是页大小的整数倍

        keyWord = Server.UrlEncode(keyWord);
        cdoc_type = Server.UrlEncode(cdoc_type);
        cpush_date = Server.UrlEncode(cpush_date);
        if (resultCount % PageSize == 0)
        {
            count = resultCount / PageSize;
            //PageCount.Text = count.ToString();
        }
        else
        {
            count = resultCount / PageSize + 1;
            //PageCount.Text = count.ToString();
        }

//分页显示的控制

string URLpara = "&keyWord=" + keyWord + "&ChannelCode=" + ChannelCode + "&cdoc_type=" + cdoc_type + "&cpush_date=" + cpush_date + "&_T=1";
string DivPageString = "共" + pageCount.ToString() + "页";

        //显示<上一页>
        if (PageIndex > 1)
        {
            DivPageString = DivPageString + " <a href=\"DiySearch.aspx?page=" +
              (PageIndex - 1).ToString()
              + URLpara
              + "\">上一页</a>";
        }
        //显示当前页的面前几页
        //
        for (int i = PageIndex - DivPageIndex; i <= PageIndex - 1; i++)
        {
            DivPageString = DivPageString + " <a href=\"DiySearch.aspx?page=" +
              i.ToString()
              + URLpara
              + "\">[" +
              i.ToString()
              + "]</a>";
        }

        //显示当前页
        DivPageString = DivPageString + " <font color='#FF0000'>[" + PageIndex.ToString() + "]</font>";
        //显示当前页的后前几页

        for (int i = PageIndex + 1; i <= PageIndex + 5; i++)
        {
            if (i > count) { break; }
            DivPageString = DivPageString + " <a href=\"DiySearch.aspx?page=" +
              i.ToString()
              + URLpara
              + "\">[" +
              i.ToString()
              + "]</a>";

        }
        //显示<下一页>
        if (PageIndex < count)
        {
            DivPageString = DivPageString + " <a href=\"DiySearch.aspx?page=" +
              (PageIndex + 1).ToString()
              + URLpara
              + "\">下一页</a>";
        }

return DivPageString;

}