时间:2021-05-28
<%@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
%>
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
复制代码代码如下:
现有10W条数据,Access数据库保存通过正常提取:复制代码代码如下:http:///test/getrows/show3.asp耗时187.500毫秒,总测
所谓分页显示,也就是将数据库中的结果集人为的分成一段一段的来显示,这里需要两个初始的参数:每页多少条记录($PageSize)?当前是第几页($CurrentP
asp.net操作access数据库是常见的数据库操作应用,本文就来实例讲解一下asp.net实现access数据库分页的方法。希望对大家的asp.net程序设
本文实例讲述了PHP+MySQL统计该库中每个表的记录数并按递减顺序排列的方法。分享给大家供大家参考,具体如下:这是一段简单的代码,可实现统计该数据库中每个表的