繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 模仿PHP写的ASP分页
- ASP
- 在Vista IIS 7 中用 vs2005 调试 Web 项目的注意事项
- ASP保存远程图片到本地 同时取得第一张图片并创建缩略图的代码
- ASP运行在IIS6 500错误解决办法
- ASP 精华源码收集（五年总结）
- ASP分页类(支持多风格变换)
- 动网论坛验证码改进 加法验证码(ASPJpeg版)
- asp 存储过程分页代码
- asp select下拉菜单选择图标并实时显示
- aspjpeg组件通用加水印函数代码
- aspjpeg 添加水印教程及生成缩略图教程
- ASP 根据用户权限判断显示的列标题
- asp 批量删除选中的多条记录
- asp 隐藏并修改文件的最后修改时间
- Discuz!NT 论坛整合ASP程序论坛教程
- ajax+asp无限级分类树型结构(带数据库)
- asp 由动态网页转变为静态网页的实现代码
- 通过表单的做为二进制文件上传request.totalbytes提取出上传的二级制数据
- ASP 使用三层架构 asp中使用类
- ASP GetRef 函数指针试探
- ASP 三层架构 Error处理类
模仿PHP写的ASP分页
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 100 ::
收藏到网摘: n/a
' 分页程序
' 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'>"
page
评论 (0) All
