利用 getrows 在 asp 中进行数据表格的分段呈现

发布时间：2023-09-05 14:31:05 所属栏目：Asp教程来源：

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

<% Option Explicit %>

<%

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

Dim iStart, iOffset

iStart = Request("Start")

iOf

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

<% Option Explicit %>

<%

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

  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

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!