二款简单实用asp分页实例

分页一
*/

function showpage(url)
   dim ii,n
   if totalnumber mod maxperpage=0 then
       n= totalnumber maxperpage
   else
       n= totalnumber maxperpage+1
   end if
   response.write "

"& vbcrlf    if currentpage<2 then       response.write "  首页   上页   "    else       response.write " 首页  "       response.write "上页   "    end if    if n-currentpage<1 then       response.write "下页  尾页 "& vbcrlf    else       response.write "下页"       response.write "  尾页"& vbcrlf    end if     response.write " "¤tpage&"/"&n&" 页 "      response.write " "& vbcrlf      response.write " 转到： "      response.write " "& vbcrlf     for ii = 1 to n          response.write "            if currentpage=cint(ii) then                response.write "selected "           end if           response.write ">第 "&ii&" 页"     next      response.write "  " & vbcrlf  response.write "

"& vbcrlf
end function

//分页函数二

function showpagee(url)
   dim ii,n
   if totalnumber mod maxperpage=0 then
       n= totalnumber maxperpage
   else
       n= totalnumber maxperpage+1
   end if
   response.write "

"& vbcrlf    if currentpage<2 then       response.write "first  previous "    else       response.write " first "       response.write "previous "    end if    if n-currentpage<1 then       response.write "next final page"& vbcrlf    else       response.write "next"       response.write " final page"& vbcrlf    end if     response.write " "¤tpage&"/"&n&" page"      response.write ""& vbcrlf      response.write " goto："      response.write ""& vbcrlf     for ii = 1 to n          response.write "            if currentpage=cint(ii) then                response.write "selected "           end if           response.write ">no."&ii&""     next      response.write "  " & vbcrlf  response.write "

"& vbcrlf
end function