ASP网页编程之一个超强通用的分页显现函数

缺乏可以共同遵循的行业标准，ASP还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。分页|函数|显现<%
OptionExplicit
Response.Buffer=True
OnErrorResumeNext
DimStarTime,EndTime,Sql_Use,Conn,Db,ConnStr

Rem##########################################################################
Rem##申明：本例中利用的数据库是动网论坛IP数据库##
Rem##假如不想改换能够自行从动网论坛中找。##
Rem##假如想改换数据库，那末你必需修正响应的SQL语句和别的参数##
Rem##公布的该文档中我将JS附加鄙人面了，而且往失落了CSS等，可自行增加啦！##
Rem##########################################################################

StarTime=Timer()

第一次利用请修正本处数据库地点并响应修正data目次中数据库称号
Db="DataBase/iXuEr_Data_PAMS1.mdb"
Db="/DataBase/Ipaddress.mdb"
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(db)

SetConn=Server.CreateObject("ADODB.Connection")
Conn.openConnStr

IfErrThen
Err.Clear
SetConn=Nothing
Response.Write"Thedatabaseconnectionerror,pleasechecktheconnectioncharacterstring."
Response.Write"数据库毗连毛病，请反省毗连字符串。"
Response.End
EndIf

FunctionCloseDB()
Conn.close
SetConn=Nothing
EndFunction
=========================================================
文件：iXuEr_Data_PageShow
功效：将指定命据库的指定项目举行分页读取
工夫：2004-08-29
Guidy
版权：iXuErStudio
=========================================================
Copyright(C)2004-2006114XP.CNAllrightsreserved.
官方网站：HTTP://www.114xp.cn
手艺论坛：HTTP://bbs.114xp.cn
电子信箱：guidy@qq.com,guidy@psysch.com
=========================================================

DimSqlStr,DateNums,PageNums,URLs

SqlStr="SELECT*FROMdv_address"
Conn=Conn
DateNums=20
PageNums=Request("Page")
URLs=""

################################################################################
利用之前必要事后界说这三个函数，依据本人合用情形而定
################################################################################
FunctioniXuEr_Page_DHead()
Response.Write("<hr>表头<hr>")
EndFunction
--------------------------------------------------------------------------------
FunctioniXuEr_Page_DBody(DPS_Rs)
Response.Write("数据："&DPS_Rs("IP1")&"---"&DPS_Rs("IP2")&"---"&DPS_Rs("country")&"---"&DPS_Rs("city")&"<br>")
EndFunction
--------------------------------------------------------------------------------
FunctioniXuEr_Page_DTail()
Response.Write("<hr>表尾<hr>")
EndFunction
################################################################################
CalliXuEr_Data_PageShow(SqlStr,Conn,DateNums,PageNums,URLs)
################################################################################
FunctioniXuEr_Data_PageShow(SqlStr,Conn,DateNums,PageNums,URLs)
=========================================================
函数：iXuEr_Data_PageShow(SqlStr,Conn,DateNums,PageNums,URLs)
功效：将指定命据库的指定项目举行分页读取
参数：SQL语句，数据库链接工具，每页数目，页码，毗连URLs
前往：字符串
工夫：2004-08-29
Guidy
版权：iXuErStudio
=========================================================
Copyright(C)2004-2006114XP.CNAllRightsReserved.
官方网站：http://www.114xp.cn
手艺论坛：http://bbs.114xp.cn
电子信箱：guidy@qq.com,guidy@psysch.com
=========================================================

DimDPS_Rs,DPS_Conn
DimSql
DimPage
DimDPS_i

创立Recordset工具
SetDPS_Rs=Server.CreateObject("Adodb.Recordset")
初始化Sql语句
Sql=SqlStr
DPS_Conn=Conn
实行Sql
DPS_Rs.OpenSql,DPS_Conn,1,3
初始化页面巨细－－每页显现数量
DPS_Rs.PageSize=DateNums
初始化页码
Page=Clng(PageNums)
假如页码小于1，大概没有选择页码，则强迫转到第一页
IfIsNull(Page)OrPage=""ThenPage=1
IfPage<=1thenPage=1
假如页码年夜于最年夜值，则强迫转到最初一页
IfPage>=DPS_Rs.PageCountThenPage=DPS_Rs.PageCount
假如页码不即是1，则跳转至指定页面读取数据
IfPage1then
If(Page-1)*DPS_Rs.Pagesize<DPS_Rs.RecordCountthen
DPS_Rs.Move(Page-1)*DPS_Rs.PageSize
EndIf
EndIf
CalliXuEr_Page_URLs(Page,URLs,DPS_Rs,"DPS_TP1","Page")
数据显现表格头部
CalliXuEr_Page_DHead()
DPS_i=0
DoWhileNotDPS_Rs.eofAndDPS_i<DPS_Rs.Pagesize
数据显现主体部分
CalliXuEr_Page_DBody(D</p>问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。