asp+access 分页显示代码

2025-01-09 01:34:42

推荐回答（4个）

回答1：

这是我的.这里面的翻页我是用两个箭头符号表示的,你可能看不起,你自己改成自己的图片,或文字.是这,

保存为.ind.asp.不然会报错,另外,数据库就看你的了.我的库连接在包含文件里面,就不想拿了,你自己换成你的.

我试好了的,

<%

set rs1=server.createobject("ADODB.Recordset")

sq="select * from y_blogarticle order by y_blogpublishtime"
rs1.open sq,conn,1,1
rs1.pagesize=10 '定义一页显示的记录数目
tatalrecord=rs1.recordcount '获取记录总数目
tatalpages=rs1.pagecount '获取分页的数目
rs1.movefirs1t

nowpage=request.querystring("move") '用request获取当前页数，

if nowpage="" then '处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage)
end if

rs1.absolutepage=nowpage '将指针移动到当前显示页的第一条记录

response.write("

")

n=1
do while not rs1.eof and not rs1.bof and n<=rs1.pagesize
contet=left(rs1("y_blogcontent"),300)
content=HEncode(contet)

response.write("")

response.write("")

response.write("")

n=n+1
rs1.movenext
loop
response.write("

"&rs1("y_blogsubject")&" ["&rs1("y_blogpublishtime")&" | "&rs1("y_blogcategoryid")&"]

"&content&"

阅读全文.....

作者:小子叶欣 | 分类: "&rs1("y_blogcategoryid")&" | 评论: "&rs1("y_blogfeedbacknum")&" | 查看: "&rs1("y_blogviewnum")&"

")

rs1.close
set rs1=nothing

%>

共:<%=tatalpages%>页 |
当前为:第<%=nowpage%>页
首页

<%for k=1 to tatalpages%>

[<%=k%>]

<%next%>

末页

回答2：

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

分页显示

<%
Dim db
Set db = Server.CreateObject("Adodb.Connection")
db.Open"Driver={Microsoft Access Driver (*.mdb)};Dbq="&Server.MapPath("db.mdb")
Dim rs,str
Dim pSize,pNum,pCount
Dim flag,k
Set rs = Server.CreateObject("ADODB.Recordset")
str = "select ProductName from Products"
rs.open str,db,1
pSize = 3
If request.QueryString("pNum") = "" Then
pNum = 1
Else
pNum = Cint(request.QueryString("pNum"))
End If
Session("pNum") = pNum
rs.pagesize = pSize
pCount = rs.pagecount
rs.absolutepage = pNum
flag = pSize
Do while not rs.eof and flag > 0
flag = flag - 1
response.Write rs("ProductName")
response.Write("
")
rs.movenext
Loop
For k = 1 to pCount
If k = Session("pNum") then
response.Write(k & " - ")
Else
response.Write("" & k & " - ")
End If
Next
%>

注释：pSize(每页显示记录数) pNum(当前页码) pCount(页数)
其他若有看不懂的可以再问，时间比较匆忙，只是实现了功能，不美观，请见谅。
补充：我的例子中是只读取了表中的一个字段，你要显示好几项只需修改SQL语句，然后用rs("字段名")显示就可以了啊

回答3：

我虽然不会ASP，但是分页方法是相同的，有几种方法可以实现分页效果。比如说通过数据库表中的ID编号，用会话级的变量记录下，然后往后读取你需要一页显示的行数的数据。

回答4：

For k = 1 to pCount
If k = Session("pNum") then
response.Write(k & " - ")
Else
response.Write("" & k & " - ")
End If
Next
%>

请问楼上alex840115 这里要做什么?看不明白?

最新问答

听说二战期间，中国上海人救过犹太人

我的引物1Tm值是58.2，引物2Tm值是61，用这对引物进行PCR反应退火温度应该设定为多少，求大神解答。

从郑州火车站到郑州市人才交流中心坐几路车到？

有什么办法可以控制小孩子们看的电视节目？

动漫人物名字有哪些？

徐达、常遇春草根出身的人精通兵法是为什么？

八王之乱、安史之乱、靖康之变、土木之变分别发生在哪个朝代？要精确

起初,舞龙是为了( ).时至今日,舞龙不但( ),而且成为( ).填空求答案

1010打印机打出来一张白纸怎么回事

新买的卡西欧CTK7200电子琴要出售值多少钱?