手机
当前位置:查字典教程网 >编程开发 >ASP教程 >在asp中通过getrows实现数据库记录分页的一段代码
在asp中通过getrows实现数据库记录分页的一段代码
摘要:复制代码代码如下:

复制代码 代码如下:<%@Language=VBSCRIPT%>

<%OptionExplicit%>

<%

rem在asp中通过getrows实现数据库记录分页的一段代码

DimiStart,iOffset

iStart=Request("Start")

iOffset=Request("Offset")

ifNotIsNumeric(iStart)orLen(iStart)=0then

iStart=0

else

iStart=CInt(iStart)

endif

ifNotIsNumeric(iOffset)orLen(iOffset)=0then

iOffset=30

else

iOffset=Cint(iOffset)

endif

Response.Write"Viewing"&iOffset&"recordsstartingatrecord"&iStart&"<BR>"

DimobjConn,objRS

SetobjConn=Server.CreateObject("ADODB.Connection")

'objConn.Open"DSN=MP3"

dimconnstr

dimdb

db="csnjimageman.mdb"

connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(""&db&"")

objconn.Openconnstr

SetobjRS=Server.CreateObject("ADODB.Recordset")

objRS.Open"SELECT*FROMimageinfo",objConn

DimaResults

aResults=objRS.GetRows

objRS.Close

SetobjRS=Nothing

objConn.Close

SetobjConn=Nothing

DimiRows,iCols,iRowLoop,iColLoop,iStop

iRows=UBound(aResults,2)

iCols=UBound(aResults,1)

IfiRows>(iOffset+iStart)Then

iStop=iOffset+iStart-1

Else

iStop=iRows

EndIf

ForiRowLoop=iStarttoiStop

ForiColLoop=0toiCols

Response.WriteaResults(iColLoop,iRowLoop)&""

Next

Response.Write"<BR>"

Next

Response.Write"<P>"

ifiStart>0then

'ShowPrevlink

Response.Write"<AHREF=""GetRows.asp?Start="&iStart-iOffset&_

"&Offset="&iOffset&""">Previous"&iOffset&"</A>"

endif

ifiStop<iRowsthen

'ShowNextlink

Response.Write"<AHREF=""GetRows.asp?Start="&iStart+iOffset&_

"&Offset="&iOffset&""">Next"&iOffset&"</A>"

endif

%>

【在asp中通过getrows实现数据库记录分页的一段代码】相关文章:

很不错的一个UBB代码

创建一个ASP通用分页类

asp防止网页刷新代码

通过Response.Flush()实现下载失败的解决方法

ASP与数据库,有用的代码(转贴,摘贴)

一个简单的asp数据库操作类

在线管理数据库 类

ASP开发中数据库文件调用的捷径

ASP中通过该日历算法实现的具体代码

asp连接sqlserver数据库实现代码

精品推荐
分类导航