仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 400|回复: 8
打印 上一主题 下一主题

[学习教程] ASP编程:ASP分页

[复制链接]
简单生活 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:13:42 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
专业性的服务。有的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="&currentpage&">"
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要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。
分手快乐 该用户已被删除
沙发
发表于 2015-1-19 05:13:04 | 只看该作者
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
金色的骷髅 该用户已被删除
板凳
发表于 2015-1-25 05:43:08 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
冷月葬花魂 该用户已被删除
地板
发表于 2015-2-2 17:00:39 | 只看该作者
代码逻辑混乱,难于管理:由于ASP是脚本语言混合html编程,所以你很难看清代码的逻辑关系,并且随着程序的复杂性增加,使得代码的管理十分困难,甚至超出一个程序员所能达到的管理能力,从而造成出错或这样那样的问题。
小女巫 该用户已被删除
5#
发表于 2015-2-8 02:34:27 | 只看该作者
我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。
乐观 该用户已被删除
6#
发表于 2015-2-24 02:29:19 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
再见西城 该用户已被删除
7#
发表于 2015-3-7 10:33:20 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
山那边是海 该用户已被删除
8#
发表于 2015-3-15 00:44:54 | 只看该作者
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
因胸联盟 该用户已被删除
9#
发表于 2015-3-21 17:57:10 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-25 01:39

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表