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

代码如下:

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

赞 (0)

相关推荐

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

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

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

    复制代码 代码如下: <%@ Language = VBSCRIPT %>  <% Option Explicit %>  <%  rem 在asp中通过getrows实现数据库记录分页的一段代码    Dim iStart, iOffset    iStart = Request("Start")    iOffset = Request("Offset") if Not IsNumeric(iStart) or Len(iStart

  • ASP中怎么实现SQL数据库备份、恢复！

    1.ASP中怎么实现SQL数据库备份.恢复! 答:asp在线备份sql server数据库: 1.备份 <% SQL="backup database 数据库名 to disk='"&Server.MapPath("backup")&"\"&"backuptext.dat"&"'" set cnn=Server.createobject("adodb.conn

  • 在asp中通过vbs类实现rsa加密与解密的代码

    在asp中通过vbs类实现rsa加密与解密,建议入精华 本文章有两文件组成 test.asp 测试演示文件 clsrsa.asp 实现rsa加密与解密的vbs类文件 下面是代码: 1. test.asp  复制代码 代码如下: <%  rem 文章标题:在asp中通过vbs类实现rsa加密与解密  rem 收集整理:yanek  rem 联系:aspboy@263.net %>  <%Option Explicit%>  <!--#INCLUDE FILE="cls

  • asp中command的在单条记录时,有些字段显示为空的问题

    edit_rs_cmd.CommandText = "SELECT * FROM dbo.usertable WHERE id = ?" 这时候要把不能显示的字段,在放到sql中,显示出来 edit_rs_cmd.CommandText = "SELECT *,[不能显示的字段],[不能显示的字段], FROM dbo.usertable WHERE id = ?" 后来又找到的方法 edit_rs.Fields.Item("opentime")

  • asp.net下经典数据库记录分页代码

    1.       SELECT TOP PAGESIZE NEWSTITLE FORM NEWSINFO WHERE NEWSID NOT IN (SELECT TOP (PAGE-1)* PAGESIZE NEWSID FROM NEWSINFO WHERE Auditing=1 and NEWSBREED='企业新闻' order by NEWSID DESC) AND Auditing=1 and NEWSBREED='企业新闻' order by NEWSID DESC 其中:PAGE表

  • ASP.NET下上传图片到数据库，并且读出图片的代码(详细版)

    首先在SQL Server中建立一个图片存储的数库表,ImageData Column为图象二进制数据储存字段,ImageContentType Column为图象文件类型记录字段,ImageDescription Column为储蓄图 象文件说明字段,ImageSize Column为储存图象文件长度字段,结构如下: 复制代码 代码如下: CREATE TABLE [dbo].[ImageStore] ( [ImageID] [int] IDENTITY (1, 1) NOT NULL , [

  • asp.net得到本机数据库实例的两种方法代码

    复制代码 代码如下: <%@ Page Language="C#" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><script runat="server">  protected void

  • php的header和asp中的redirect比较

    asp中实现重定向是用response.redirect 函数: 用法一例: response.redirect "../test.asp" php中也有类似函数:header 用法一例: header("location:../test.php"); 但是两者是有区别的. asp的redirect函数可以在向客户发送头文件后起作用. 如 <html><head></head><body> <%response.

  • 在Python中使用MongoEngine操作数据库教程实例

    在Python中使用MongoEngine操作数据库教程实例

    这篇文章主要介绍了在Python中使用MongoEngine操作数据库教程实例,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下 pymongo来操作MongoDB数据库,但是直接把对于数据库的操作代码都写在脚本中,这会让应用的代码耦合性太强,而且不利于代码的优化管理 一般应用都是使用MVC框架来设计的,为了更好地维持MVC结构,需要把数据库操作部分作为model抽离出来,这就需要借助MongoEngine MongoEngine是一个对象文档映射

随机推荐