asp中表的查询并分页的代码 的提问

<%if rseof and rsbof then

responsewrite("没有")

else

for iii=1 to rspagesize

%>

上面的代码有个问题:

你判断的rseof在外,面for循环在内,则在第三页时, if条件为真(存在第7条),而for中的rsmovenext却要到第8,第9条因此,你要在for循环内用if rseof的判断,而不是在for的外面

<%nr=文章内容page_size=每页截取的文字数目if trim(request("page"))<>"" then '读取当前页面的页码page=cint(trim(request("page")))elsepage=1end if'开始计算文章分页nr_cd=len(nr) '首先算出文章一共有多少个文字if nr_cd mod page_size <>0 then '计算一共多少页page_count=int(nr_cd/page_size)+1elsepage_count=int(nr_cd/page_size)end ifif page=1 then '计算本页文章从第几个文字开始page_start=1elsepage_start=((page-1)page_size)+1end ifpage_end=page_start+page_siz-1if page<>page_count then '开始计算本页提取文字的内容by_nr=mid(nr,page_start,page_end)elseby_nr=mid(nr,page_start)end ifresponsewrite("本页内容为：

"&ny_nr&"")'开始分页%> 要学会做网站先要学会采集网站内容，推荐使用火车头，有免费版和收费板看你需要那些功能而已！你可以到火车头官方网站注册个帐号然后学习采集。火车头官方网站是 >

这个能实现啊，程序你可以根据自己的实际情况来写，也可以用现成的类，我写了一个这样的程序，但是不是很好，有很多的BUG，我也就不拿出来出丑了~~

这个是我自己写的，程序是强行在你指定的地方分页，我正在考虑怎样才能只能的分页

<%

'//===================================================

' 海沙原创文章分页类v10

' 作者 海沙

' 说明 此分程序为海沙原创，使用时请注明作者。

' 本程序为原创，难免存在bug，还望指出。

' 程序修改后请发我一份

' QQ：287394875

' E-mail：yyrcjc@sinacom

'//===================================================

num=10'设置每页显示的字数

content="测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试1测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试2测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试3测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试"

if not isempty(request("page")) then'获取当前页数

page=cint(request("page"))

if page>(len(content)/num)+1 then

page=(len(content)/num)+1

end if

else

page=1

end if

page=page-1

textcontent=mid(content,numpage+1,num)'提取当前页内容

responseWrite textcontent&"<br>"

for i=1 to (len(content)/num)+1

responseWrite("<a href=aasppage="&i&">第"&i&"页</a>")

next

responseWrite len(textcontent)%>

1共有多少记录：rsRecordCount

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 是每页显示的记录数

也许有点多,慢慢看吧,祝你成功!!~~

一VBScript语法简介

VBScript语句是一种基于VB的一种脚本语言,主要用于WEB服务器端的程序开发,我们

这里只介绍一些简单的语句，主要是 *** 作数据库的几种常见的语句

<1>vbscript的标识

<%

语句

……

%>

<2>定义变量dim语句

<%

dim a,b

a=10

b=”ok!”

%>

注意：定义的变量可以是数值型，也可以是字符或者其他类型的

<3>简单的控制流程语句

1 If 条件1 then

语句1

elseif 条件2 then

语句2

else

语句3

endif

2while 条件

语句

wend

3for count=1 to n step m

语句1

exit for

语句2

next

二ASP数据库简单 *** 作教程

<1>数据库连接(用来单独编制连接文件connasp)

<%

Set conn = ServerCreateObject("ADODBConnection")

connOpen "DRIVER={Microsoft Access Driver (mdb)}; DBQ=" & ServerMapPath("\bbs\db1\usermdb")

%>

(用来连接bbs\db1\目录下的usermdb数据库)

<2>显示数据库记录

原理：将数据库中的记录一一显示到客户端浏览器，依次读出数据库中的每一条记录

如果是从头到尾：用循环并判断指针是否到末 使用: not rseof

如果是从尾到头：用循环并判断指针是否到开始 使用：not rsbof

<!--#include file=connasp--> (包含connasp用来打开bbs\db1\目录下的usermdb数据库)

<%

set rs=serverCreateObject("adodbrecordset") (建立recordset对象)

sqlstr="select from message" ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)

rsopen sqlstr,conn,1,3 ---->(表示打开数据库的方式)

rsmovefirst ---->(将指针移到第一条记录)

while not rseof ---->(判断指针是否到末尾)

responsewrite(rs("name")) ---->(显示数据表message中的name字段)

rsmovenext ---->(将指针移动到下一条记录)

wend ---->(循环结束)

------------------------------------------------------

rsclose

connclose 这几句是用来关闭数据库

set rs=nothing

set conn=nothing

-------------------------------------------------------

%>

其中response对象是服务器向客户端浏览器发送的信息

<3>增加数据库记录

增加数据库记录用到rsaddnew,rsupdate两个函数

<!--#include file=connasp--> (包含connasp用来打开bbs\db1\目录下的usermdb数据库)

<%

set rs=serverCreateObject("adodbrecordset") (建立recordset对象)

sqlstr="select from message" ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)

rsopen sqlstr,conn,1,3 ---->(表示打开数据库的方式)

rsaddnew 新增加一条记录

rs("name")="xx" 将xx的值传给name字段

rsupdate 刷新数据库

------------------------------------------------------

rsclose

connclose 这几句是用来关闭数据库

set rs=nothing

set conn=nothing

-------------------------------------------------------

%>

<4>删除一条记录

删除数据库记录主要用到rsdelete,rsupdate

<!--#include file=connasp--> (包含connasp用来打开bbs\db1\目录下的usermdb数据库)

<%

dim name

name="xx"

set rs=serverCreateObject("adodbrecordset") (建立recordset对象)

sqlstr="select from message" ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)

rsopen sqlstr,conn,1,3 ---->(表示打开数据库的方式)

-------------------------------------------------------

while not rseof

if rs("name")=name then

rsdelete

rsupdate 查询数据表中的name字段的值是否等于变量name的值"xx"，如果符合就执行删除，

else 否则继续查询,直到指针到末尾为止

rsmovenext

emd if

wend

------------------------------------------------------

------------------------------------------------------

rsclose

connclose 这几句是用来关闭数据库

set rs=nothing

set conn=nothing

-------------------------------------------------------

%>

<5>关于数据库的查询

( a ) 查询字段为字符型

<%

dim user,pass,qq,mail,message

user=requestForm("user")

pass=requestForm("pass")

qq=requestForm("qq")

mail=requestForm("mail")

message=requestForm("message")

if trim(user)&"x"="x" or trim(pass)&"x"="x" then (检测user值和pass值是否为空，可以检测到空格)

responsewrite("注册信息不能为空")

else

set rs=serverCreateObject("adodbrecordset")

sqlstr="select from user where user='"&user&"'" (查询user数据表中的user字段其中user字段为字符型)

rsopen sqlstr,conn,1,3

if rseof then

rsaddnew

rs("user")=user

rs("pass")=pass

rs("qq")=qq

rs("mail")=mail

rs("message")=message

rsupdate

rsclose

connclose

set rs=nothing

set conn=nothing

responsewrite("注册成功")

end if

rsclose

connclose

set rs=nothing

set conn=nothing

responsewrite("注册重名")

%>

( b )查询字段为数字型

<%

dim num

num=requestForm("num")

set rs=serverCreateObject("adodbrecordset")

sqlstr="select from message where id="&num (查询message数据表中id字段的值是否与num相等，其中id为数字型)

rsopen sqlstr,conn,1,3

if not rseof then

rsdelete

rsupdate

rsclose

connclose

set rs=nothing

set conn=nothing

responsewrite("删除成功")

end if

rsclose

connclose

set rs=nothing

set conn=nothing

responsewrite("删除失败")

%>

<6>几个简单的asp对象的讲解

response对象:服务器端向客户端发送的信息对象,包括直接发送信息给浏览器,重新定向URL，或设置cookie值

request对象:客户端向服务器提出的请求

session对象:作为一个全局变量，在整个站点都生效

server对象：提供对服务器上方法和属性的访问

( a ) response对象的一般使用方法

比如：

<%

resposnewrite("hello, welcome to asp!")

%>

在客户端浏览器就会看到 hello, welcome to asp! 这一段文字

<%

responseRedirect(">

以上就是关于asp中表的查询并分页的代码 的提问全部的内容，包括:asp中表的查询并分页的代码 的提问、asp中如何实现长文章自动分页显示、在ASP中如何将一篇文章做一个分页显示出来等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！