仓酷云

标题: ASP编程:仿照PHP写的ASP 分页 [打印本页]

作者: 再见西城    时间: 2015-1-16 22:49
标题: ASP编程:仿照PHP写的ASP 分页
对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了,分页|分页<%
分页程序
total_records总纪录数
everypage_records每页显现条数
current_page以后页数
url要传送的url,这里能够含有要传送的变量,好比"list.asp?"大概"list.asp?keyword=key&"
程序挪用对照复杂,不外仍是比PHP的贫苦,持续勉力中

subshow_page(total_records,everypage_records,current_page,url)

ifIsNumeric(total_records)then
total_records=Int(total_records)
else
total_records=0
endif

ifIsNumeric(everypage_records)then
everypage_records=Int(everypage_records)
ifeverypage_records<=0then
everypage_records=10
endif
else
everypage_records=10
endif

ifIsNumeric(current_page)then
current_page=Int(current_page)
else
current_page=1
endif

取总页数,即最初一页
iftotal_recordsmodeverypage_records=0then
last_page=Int(total_records/everypage_records)
else
last_page=Int(total_records/everypage_records)+1
endif

判别current_page是不是切合尺度,并附值给page
ifcurrent_page>=last_pagethen
page=last_page
elseifcurrent_page<=1then
page=1
else
page=current_page
endif

上一页
ifpage<=0then
prepg=0
else
prepg=page-1
endif
下一页
ifpage=last_pagethen
nextpg=0
else
nextpg=page+1
endif

本页入手下手纪录
firstcount=prepg*everypage_records
本页停止纪录
ifnextpg>=1then
lastcount=(nextpg-1)*everypage_records
else
lastcount=total_records
endif
入手下手分页导航条代码
pagenav=""
pagenav1=""
pagenav=pagenav&"显现第<b>"&firstcount&"-"&lastcount&"</b>笔记录共<b>"&total_records&"</b>笔记录"
pagenav1=pagenav1&"显现第<b>"&firstcount&"-"&lastcount&"</b>笔记录共<b>"&total_records&"</b>笔记录"

iflast_page>1then
当有前后页时
pagenav=pagenav&"<ahref="&url&"page=1>首页</a>"
pagenav1=pagenav1&"<ahref="&url&"page=1>首页</a>"
ifprepg>=1then
pagenav=pagenav&"<ahref="&url&"page="&prepg&">前页</a>"
pagenav1=pagenav1&"<ahref="&url&"page="&prepg&">前页</a>"
else
pagenav=pagenav&"前页"
pagenav1=pagenav1&"前页"
endif
ifnextpg>=1then
pagenav=pagenav&"<ahref="&url&"page="&nextpg&">后页</a>"
pagenav1=pagenav1&"<ahref="&url&"page="&nextpg&">后页</a>"
else
pagenav=pagenav&"后页"
pagenav1=pagenav1&"后页"
endif
pagenav=pagenav&"<ahref="&url&"page="&last_page&">尾页</a>"
pagenav1=pagenav1&"<ahref="&url&"page="&last_page&">尾页</a>"

pagenav=pagenav&"到第<inputtype=textname=text100id=text100value="&page&"size=3>页<inputtype=buttonname=button100value=go>"
pagenav1=pagenav1&"共"&last_page&"页"
endif

endsub
%>


</p>ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段,极大地提高了开发的效果。在讨论ASP的安全性问题之前,让我们来看看ASP是怎么工作的。
作者: 小女巫    时间: 2015-1-20 05:11
以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
作者: 灵魂腐蚀    时间: 2015-1-28 16:54
Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
作者: admin    时间: 2015-2-5 22:19
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
作者: 简单生活    时间: 2015-2-13 22:15
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...
作者: 海妖    时间: 2015-3-4 02:23
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
作者: 蒙在股里    时间: 2015-3-11 15:27
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
作者: 若天明    时间: 2015-3-19 01:18
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...
作者: 再见西城    时间: 2015-3-27 00:45
掌握asp的特性而且一定要知道为什么。




欢迎光临 仓酷云 (http://ckuyun.com/) Powered by Discuz! X3.2