ASP分页函数

<%

function showPageNum(pagesum,actcs)
page=request("page")
if page="" then
    page=1
end if
if cint(page)>10 then
    ks=page-5
    js=page+5
    if ks<1 then
     ks=1
     js=ks+10
    end if
    if js>cint(pagesum) then
     js=pagesum
     ks=js-10
    end if
    else
     if cint(pagesum)>11 then
      ks=1
      js=11
     else
      ks=1
      js=pagesum
    end if
end if
if page<>1 then
    response.Write("<a href='" & actcs & "1'>首页</a> <a href='" & actcs & page-1 &"'>上一页</a> ")
end if
for i= ks to js
    if i<10 then
     if cint(i)=cint(page) then
      response.Write("["& i & "] ")
     else
      response.Write("<a href='" & actcs & i &"'>["& i & "]</a> ")
     end if
    else
     if cint(i)=cint(page) then
      response.Write("["& i & "] ")
     else
      response.Write("<a href='" & actcs & i &"'>["& i & "]</a> ")
     end if
    end if
next
if cint(page)<cint(pagesum) then
    response.Write("<a href='" & actcs & page+1 & "'>下一页</a> <a href='" & actcs & pagesum & "'>尾页</a> ")
end if
end function

%>
其中page是当前页数，PAGESUM是页面总数，ACT是点击连接的URL（包括PAGE变量名称）
<% call showPageNum(20,"?page=") %>