ASP网页编程之创立一个ASP通用分页类（二）代码部分
专业性的服务。有的ASP商提供垂直型的应用服务，针对某一特定行业提供应用服务。创立|分页<%=====================================================================
XDOWNPAGEASP版本
版本1.00
Codebyzykj2000
Email:zykj_2000@163.net
BBS:http://bbs.513soft.net
本程序能够无偿使用、修正，但愿我的程序能为您的事情带来便利
但请保存以上请息
程序特性
本程序次要是对数据分页的部分举行了封装，而数据显现部分完整由用户自界说，
撑持URL多个参数
利用申明
程序参数申明
PapgeSize界说分页每页的纪录数
GetRS前往经由分页的Recordset此属性只读
GetConn失掉数据库毗连
GetSQL失掉查询语句
程序办法申明
ShowPage显现分页导航条,独一的公用办法
例:
<!--#includefile="conn.asp"-->
<!--#includefile="xdownpage.inc"-->包括文件
Setmypage=newxdownpage创立工具
mypage.getconn=conn失掉数据库毗连
mypage.getsql="select*fromproductinfoorderbyidasc"
mypage.pagesize=5设置每页的纪录条数据为5条
setrs=mypage.getrs()前往Recordset
mypage.showpage()显现分页信息，这个办法能够，在setrs=mypage.getrs()今后
恣意地位挪用，能够挪用屡次
fori=1tomypage.pagesize接上去的操纵就和操纵一个一般Recordset工具一样操纵
ifnotrs.eofthen这个标志是为了避免最初一页的溢出
response.writers(0)&"<br>"这里就能够自界说显现体例了
rs.movenext
else
exitfor
endif
next
=====================================================================
ConstBtn_First="<fontface=webdings>9</font>"界说第一页按钮显现款式
ConstBtn_Prev="<fontface=webdings>3</font>"界说前一页按钮显现款式
ConstBtn_Next="<fontface=webdings>4</font>"界说下一页按钮显现款式
ConstBtn_Last="<fontface=webdings>:</font>"界说最初一页按钮显现款式
ConstXD_Align="Center"界说分页信息对齐体例
ConstXD_Width="100%"界说分页信息框巨细
ClassXdownpage
PrivateXD_PageCount,XD_Conn,XD_Rs,XD_SQL,XD_PageSize,Str_errors,int_curpage,str_URL,int_totalPage,int_totalRecord
=================================================================
PageSize属性
设置每页的分页巨细
=================================================================
PublicPropertyLetPageSize(int_PageSize)
IfIsNumeric(Int_Pagesize)Then
XD_PageSize=CLng(int_PageSize)
Else
str_error=str_error&"PageSize的参数不准确"
ShowError()
EndIf
EndProperty
PublicPropertyGetPageSize
IfXD_PageSize=""or(not(IsNumeric(XD_PageSize)))Then
PageSize=10
Else
PageSize=XD_PageSize
EndIf
EndProperty
=================================================================
GetRS属性
前往分页后的纪录集
=================================================================
PublicPropertyGetGetRs()
SetXD_Rs=Server.createobject("adodb.recordset")
XD_Rs.PageSize=PageSize
XD_Rs.OpenXD_SQL,XD_Conn,1,1
Ifnot(XD_Rs.eofandXD_RS.BOF)Then
Ifint_curpage>XD_RS.PageCountThen
int_curpage=XD_RS.PageCount
EndIf
XD_Rs.AbsolutePage=int_curpage
EndIf
SetGetRs=XD_RS
EndProperty
================================================================
GetConn失掉数据库毗连
================================================================
PublicPropertyLetGetConn(obj_Conn)
SetXD_Conn=obj_Conn
EndProperty
================================================================
GetSQL失掉查询语句
================================================================
PublicPropertyLetGetSQL(str_sql)
XD_SQL=str_sql
EndProperty
==================================================================
Class_Initialize类的初始化
初始化以后页的值
==================================================================
PrivateSubClass_Initialize
========================
设定一些参数的a认值
========================
XD_PageSize=10设定分页的默许值为10
========================
猎取以后面的值
========================
Ifrequest("page")=""Then
int_curpage=1
ElseIfnot(IsNumeric(request("page")))Then
int_curpage=1
ElseIfCInt(Trim(request("page")))<1Then
int_curpage=1
Else
Int_curpage=CInt(Trim(request("page")))
EndIf
EndSub
====================================================================
ShowPage创立分页导航条
有首页、前一页、下一页、末页、另有数字导航
=====================================</p>因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。还无法完全实现一些企业级的功能：完全的集群、负载均横。 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。
页:
[1]