<%
　　' 分页程序
　　' 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='"&url&"page=1'>首页</a> "
　　 pagenav1=pagenav1&" <a href='"&url&"page=1'>首页</a> "
　　 if prepg>=1 then
　　  pagenav=pagenav&" <a href='"&url&"page="&prepg&"'>前页</a> "
　　  pagenav1=pagenav1&" <a href='"&url&"page="&prepg&"'>前页</a> "
　　 else
　　  pagenav=pagenav&" 前页 "
　　  pagenav1=pagenav1&" 前页 "
　　 end if
　　 if nextpg>=1 then
　　  pagenav=pagenav&" <a href='"&url&"page="&nextpg&"'>后页</a> "
　　  pagenav1=pagenav1&" <a href='"&url&"page="&nextpg&"'>后页</a> "
　　 else
　　  pagenav=pagenav&" 后页 "
　　  pagenav1=pagenav1&" 后页 "
　　 end if
　　 pagenav=pagenav&" <a href='"&url&"page="&last_page&"'>尾页</a> "
　　 pagenav1=pagenav1&" <a href='"&url&"page="&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="""&url&"page=""+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="""&url&"page=""+text101.value'>"
　　 pagenav1=pagenav1&" 共 "&last_page&" 页"
　　 end if

　　end sub
　　%>