仓酷云

标题: ASP网页设计用RecordSet完成分页(by Daniel Adrian... [打印本页]

作者: 小妖女 时间: 2015-1-16 22:32
标题: ASP网页设计用RecordSet完成分页(by Daniel Adrian...
ASP在国内异常流行，因为国内大多使用的是盗版的Windows和盗版的SQLServer，而ASP＋COM＋SQLServer实际上也是一种不错的搭配，其性能也不输于PHP+MYSQL，特别是Windows系统和SQLServer都有图形界面，比APACHE和MYSQL易于维护，因此对于不重视知识产权的国家来说也是一种不错的选择。Pagingthrougharecordset
byDanielAdrian

Skilllevel:Beginner

Firstposted:Monday,October09,2000

Pagingthrougharecordset

WhenIwanttodevelopanapplicationwithalotofrecordstoshow,ImakepagessoIcaneasilynavigate
throughthedatabaseandmakethepagelookgoodandloadquickly.

Thiscanbedoneveryeasily.Shallwestart?

Takealookatthesenextlinesofcode:

IfRequest.QueryString("Page")=""Then
Page=1
Else
Page=Request.QueryString("Page")
EndIf

recordsToShow=20
n=0

TheselinesofcodearesayingifthevalueofRequest.QueryString("Page")iswithoutanyvaluethenpage
=1elsepagegetsthepagetheuserrequested.Recordstoshowisthenumberoflinesineachpage.
Nisnumberofrecordsprinted.

Nowletsputitintoaction:
objrs.PageSize=recordsToShow

(objrsisADODB.RecordsetObject)

Inpagesizewearetellingtherecordsetthateverypagewillhave20recordsbecauserecordstoshowis20.

Nowlet’spulloutsomerecords:

Dountilobjrs.EOF
ifn=recordsToShowthen
exitdo
endif
writewhatthatyouwanthere
n=n+1
loop

Nowwearewritingdateforthedatabaseandeverytimethatwearerepeatingtheloopwecheckifwedone
it20timessomewhenit’s20wewillstoptheloop.

Nowlet’swritethenavigation:

ifPage1then
Response.Write"<ahref=pagename.asp?currentPage="&currentPage-1&">"
endif
Response.Write"<<Back"

ifPage1then
Response.Write"</a>"
endif

-------------------------
ForintCount=1toobjRs.PageCount

IfintCount=1then
Response.Write"|"
EndIf

Ifcint(intCount)=cint(Page)then
Response.Write"<fontcolor=darkblue><b>"&intCount&"</b></font>|"
Else
Response.Write"<ahref=pagename.asp?currentPage="&intCount&""">"&intCount&"</a>|"
EndIf

Next
-------------------------
ifcint(page)=cint(objRs.PageCount)then
Response.Write"<ahref=pagename.asp?currentPage="&currentPage+1&">"
endif
Response.Write"Next>>"
ifcint(Page)=cint(objRs.PageCount)then
Response.Write"</a>"
endif

Firstwearecheckingifthecurrentpageisnot1soit’smorethenonesowecangoback.

Afterthisweneedtowriteallofthepagesintherecordset.
Nowweneedtocheckifwecandonext.

Thatisall!Yesit’sthateasy!
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的

作者: 爱飞 时间: 2015-1-19 16:22
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

作者: 变相怪杰 时间: 2015-1-25 20:08
完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

作者: 精灵巫婆 时间: 2015-2-3 20:01
ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

作者: 谁可相欹 时间: 2015-2-9 05:01
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

作者: 老尸 时间: 2015-2-27 00:04
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

作者: 若相依 时间: 2015-3-8 18:47
尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

作者: 活着的死人 时间: 2015-3-16 11:37
ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

作者: 莫相离 时间: 2015-3-22 22:49
封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

欢迎光临仓酷云 (http://ckuyun.com/)