ASP网页设计分页类
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在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写得更有效率和更方便重用 不能只是将它停留在纸上谈兵的程度上。 Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。
页:
[1]