ASP 数据库分页

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%

Response.buffer=false

%>

<!--#include file="./inc/conn.asp"-->

<!--#include file="./inc/const.asp"-->

<!--#include file="./inc/char.asp"-->

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

<title>会员</title>

<link href=./css/main.css rel=stylesheet>

<script language=JavaScript>

<!--

function DoEmpty(params)

{

if (confirm("真的要删除这条记录吗？删除后此记录里的所有内容都将被删除并且无法恢复！"))

window.location = params ;

}

//-->

</script>

</head>

<body>

<br />

<table width="98%" cellspacing="1" cellpadding="3" bgcolor="#999999" align="center">

<tr bgcolor="#CCCCCC" align=center>

  <td colspan="5"><b>信息</b></td>

</tr>

<%

dim pagecount,page,Spage,Epage,recordcount,i

page = request.querystring("page")

if page = "" or IsNull(page) then page = 1

if not IsNumeric(page) then page = 1

page = Cint(page)

set rs = server.CreateObject ("Adodb.recordset")

sql = "select * from goods  order by id asc"

rs.open sql,conn,1,1

recordcount = RS.RecordCount

RS.PageSize = PAGESIZE

pagecount = RS.PageCount

if page < 1 then

    page = 1

elseif page > pagecount then

    page = pagecount

end if

if RS.EOF  then%>

<tr bgcolor="#ffffff" height=20>

  <td colspan="4" ><center><font color=#cc0000>目前还没有任何信息！</font><%if session("userkey")=4 then%> 请[<a href=add.asp?action=addmsg>点击这里</a>]发布信息<%end if%></td>

</tr></table>

<%else%>

<tr bgcolor="#ffffff" height=25><td colspan="4" ></tr>

<%if recordcount > 0 then RS.AbsolutePage = page

  for i = 1 to PAGESIZE

  if RS.EOF then exit for%>

<tr bgcolor="#dddddd"><td width=3%><center><img src=./img/folder.gif></td><td><b><%=rs("goods_id")%></b> (<%=rs("goods_name")%>)</td><td width=10%><center><font color=blue><%=rs("goods_price")%></font></td><td width=10%> |</td></tr>

<%

RS.MoveNext()

next

end if

%>

</table>

<%

if pagecount > 0 then

    response.write("<table width=""95%"" align=center cellspacing=3 cellpadding=3><tr><td align=right>")

    response.write("页次：<font color=red><b>" & page & "</font>/" & pagecount & "</b>  每页<b>" & pagesize & "</b>  共<b>" & recordcount & "</b>条留言  分页：")

    Spage = page mod PARTSIZE

    if page > PARTSIZE then

        if Spage = 0 then Spage = PARTSIZE

        Spage = page - Spage + 1

    else

        Spage = 1

    end if

    Epage = Spage + PARTSIZE - 1

    if Epage > pagecount then Epage = pagecount

    if page > PARTSIZE then

        response.write("<a href=""?page=" & Spage - 1 & """>[<<]</a>")

    end if

    for i = Spage to Epage

        if i = page then

            response.write("[<font color=red><b>" & i & "</b></font>]")

        else

            response.write("[<a href=""?page=" & i & """>" & i & "</a>]")

        end if

    next

    if Epage < pagecount then

        response.write("<a href=""?page=" & Epage + 1 & """>[>>]</a>")

    end if

    if Spage <> 1 then response.write("[<a href=""?page=1"">首页</a>]")

    if Epage <> pagecount then response.write("[<a href=""?&page=" & pagecount & """>尾页</a>]")

    response.write("</td></tr></table><br>")

end if

rs.close

set rs=nothing%>

<script type="text/javascript">

function openwindow(url,name,iWidth,iHeight)

 {

  var url;                            //转向网页的地址;

  var name;                           //网页名称，可为空;

  var iWidth;                         //弹出窗口的宽度;

  var iHeight;                        //弹出窗口的高度;

  //window.screen.height获得屏幕的高，window.screen.width获得屏幕的宽

  var iTop = (window.screen.height-30-iHeight)/2;       //获得窗口的垂直位置;

  var iLeft = (window.screen.width-10-iWidth)/2;        //获得窗口的水平位置;

 // window.open(url,name,'height='+iHeight+',,innerHeight='+iHeight+',width='+iWidth+',innerWidth='+iWidth+',top='+iTop+',left='+iLeft+',toolbar=no,menubar=no,scrollbars=auto,resizeable=no,location=no,status=no');

 openWin(url,name,'height='+iHeight+',,innerHeight='+iHeight+',width='+iWidth+',innerWidth='+iWidth+',top='+iTop+',left='+iLeft+',toolbar=no,menubar=no,scrollbars=auto,resizeable=no,location=no,status=no');

 }

  /**

  * 监听打开的弹窗，关闭后刷新页面

  */

 function openWin(url,text,winInfo){

 	var winObj = window.open(url,text,winInfo);

 	var loop = setInterval(function() {

 	    if(winObj.closed) {

 	        clearInterval(loop);

 	        //alert('closed');

 	        parent.location.reload();

 	    }

 	}, 1);

}

</script>

<hr align="center" width="90%" size="1">

<p align="center" class="style1">

  Powered by wgscd</p>

</body>

</html>

const.asp:

%>

<%

Const PAGESIZE=20

Const PARTSIZE=10

Const AboutSize=8

%>

conn.asp:

<%

	dim conn

	dim connstr

	dim db

	db="./data/goods.mdb"

	Set conn = Server.CreateObject("ADODB.Connection")

	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)

	conn.Open connstr

%>

ASP 数据库分页的更多相关文章

asp.net分页控件
一.说明 AspNetPager.dll这个分页控件主要用于asp.net webform网站,现将整理代码如下二.代码 1.首先在测试页面Default.aspx页面添加引用 <%@ Reg ...
asp.net 分页-自己写分页控件
去年就发表过asp.net 分页-利用后台直接生成html分页 ,那种方法只是单纯的实现了分页,基本不能使用,那时就想写个自己的分页控件,无奈能力有限.最近有点时间了,就自己做出了这个分页控件.我承认 ...
浅谈SQL Server数据库分页
数据库分页是老生常谈的问题了.如果使用ORM框架,再使用LINQ的话,一个Skip和Take就可以搞定.但是有时由于限制,需要使用存储过程来实现.在SQLServer中使用存储过程实现分页的已经有很多 ...
各种数据库分页sql
1.oracle数据库分页 select * from (select a.*,rownum rc from 表名 where rownum<=endrow) a where a.rc>= ...
Oracle数据库和DB2数据库分页SQL的区别举例
--------------------------ORACLE数据库分页SQL举例------------------------------------------------ SELECT * ...
MySQL、SqlServer、Oracle三大主流数据库分页查询
在这里主要讲解一下MySQL.SQLServer2000(及SQLServer2005)和ORCALE三种数据库实现分页查询的方法.可能会有人说这些网上都有,但我的主要目的是把这些知识通过我实际的应用 ...
Sqlserver数据库分页查询
Sqlserver数据库分页查询一直是Sqlserver的短板,闲来无事,想出几种方法,假设有表ARTICLE,字段ID.YEAR...(其他省略),数据53210条(客户真实数据,量不大),分页查询 ...
Statement和PreparedStatement的特点 MySQL数据库分页存取大对象批处理获取数据库主键值
1 Statement和PreparedStatement的特点 a)对于创建和删除表或数据库,我们可以使用executeUpdate(),该方法返回0,表示未影向表中任何记录 b)对于创建和 ...
(转)asp.net分页存储过程
Asp.Net分页存储过程 SQL分页语句一.比较万能的分页: sql代码: 1 2 3 select top 每页显示的记录数 * from topic where id not in (sel ...

随机推荐

Tarjan水题系列(4):HAOI2010 软件安装
题目: 现在我们的手头有N个软件,对于一个软件i,它要占用Wi的磁盘空间,它的价值为Vi.我们希望从中选择一些软件安装到一台磁盘容量为M计算机上,使得这些软件的价值尽可能大(即Vi的和最大). ...
SCUT - 482 - 生成树上的点 - Prufer
https://scut.online/p/482 没听说过这个东西. 洛谷也有这个,所以还是要去接触一些奇奇怪怪的知识才行. https://www.luogu.org/problem/P2290 ...
@Transactional实现原理
Transactional是spring中定义的事务注解,在方法或类上加该注解开启事务.主要是通过反射获取bean的注解信息,利用AOP对编程式事务进行封装实现.AOP对事务的封装可以看我的这篇文章的 ...
k3 cloud凭证过账的时候提示凭证号不连续
解决办法:进入凭证查询页面,点击凭证业务操作下面的凭证整理提交整理完成即可
豆壳CMS本地安装教程
DouPHP安装教程一.下载DouPHP程序. 解压后得到三个文件夹将upload文件夹里面的内容复制到wamp的www的文件夹. 二.打开浏览器,输入127.0.0.1. 勾选后选择下一步注意 ...
Django rest_frameword 之项目流程
后端开发软件目录规范一.Model from django.db import models # Create your models here. # 多表的设计 # 图书作者出版社作者详情表 ...
用R语言提取数据框中日期对应年份（列表转矩阵）
用R语言提取数据框中日期对应年份(列表转矩阵) 在数据处理中常会遇到要对数据框中的时间做聚类处理,如从"%m/%d/%Y"中提取年份. 对应操作为:拆分成列表——列表转矩阵——利用 ...
Codeforces 920 反图联通块线段树质因数暴力
A #include <bits/stdc++.h> #define PI acos(-1.0) #define mem(a,b) memset((a),b,sizeof(a)) #def ...
hdu 3530 单调队列最值
/** HDU 3530 单调队列的应用题意: 给定一段序列,求出最长的一段子序列使得该子序列中最大最小只差x满足m<=x<=k. 解题思路: 建立两个单调队列分别递增和递减维护(头尾删 ...
web框架-（四）Django进阶之数据库对象关系映射
Django ORM基本配置到目前为止,当我们的程序涉及到数据库相关操作时,我们一般都会这么搞: 创建数据库,设计表结构和字段使用 MySQLdb 来连接数据库,并编写数据访问层代码业务逻辑层去 ...

ASP 数据库分页

ASP 数据库分页的更多相关文章

随机推荐

热门专题