手机
当前位置:查字典教程网 >编程开发 >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实现数据库记录分页的一段代码】相关文章:

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

简单过滤一下广告的代码

实现对Access数据库表重命名的一段代码

ASP怎么跟flash结合实现修改数据库内容

asp实现的7xi音乐网的采集源代码

用asp实现批量删除bak文件

ADO 存取数据库时如何分页显示

随机提取Access/SqlServer数据库中的10条记录的SQL语句

限制一个Ip只能访问一次的asp代码

asp下载防盗链代码

精品推荐
分类导航