ASP编程：通用数据分页类
asp，你就只能等着微软给你解决，它不乐意你就只好悲催。而且asp跑在windows服务器上，windows服务器跟linux比起来简直弱爆了！分页|数据通用分页类,今后写分页显现数据时就轻松多啦.间接挪用此类,然后再Execute便可以获得以后页的一切数据.此类所做的事情是只获得以后页的数据,和总页数和总纪录数等等数据.
ASP代码:
<%
/*****************************分页显现类**************************
/*哇哇鱼
/*日期：2004年11月18日
/*感化：获得某一页的数据并前往给内部
/*申明示例：
/*DimMyPage=NewPageClass
/*MyPage.Conn=Conn设置毗连工具
/*MyPage.PageSize=20设置一页显现几条数据(默许为10条)
/*MyPage.CurPage=2设置以后要显现的页码
/*
/*MyPage.TableName="Member"设置表名
/*MyPage.Fields="ID,MemberName,MemberPass"设置显现字段列表
/*MyPage.Condition="ID>100"设置查询前提
/*MyPage.OrderBy="IDDESC"设置排序前提（必定要设置该属性)
/*SetPageRs=MyPage.Execute前往以后第2页的数据(RecordSet工具)，假如堕落则前往Nothing值
/*
/*以上的界说也能够用以下的办法：ExecuteBy("表名","字段列表","查询前提","排序前提")
/*SetPageRs=MyPage.ExecuteBy("Member","ID,MemberName,MemberPass","ID>100","IDDESC")
/*
/*PageCount=MyPage.PageCount前往页码总数
/*RecordCount=MyPage.RecordCount前往纪录总数
/*NextPage=MyPage.NextPage前往下页的页码
/*PrePage=MyPage.PrePage前往上一页的页码
/*****************************************************************
ClassPageClass
PrivateConnection毗连数据库的内部Connection工具
PrivateRs
PrivateList_Fields
PrivateTable_Name
PrivateQuery_Where
PrivateOrderBy_SQL字段排序语句部分
PrivatePage_Count前往以后查询的纪录页总数
PrivatePage_Size设置一页显现几条的纪录
PrivateCur_Page设置以后的页码
PrivateRecord_Count前往以后查询的纪录总数
/****************设置Connection工具****************************
PublicPropertyLetConn(ByRefObjConn)
SetConnection=ObjConn
EndProperty
PublicPropertyGetConn()
SetConn=Connection
EndProperty
/****************End******************************************
/****************设置查询SQL语句*******************************
查询显现字段
PublicPropertyLetFields(ByValValue)
List_Fields=Value
EndProperty
PublicPropertyGetFields()
Fields=List_Fields
EndProperty
查询表名
PublicPropertyLetTableName(ByValValue)
Table_Name=Value
EndProperty
PublicPropertyGetTableName()
TableName=Table_Name
EndProperty
查询前提
PublicPropertyLetCondition(ByValValue)
Query_Where=Value
EndProperty
PublicPropertyGetCondition()
Condition=Query_Where
EndProperty
*****************排序部分********************************************
Value语不必写上OrderBy。如：.OrderBy="IDDesc,PostTimeAsc"
PublicPropertyLetOrderBy(ByValValue)
OrderBy_SQL=Value
EndProperty
PublicPropertyGetOrderBy()
OrderBy=OrderBy_SQL
EndProperty
/****************End******************************************
/****************前往以后查询了局的总页数***********************
PublicPropertyGetPageCount()
PageCount=Page_Count
EndProperty
PublicPropertyGetRecordCount()
RecordCount=Record_Count
EndProperty
PublicPropertyGetNextPage()
IfCur_Page<Page_CountThen
NextPage=Cur_Page+1
Else
NextPage=Page_Count
EndIf
EndProperty
PublicPropertyGetPrePage()
IfCur_Page>1Then
PrePage=Cur_Page-1
Else
PrePage=Cur_Page
EndIf
EndProperty
/****************End******************************************
/****************设置一页显现的纪录数***************************
PublicPropertyLetPageSize(ByValValue)
IfNotIsNumeric(Value)OrValue=""Then
Value=10
Else
Value=Cint(Value)
EndIf
IfValue<1ThenValue=10
Page_Size=Value
EndProperty
PublicPropertyGetPageSize()
PageSize=Page_Size
EndProperty
设置以后的页码数**************************
PublicPropertyLetPage(ByValValue)
IfNotIsNumeric(Value)OrValue=""Then
Value=1
Else
Value=CLng(Value)
EndIf
IfValue<1ThenValue=1
Cur_Page=Value
EndProperty
</p>ASP由于使用了COM组件所以它会变的十分强大，但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意，哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失； 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) 尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。 Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")
页:
[1]