LimitRows From Database

20 篇文章 0 订阅
12 篇文章 0 订阅

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

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值