开发学院WEB开发ASP asp中通过getrows实现数据库记录分页的一段代码 阅读

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

 2002-08-26 10:23:44 来源:WEB开发网   
核心提示:<%@ Language = VBSCRipT %><% Option Explicit %><%rem 在asp中通过getrows实现数据库记录分页的一段代码Dim iStart, iOffsetiStart = Request("Start")iOffset =
<%@ 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 

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

Tags:asp 通过 getrows

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接