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是怎么工作的。

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

掌握asp的特性而且一定要知道为什么。