ASP网页编程之ASP典范分页类
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件，简单易用，无需专业技术支持。分页=====================================================================XDOWNPAGEASP版本
版本1.00
Codebyzykj2000
Email:zykj_2000@163.net
BBS:http://bbs.513soft.net
本程序能够无偿使用、修正，但愿我的程序能为您的事情带来便利
但请保存以上请息
程序特性
本程序次要是对数据分页的部分举行了封装，而数据显现部分完整由用户自界说，
撑持URL多个参数
利用申明
程序参数申明
PapgeSize界说分页每页的纪录数
GetRS前往经由分页的Recordset此属性只读
GetConn失掉数据库毗连
GetSQL失掉查询语句
程序办法申明
ShowPage显现分页导航条,独一的公用办法
例:
包括文件
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)&"
"这里就能够自界说显现体例了
rs.movenext
else
exitfor
endif
next
=====================================================================
ConstBtn_First="9"界说第一页按钮显现款式
ConstBtn_Prev="3"界说前一页按钮显现款式
ConstBtn_Next="4"界说下一页按钮显现款式
ConstBtn_Last=":"界说最初一页按钮显现款式
ConstXD_Align="center"界说分页信息对齐体例
ConstXD_Width="100%"界说分页信息框巨细
ConstXD_Height="20"
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创立分页导航条
有首页、前一页、下一页、末页、另有数字导航
====================================================================
PublicSubShowPage()
Dimstr_tmp
int_totalRecord=XD_RS.RecordCount
Ifint_totalRecord<=0Then
str_error=str_error&"总纪录数为零，请输出数据"
</p>国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? 掌握asp的特性而且一定要知道为什么。 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。 Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。
页:
[1]