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=") %>