模仿PHP写的ASP 分页

　　<%
分页程序
total_records 总记录数
everypage_records 每页显示条数
current_page 当前页数
url 要传递的url，这里可以含有要传递的变量，比如 list.asp? 或者list.asp?keyword=key
程序调用比较简单，不过还是比PHP的麻烦，继续努力中

　　sub show_page(total_records,everypage_records,current_page,url)

　　if IsNumeric (total_records) then
total_records=Int(total_records)
else
total_records=0
end if

if IsNumeric (everypage_records) then
everypage_records=Int(everypage_records)
if everypage_records<=0 then
everypage_records=10
end if
else
everypage_records=10
end if

if IsNumeric (current_page) then
current_page=Int(current_page)
else
current_page=1
end if

取总页数，即最后一页
if total_records mod everypage_records=0 then
last_page=Int(total_records/everypage_records)
else
last_page=Int(total_records/everypage_records)+1
end if

判断 current_page 是否符合标准,并附值给page
if current_page>=last_page then
page=last_page
elseif current_page<=1 then
page=1
else
page=current_page
end if

上一页
if page<=0 then
prepg=0
else
prepg=page-1
end if
下一页
if page=last_page then
nextpg=0
else
nextpg=page+1
end if

本页开始记录
firstcount=prepg*everypage_records
本页结束记录
if nextpg>=1 then
lastcount=(nextpg-1)*everypage_records
else
lastcount=total_records
end if
开始分页导航条代码
pagenav=
pagenav1=
pagenav=pagenav显示第<b>firstcount-lastcount</b>条记录 共<b>total_records</b> 条记录
pagenav1=pagenav1显示第<b>firstcount-lastcount</b>条记录 共<b>total_records</b> 条记录

if last_page>1 then
当有前后页时
pagenav=pagenav <a href=urlpage=1>首页</a>
pagenav1=pagenav1 <a href=urlpage=1>首页</a>
if prepg>=1 then
pagenav=pagenav <a href=urlpage=prepg>前页</a>
pagenav1=pagenav1 <a href=urlpage=prepg>前页</a>
else
pagenav=pagenav 前页
pagenav1=pagenav1 前页
end if
if nextpg>=1 then
pagenav=pagenav <a href=urlpage=nextpg>后页</a>
pagenav1=pagenav1 <a href=urlpage=nextpg>后页</a>
else
pagenav=pagenav 后页
pagenav1=pagenav1 后页
end if
pagenav=pagenav <a href=urlpage=last_page>尾页</a>
pagenav1=pagenav1 <a href=urlpage=last_page>尾页</a>

pagenav=pagenav到第<input type=text name=text100 id=text100 value=page size=3>页<input type=button name=button100 value=go onclick=window.location=urlpage=+text100.value>
pagenav=pagenav 共 last_page 页

　　pagenav1=pagenav1到第<input type=text name=text101 id=text101 value=page size=3>页<input type=button name=button101 value=go onclick=window.location=urlpage=+text101.value>
pagenav1=pagenav1 共 last_page 页
end if

　　end sub
%>