怎样用ASP统计查询记录的总数

Posted 2023-04-07

参考技术A 1. ASP与Access数据库连接： <%@ language=VBscript%> <% dim conn,mdbfile mdbfile=server.mappath("数据库名称.mdb") set conn=server.createobject("adodb.connection") conn.open "driver=microsoft access driver (*.mdb);uid=admin;pwd=数据库密码;dbq="&mdbfile %>
2. ASP与SQL数据库连接： <%@ language=VBscript%> <% dim conn set conn=server.createobject("ADODB.connection") con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称 %> 建立记录集对象： set rs=server.createobject("adodb.recordset") rs.open SQL语句,conn,3,2
3. SQL常用命令使用方法： (1) 数据记录筛选： sql="select * from 数据表 where 字段名=字段值 order by 字段名 [desc]" sql="select * from 数据表 where 字段名 like '%字段值%' order by 字段名 [desc]" sql="select top 10 * from 数据表 where 字段名 order by 字段名 [desc]" sql="select * from 数据表 where 字段名 in ('值1','值2','值3')" sql="select * from 数据表 where 字段名 between 值1 and 值2" (2) 更新数据记录： sql="update 数据表 set 字段名=字段值 where 条件表达式" sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式" (3) 删除数据记录： sql="delete from 数据表 where 条件表达式" sql="delete from 数据表" (将数据表所有记录删除) (4) 添加数据记录： sql="insert into 数据表 (字段1,字段2,字段3 …) values (值1,值2,值3 …)" sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表) (5) 数据记录统计函数： AVG(字段名) 得出一个表格栏平均值 COUNT(*ψ侄蚊) 对数据行数的统计或对某一栏有值的数据行数统计 MAX(字段名) 取得一个表格栏最大的值 MIN(字段名) 取得一个表格栏最小的值 SUM(字段名) 把数据栏的值相加 引用以上函数的方法： sql="select sum(字段名) as 别名 from 数据表 where 条件表达式" set rs=conn.excute(sql) 用 rs("别名") 获取统的计值，其它函数运用同上。 (5) 数据表的建立和删除： CREATE TABLE 数据表名称(字段1 类型1(长度),字段2 类型2(长度) …… ) 例：CREATE TABLE tab01(name varchar(50),datetime default now()) DROP TABLE 数据表名称 (永久性删除一个数据表)
4. 记录集对象的方法：
rs.movenext 将记录指针从当前的位置向下移一行
rs.moveprevious 将记录指针从当前的位置向上移一行
rs.movefirst 将记录指针移到数据表第一行
rs.movelast 将记录指针移到数据表最后一行
rs.absoluteposition=N 将记录指针移到数据表第N行
rs.absolutepage=N 将记录指针移到第N页的第一行
rs.pagesize=N 设置每页为N条记录
rs.pagecount 根据 pagesize 的设置返回总页数
rs.recordcount 返回记录总数
rs.bof 返回记录指针是否超出数据表首端，true表示是，false为否
rs.eof 返回记录指针是否超出数据表末端，true表示是，false为否
rs.delete 删除当前记录，但记录指针不会向下移动
rs.addnew 添加记录到数据表末端
rs.update 更新数据表记录本回答被提问者采纳

ASP 翻页程序中,怎么统计,共有多少条记录和当前页有多少条记录

1.共有多少记录：rs.RecordCount
2.当前页多少记录：
分两种情况 当前页记录满的时候就是你设置的每页记录数，如果当前页记录不满就用页数和每页记录数还有记录总数来判断。
我给你一个同用的过程。
Function CurPageRCount(rCount,cPage,PNum)
if rCount < PNum then
CurPageRCount=rCount
else
if rCount < rCount * rCount then
CurPageRCount=rCount - (cPage-1) *PNum
else
CurPageRCount=PNum
End if
End if
End Function

rCount 是记录总数
cPage 是当前页码
PNum 是每页显示的记录数 参考技术A 共有多少条记录:用记录集的recordcount属性就可以了，当前多少页统计的方法较多，也不是很难，你最好看个例子就明白了。 参考技术B 一种理论上最快的Web数据库分页方法
2001:12:3

上篇我们谈到了关于数据库传统的三种分页方法和他们的利弊，并且提出了一种理论上最佳的分页方法,本篇我们就来详细说说这种最佳的分页方法。

一：构思。
在设计Web数据库时，如果我们要编历每一条纪录，那么只有采取分页模式才可以使Web数据库尽快，尽好的呈现给终端用户，也不会因为8秒原则而使用户失去浏览该页的兴趣。但是即使采取分页的办法，当出现多纪录的数据库时，也难免会使我们的用户感到翻页时速度太慢。就如同我的上篇文章说的那样，几乎上一片文章的三种分页方法都有一些缺陷。那么，我们如何做到能让数据库每次就取我们需要的纪录，这个很好实现，有游标返回多个纪录集就可以实现，但是如果让数据库的一端不会因为要刚好检索一页的纪录而大耗资源就很难了。最后，经过我的不断改写程序与测试，终于编写出了我认为理论上最快的Web数据库分页方法。

二：具体实现的存储过程。
我们结合一个BBS问题来谈谈这种方法。如何让一个BBS每次每页只现实需要的一页纪录呢？而我们需要提供给数据库有那些参数呢？可能会有以下参数。
第一：就是我们需要的当前的页数。
第二：当前定义的每一页的纪录集数目。这样你就可以根据需要在页面程序中修改每一页的纪录数。当然，如果你不考虑程序的可扩展性，你也可以在数据库里直接规定每一页有N条纪录即可。
第三：一个输出参数：就是从数据库里得出当前表中总纪录数目的多少。（注意，他不是一个页的纪录数目）他相当于ADO分页法中的Recordcount。如果你不需要总纪录数目可以不用返回他。
我们来看具体存储过程的代码。。。

CREATE PROCEDURE dbo.PRO_pageview
(

@tint_tableid tinyint=1, --这个是BBS的当前版面Id，你可以不用管他。。
@int_pagenow int=0,
@int_pagesize int=0,
@int_recordcount int=0 output --就是得出BBS某个版面的总贴数。。

)

AS
set nocount on

declare @int_allid int
declare @int_beginid int,@int_endid int
declare @int_pagebegin int, @int_pageend int

select @int_allid=count(*) from tab_discuss where tint_level=0 and tint_tableid=@tint_tableid
select @int_recordcount=@int_allid --得出该版面的总贴数

declare cro_fastread cursor scroll
for select int_id from tab_discuss where tint_level=0 and tint_tableid=@tint_tableid order by int_id desc --这里定义游标操作，但是不用临时纪录集，而且游标也不需要全部遍历所有纪录集。

open cro_fastread --打开游标
select @int_beginid=(@int_pagenow-1)*@int_pagesize+1 得出该页的第一个纪录Id
select @int_endid = @int_beginid+@int_pagesize-1 得出该页的最后一个纪录的Id

fetch absolute @int_beginid from cro_fastread into @int_pagebegin 将他的Id传给一个变量该页开始的Id
if @int_endid>@int_allid --这里要注意，如果某一页不足固定页数的纪录时。如只有一页纪录，而且纪录少于我们定义的数目。或者是最后一页时。。。
fetch last from cro_fastread into @int_pageend --直接将游标绝对定位到最后一条纪录，得出他的id号来。。。
else
fetch absolute @int_endid from cro_fastread into @int_pageend

select int_id,tint_level,tint_children,var_face,var_subject,datalength(txt_content) as int_len,sint_hits,var_url,var_image,var_user,dat_time,tint_tableid,bit_kernul from tab_discuss where tint_tableid=@tint_tableid and int_rootid between @int_pageend and @int_pagebegin order by int_rootid desc,num_order desc --我们就可以利用该页的第一个id和最后一个id得出中间的id来。。。。（注意。我们这个BBS的数性结构用了一种很巧妙的算法，就是用一个orderNum浮点数即可完成排序。。。）

--开始清场。。。
close cro_fastread
deallocate cro_fastread

return

我们再看看Asp页面里的程序操作。。。

pagenow=cint(request("pagenow")) --当前的页面。

if pagenow<=0 then pagenow=1
pagesize=10

set cmd=server.CreateObject("adodb.command")
cmd.ActiveConnection=strconn
cmd.CommandType=4
cmd.CommandText="pro_pageview"

cmd.Parameters.Append cmd.CreateParameter("tint_tableid",adInteger,adParamInput,,tint_tableid)
cmd.Parameters.Append cmd.CreateParameter("int_pagenow",adInteger,adParamInput,,pagenow)
cmd.Parameters.Append cmd.CreateParameter("int_pagesize",adInteger,adParamInput,,pagesize)
cmd.Parameters.Append cmd.CreateParameter("int_recordcount",adInteger,adParamOutput)

set rs=cmd.Execute
if rs.eof then
Response.Write "目前已超过了纪录个数或纪录集为空！"
Response.End
end if

dim arrRs
arrRs=rs.getrows '可以利用getRows将纪录集迅速保存到一个二维的数组中来提高速度。

recordcount=cmd.Parameters("int_recordcount")
'注意，当纪录不足以刚好整除单位页纪录时，我们也要将其定义为一页，如纪录数目为2页多一个纪录，此时我们的页数也要为3页纪录。
if (recordcount mod pagesize)=0 then
pagecount=recordcount\pagesize
else
pagecount=recordcount\pagesize+1
end if

<--分页开始 -->
固定的分页函数，其实无非是pagenow+1或pagenow-1,pagenow,pagecount

三：特点
我们来看看他和传统的三种方法的区别与特点
第一：每次只传回一页纪录，而且只形成一个纪录集，而且客户端可以采用速度最快的火线游标来完成页面输出。而不必像传统的游标法用rs.nextrecordset纪录来输出纪录。
第二：数据库没有用到临时表，这样比转储纪录集的速度大大提高。
第三：采用一个滚动游标，而且游标只经过二个操作就完成定位。速度也大大提高。

当我采用了这种分页方法时，已经可以明显的感觉出分页速度的提高了。当然，在处理树型结构，数据库运算时，我采用了许多方法尽可能的提高速度，如：采用二分区间法来编历树型结构，全部采用存储过程来实现一切sql操作，采用触发器和数据库游标来完成数据库算法，这样就尽量避免过多的网络传输。任何操作只和数据库进行一次参数传递就可以完成。