濮阳杆衣贸易有限公司

主頁 > 知識庫 > asp中通過getrows實(shí)現(xiàn)數(shù)據(jù)庫記錄分頁的一段代碼

asp中通過getrows實(shí)現(xiàn)數(shù)據(jù)庫記錄分頁的一段代碼
熱門標(biāo)簽：萊西電子地圖標(biāo)注 修改地圖標(biāo)注 武夷山旅游地圖標(biāo)注 怎么在地圖標(biāo)注自己 縣域地圖標(biāo)注打印店 金昌電話機(jī)器人價(jià)格 外呼系統(tǒng)API接口 個(gè)人可以辦理400電話么 鳳臺百度地圖標(biāo)注店
%@ Language = VBSCRIPT %>
% Option Explicit %>
%
rem 在asp中通過getrows實(shí)現(xiàn)數(shù)據(jù)庫記錄分頁的一段代碼
Dim iStart, iOffset
iStart = Request("Start")
iOffset = Request("Offset") 


if Not IsNumeric(iStart) or Len(iStart) = 0 then
iStart = 0
else
iStart = CInt(iStart)
end if

if Not IsNumeric(iOffset) or Len(iOffset) = 0 then
iOffset = 30
else
iOffset = Cint(iOffset)
end if

Response.Write "Viewing "  iOffset  " records starting at record "  iStart  "BR>"

Dim objConn, objRS
Set objConn = Server.CreateObject("ADODB.Connection")
'objConn.Open "DSN=MP3"
dim connstr
dim db
db="csnjimageman.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  Server.MapPath(""db"")
objconn.Open connstr

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT * FROM imageinfo", objConn

Dim aResults
aResults = objRS.GetRows

objRS.Close
Set objRS = Nothing

objConn.Close
Set objConn = Nothing


Dim iRows, iCols, iRowLoop, iColLoop, iStop
iRows = UBound(aResults, 2)
iCols = UBound(aResults, 1)

If iRows > (iOffset + iStart) Then
iStop = iOffset + iStart - 1
Else
iStop = iRows
End If

For iRowLoop = iStart to iStop
For iColLoop = 0 to iCols
Response.Write aResults(iColLoop, iRowLoop)  " "
Next
Response.Write "BR>"
Next 

Response.Write "P>"
if iStart > 0 then
'Show Prev link
Response.Write "A HREF=""GetRows.asp?Start="  iStart-iOffset  _
"Offset="  iOffset  """>Previous "  iOffset  "/A>"
end if

if iStop  iRows then
'Show Next link
Response.Write " A HREF=""GetRows.asp?Start="  iStart+iOffset  _
"Offset="  iOffset  """>Next "  iOffset  "/A>"
end if
%> 

  

您可能感興趣的文章:
  • 用GetString提高ASP的速度
  • asp ADO GetString函數(shù)與用GetString來提高ASP的速度
  • asp中在JScript中使用RecordSet對象的GetRows
  • 在asp中通過getrows實(shí)現(xiàn)數(shù)據(jù)庫記錄分頁的一段代碼
  • asp中記錄集對象的getrows和getstring用法分析

標(biāo)簽：上海 通遼 邢臺 涼山 清遠(yuǎn) 楚雄 赤峰 南京

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp中通過getrows實(shí)現(xiàn)數(shù)據(jù)庫記錄分頁的一段代碼》，本文關(guān)鍵詞  asp,中,通過,getrows,實(shí)現(xiàn),；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《asp中通過getrows實(shí)現(xiàn)數(shù)據(jù)庫記錄分頁的一段代碼》相關(guān)的同類信息！
  • 本頁收集關(guān)于asp中通過getrows實(shí)現(xiàn)數(shù)據(jù)庫記錄分頁的一段代碼的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    延吉市| 通河县| 汾西县| 镇原县| 合肥市| 和田县| 五家渠市| 从江县| 巫山县| 博湖县| 花莲县| 临泽县| 徐水县| 班戈县| 井研县| 长垣县| 宜春市| 平顺县| 平乡县| 长乐市| 勃利县| 琼中| 武隆县| 阿克| 独山县| 固阳县| 鸡西市| 南郑县| 锡林郭勒盟| 陕西省| 鄯善县| 禄丰县| 荔波县| 马鞍山市| 巍山| 汕头市| 瑞金市| 石景山区| 东乡县| 尚志市| 景德镇市|