ASP编程：ASP分页
专业性的服务。有的ASP商提供垂直型的应用服务，针对某一特定行业提供应用服务。分页自己写了2个通用的ASP分页办法，供人人参考！<%@Language=VBScript%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
dimcurrentpage界说以后页
dimfilename文件名
ConstMaxPerPage=20每页显现的纪录个数
dimtotalnumber纪录总数
filename="showpages.asp"
totalnumber=200设置纪录总数为200
ifnotisempty(request("page"))then
currentPage=cint(request("page"))
else
currentPage=1
endif
showpagestotalnumber,MaxPerPage,filename
%>
</BODY>
</HTML>
<%界说分页的函数，以totalnumber，maxperpage，filename作为函数的出口。
functionshowpages(totalnumber,maxperpage,filename)
dimn
iftotalnumbermodmaxperpage=0then
n=totalnumbermaxperpage
else
n=totalnumbermaxperpage+1
endif
response.write"<formmethod=Postaction="&filename&">"
response.write"<palign=center>纪录分页"
ifCurrentPage<2then
response.write"<fontcolor=999966>首页上一页</font>"
else
response.write"<ahref="&filename&"?page=1>首页</a>"
response.write"<ahref="&filename&"?page="&CurrentPage-1&">上一页</a>"
endif
ifn-currentpage<1then
response.write"<fontcolor=999966>下一页尾页</font>"
else
response.write"<ahref="&filename&"?page="&(CurrentPage+1)
response.write">下一页</a><ahref="&filename&"?page="&n&">尾页</a>"
endif
response.write"页次：<strong><fontcolor=red>"&CurrentPage&"</font>/"&n&"</strong>页"
response.write"转到：<inputtype=textname=pagesize=4maxlength=10class=smallInput
value="¤tpage&">"
response.write"<inputclass=buttonfacetype=submitvalue=Gotoname=cndok></span></p></form>"
endfunction
%>
--------------------------------------------------------------------------
<%@Language=VBScript%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
dimcurrentpage界说以后页
dimfilename文件名
ConstMaxPerPage=20每页显现的纪录个数
dimtotalnumber纪录总数
filename="showpages.asp"
totalnumber=200设置纪录总数为200
ifnotisempty(request("page"))then
currentPage=cint(request("page"))
else
currentPage=1
endif
showpagestotalnumber,MaxPerPage,filename
%>
</BODY>
</HTML>
<%界说分页的函数，以totalnumber，maxperpage，filename作为函数的出口。
functionshowpages()
dimn
if(totalnumbermodMaxPerPage)=0then
n=totalPutMaxPerPage
else
n=totalPutMaxPerPage+1
endif
ifn=1then
exitsub
endif
dimk
response.write"<palign=left>>>分页"
fork=1ton
ifk=currentPagethen
response.write"[<b>"+Cstr(k)+"</b>]"
else
response.write"[<b>"+"<ahref="&filename&"?page="+cstr(k)+">"+Cstr(k)+"</a></b>]"
endif
next
response.write"</p>"
endfunction
%>
SQLServer是基于服务器端的中型的数据库，可以适合大容量数据的应用，在功能上管理上也要比Access要强得多。在处理海量数据的效率，后台开发的灵活性，可扩展性等方面强大。 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。
页:
[1]