|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.分页依据ado记录集主动天生列表和分页,必要师长教师成recordset:rs_Grid
<%
===========================================================
分页类,大致头脑由.Net的DataGrid的利用体例而来
功效:主动天生datagrid列表头和内容,和分页栏
依据网友bubuy(彭湃NoMoneyToBuy)得分页函数修正成类
利用示例:
dimDG
dimUrl
dimFld(2)
dimFldName(2)
dimFldWidth(2)
Fld(0)="ID"
Fld(1)="Title"
Fld(2)="Input_Date"
FldName(0)="编号"
FldName(1)="题目"
FldName(2)="录进日期"
FldWidth(0)="10%"
FldWidth(1)="60%"
FldWidth(2)="30%"
setDG=newDataGrid
DG.DataSource=rs_Grid
DG.titleColor="#DCE19D"
DG.PageSize=1
DG.Fields=Fld
DG.FieldsName=FldName
DG.fieldWidth=FldWidth
Url=request.ServerVariables("URL")&"?Param=testParameter"//存在原有参数的情形
DG.Url=Url
DG.Generate()
=============DesignedBywindancer2003.10.17===============
ClassDataGrid
Privateobj_RecordSetrecordset
Privateint_PageSize每页记录数
两个数组保留数据库字段名和中文称号
PrivateArr_Field数据库字段
PrivateArr_FieldName字段显现称号()
PrivateArr_FieldWidth字段显现宽度
Privatestr_TitleColor表头色彩#efffce
Privatestr_Url哀求的URL
Privatestr_Error堕落信息
PrivateSubClass_Initialize()
int_PageSize=10
str_TitleColor="#ffffff"
str_Error=""
EndSub
===============================================================
属性信息
================================================================
-----------------------------------
数据源,临时只撑持RecordSet
-----------------------------------
PublicPropertyLetdataSource(obj)
setobj_RecordSet=obj
EndProperty
PublicPropertyLetpageSize(intvalue)
int_PageSize=intvalue
EndProperty
PublicPropertyGetpageSize
PageSize=int_Categoryid
EndProperty
PublicPropertyLetFields(Arr)
Arr_Field=Arr
EndProperty
PublicPropertyGetFields
Fields=Arr_Field
EndProperty
PublicPropertyLetfieldsName(Arr)
Arr_FieldName=Arr
EndProperty
PublicPropertyGetfieldsName
fieldsName=Arr_FieldName
EndProperty
PublicPropertyLetfieldWidth(Arr)
Arr_FieldWidth=Arr
EndProperty
PublicPropertyGetfieldWidth
fieldWidth=Arr_FieldWidth
EndProperty
PublicPropertyLettitleColor(strvalue)
str_TitleColor=strvalue
EndProperty
PublicPropertyGettitleColor
titleColor=str_TitleColor
EndProperty
-----------------------------------------------------
这个属性是为了保留Url路径
假如以后路径带有参数,那末就用&Page=x,不然就用?Page=x
------------------------------------------------------
PublicPropertyLetUrl(Strvalue)
str_Url=Strvalue
EndProperty
PublicPropertyGetUrl
Url=str_Url
EndProperty
================================================================
办法
================================================================
----------------------------------------------------------------
显现以后毛病
----------------------------------------------------------------
PrivateSubShowLastError()
response.Write(str_Error)
response.End()
EndSub
----------------------------------------------------------------
Generate()
使用ado分页
-----------------------------------------------------------------
PublicSubGenerate()
----反省参数--------------------------
Check
---------变量声明-----------------------------------
DimFieldCount显现字段
FieldCount=Ubound(Arr_Field)+1
DimCurrentPage以后页
DimPgCount总页数
DimRecCount纪录数,原本用rs.recordCount能够取到,保留上去效力会对照高
DimHasOtherParamURL是不是包括其他参数
DimPageParam以后分页Url参数
DimPageInfomation以后分页形态信息
DimSeperator设置分开符
Seperator=""
-------------处置Url参数---------------------------
ifinstr(str_Url,"?")>0then
HasOtherParam=true
PageParam="&Page="
else
HasOtherParam=false
PageParam="?Page="
endif
----------猎取以后页--------------------------------
CurrentPage=request.QueryString("Page")
ifCurrentPage=""then
CurrentPage=1
else
CurrentPage=Cint(CurrentPage)
endif
-----------处置数据源--------</p>ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用 |
|