asp中通过getrows实现数据库记录分页的一段代码 -pc6资讯

您的位置：首页 → 技术开发 → ASP技巧 → asp中通过getrows实现数据库记录分页的一段代码

asp中通过getrows实现数据库记录分页的一段代码 时间：2004/11/7 4:12:00来源：本站整理作者：蓝点我要评论(0)

<%@ 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 & "
"

  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 "
"

  Next

  Response.Write "

"

  if iStart > 0 then

    'Show Prev link

    Response.Write "Previous " & iOffset & ""

  end if

  if iStop < iRows then

    'Show Next link

    Response.Write " Next " & iOffset & ""

  end if

%>

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。