asp+access 分页显示代码
小弟菜鸟一个,急求一段能分页显示的代码,越完整越好.最好把连接代码以及数据库包含内容详细列举.测试成功后马上送分,谢谢大家帮助哈,我还是比较习惯边看代码边学习的方式.大虾...
小弟菜鸟一个,急求一段能分页显示的代码,越完整越好.最好把连接代码以及数据库包含内容详细列举.测试成功后马上送分,谢谢大家帮助哈,我还是比较习惯边看代码边学习的方式.
大虾可以再修改下么,你的代码只能显示数据表里面的第一项,如果我有多项内容该怎么修改啊,我已经提高了悬赏分数了哈,你帮我解决了就送分,谢谢哈. 展开
大虾可以再修改下么,你的代码只能显示数据表里面的第一项,如果我有多项内容该怎么修改啊,我已经提高了悬赏分数了哈,你帮我解决了就送分,谢谢哈. 展开
展开全部
这是我的.这里面的翻页我是用两个箭头符号表示的,你可能看不起,你自己改成自己的图片,或文字.是这,<a href="ind.asp?move=<%=nowpage-1%>"><img src="images\bgimage\icon_le.gif"></a>
保存为.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("<table width='570' align='left'>")
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("<tr bgcolor=#E8FFF5><td align='left' class=t ><img src='images\bgimage\icon_fy.gif'> <strong><a href='articeview.asp'>"&rs1("y_blogsubject")&" </a></strong>["&rs1("y_blogpublishtime")&" | "&rs1("y_blogcategoryid")&"]</td></tr>")
response.write("<tr><td width='100%'>"&content&"<br><br><img src='images\bgimage\spea.gif'> <a href='articeview.asp'>阅读全文.....</a></td></tr>")
response.write("<tr><td align='right' class=t >作者:<a href='aboutme.asp'>小子叶欣 </a> | 分类: "&rs1("y_blogcategoryid")&" | 评论: "&rs1("y_blogfeedbacknum")&" | 查看: "&rs1("y_blogviewnum")&" </td></tr>")
n=n+1
rs1.movenext
loop
response.write("</table>")
rs1.close
set rs1=nothing
%>
</td></tr>
<tr><td class=t>
共:<%=tatalpages%>页 |
当前为:第<%=nowpage%>页
<a href="ind.asp?move=<%=1%>"> 首页</a>
<a href="ind.asp?move=<%=nowpage-1%>"><img src="images\bgimage\icon_le.gif"></a>
<%for k=1 to tatalpages%>
<a href="ind.asp?move=<%=k%>">[<%=k%>]</a>
<%next%>
<a href="ind.asp?move=<%=nowpage+1%>" ><img src="images\bgimage\icon_ri.gif"></a>
<a href="ind.asp?move=<%=tatalpages%>">末页</a>
</td></tr>
</table>
保存为.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("<table width='570' align='left'>")
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("<tr bgcolor=#E8FFF5><td align='left' class=t ><img src='images\bgimage\icon_fy.gif'> <strong><a href='articeview.asp'>"&rs1("y_blogsubject")&" </a></strong>["&rs1("y_blogpublishtime")&" | "&rs1("y_blogcategoryid")&"]</td></tr>")
response.write("<tr><td width='100%'>"&content&"<br><br><img src='images\bgimage\spea.gif'> <a href='articeview.asp'>阅读全文.....</a></td></tr>")
response.write("<tr><td align='right' class=t >作者:<a href='aboutme.asp'>小子叶欣 </a> | 分类: "&rs1("y_blogcategoryid")&" | 评论: "&rs1("y_blogfeedbacknum")&" | 查看: "&rs1("y_blogviewnum")&" </td></tr>")
n=n+1
rs1.movenext
loop
response.write("</table>")
rs1.close
set rs1=nothing
%>
</td></tr>
<tr><td class=t>
共:<%=tatalpages%>页 |
当前为:第<%=nowpage%>页
<a href="ind.asp?move=<%=1%>"> 首页</a>
<a href="ind.asp?move=<%=nowpage-1%>"><img src="images\bgimage\icon_le.gif"></a>
<%for k=1 to tatalpages%>
<a href="ind.asp?move=<%=k%>">[<%=k%>]</a>
<%next%>
<a href="ind.asp?move=<%=nowpage+1%>" ><img src="images\bgimage\icon_ri.gif"></a>
<a href="ind.asp?move=<%=tatalpages%>">末页</a>
</td></tr>
</table>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!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>
</head>
<body>
<%
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("<br>")
rs.movenext
Loop
For k = 1 to pCount
If k = Session("pNum") then
response.Write(k & " - ")
Else
response.Write("<a href='Page.asp?pNum=" & k & "'>" & k & "</a> - ")
End If
Next
%>
</body>
</html>
注释：pSize(每页显示记录数) pNum(当前页码) pCount(页数)
其他若有看不懂的可以再问，时间比较匆忙，只是实现了功能，不美观，请见谅。
补充：我的例子中是只读取了表中的一个字段，你要显示好几项只需修改SQL语句，然后用rs("字段名")显示就可以了啊
<!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>
</head>
<body>
<%
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("<br>")
rs.movenext
Loop
For k = 1 to pCount
If k = Session("pNum") then
response.Write(k & " - ")
Else
response.Write("<a href='Page.asp?pNum=" & k & "'>" & k & "</a> - ")
End If
Next
%>
</body>
</html>
注释：pSize(每页显示记录数) pNum(当前页码) pCount(页数)
其他若有看不懂的可以再问，时间比较匆忙，只是实现了功能，不美观，请见谅。
补充：我的例子中是只读取了表中的一个字段，你要显示好几项只需修改SQL语句，然后用rs("字段名")显示就可以了啊
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
我虽然不会ASP，但是分页方法是相同的，有几种方法可以实现分页效果。比如说通过数据库表中的ID编号，用会话级的变量记录下，然后往后读取你需要一页显示的行数的数据。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
For k = 1 to pCount
If k = Session("pNum") then
response.Write(k & " - ")
Else
response.Write("<a href='Page.asp?pNum=" & k & "'>" & k & "</a> - ")
End If
Next
%>
请问楼上alex840115 这里要做什么?看不明白?
If k = Session("pNum") then
response.Write(k & " - ")
Else
response.Write("<a href='Page.asp?pNum=" & k & "'>" & k & "</a> - ")
End If
Next
%>
请问楼上alex840115 这里要做什么?看不明白?
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
