LimitRows From Database

<%@ LANGUAGE = VBScript %> <%  Option Explicit  %>
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>LimitRows From Database</title>
</head>

<body BGCOLOR="White" topmargin="10" leftmargin="10">

<!-- Display Header -->
<p><font size="4" face="Arial, Helvetica"><b>LimitRows From Database</b></font><br>
</p>
<hr size="1" color="#000000">
<p>Contacts within the Authors Database:<br>
<br>
<%
   Dim oConn 
   Dim oRs  
   Dim curDir  
   Dim Index

   
   ' Map authors database to physical path
   
   curDir = Server.MapPath("authors.mdb")


   ' Create ADO Connection Component to connect
   ' with sample database
   
   Set oConn = Server.CreateObject("ADODB.Connection")
   oConn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & curDir
  
  
   ' Create ADO Recordset Component
   
   Set oRs = Server.CreateObject("ADODB.Recordset")
   Set oRs.ActiveConnection = oConn
   
   
   ' Set Recordset PageSize so that it only
   ' holds 10 rows
   
   oRs.PageSize = 10
   
   
   ' Get recordset
   
   oRs.Source = "SELECT * FROM authors"
   oRs.CursorType = adOpenStatic
   
   
   ' Open Recordset
   oRs.Open
  %> </p>
<table border="1">
  <% 
   Dim RecordCount
   RecordCount = 0
  
   Do while ((Not oRs.eof) And (RecordCount < oRs.PageSize)) %>
  <tr>
    <% For Index=0 to (oRs.fields.count-1) %>
    <td VAlign="top"><% = oRs(Index)%> </td>
    <% Next %>
  </tr>
  <%
     RecordCount = RecordCount + 1
     oRs.MoveNext
   Loop
  %>
</table>
<%  
   oRs.close
   oConn.close
  %>

</body>

</html>

阅读更多
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭