小狐狸学ASP系列问题（三）（高分求助）

[hqiuking]

哈哈，小狐狸学ASP已经三天了，时间好快，今天又要找大家麻烦了
今天小狐狸想写一个留言板，来练习一下ASP的实际应用。基本上没有什么问题
但突然一想，如果所有的留言都在一页显示，我本地测试可以，如果实际应用不是
又臭又长了。闲话不说了


求一分页显示的数据库文件的源文件，还有如何调整上一页，下一页，到**页
谢谢各位指教
对了，还有 count(*) from....这个语句我还是用不好，能有人给我举个例子吗？

帮帮勤奋学习的小狐狸吧~~嘿嘿（别鸡蛋砸我，我中午泡面就是没鸡蛋，*_*）

[fogheart]

你在搜索中查一下分页，有好多例子
select count(*) from 表名 能得出表中记录数

[swich]

给个例子你研究

<tr>
<td class=forumrow width="60">
<p align="center">编号</td>
<td class=forumrow width="100">
<p align="center">图片</td>
<td class=forumrow width="130">
<p align="center">姓名</td>
<td class=forumrow width="200">
<p align="center">职称</td>
<td class=forumrow width="100">
<p align="center">有效否</td>
</tr>
<%
cn.open
sql="Select * From grb Order By id Desc"
PerMsg = 5
set rs=server.createobject("adodb.recordset")
rs.open sql,cn,1,1
If Not Rs.Eof And Not Rs.Bof Then
Page=Cint(Request("Page"))
If Page<1 Or Page="" Then
Page=1
End If
Rs.Pagesize=Permsg
Count=Page*Rs.PageSize
Rs.AbsolutePosition=Count-Rs.PageSize+1
Do While Not Rs.Eof And Permsg>0
%>
<tr>
<td class=forumrow title="点击编号删除该记录">
<p align="center"><a href="javascript:deletet(<%=rs("id")%>)" title="点击编号删除该记录"><%=rs("ID")%></a></td>
<td class=forumrow>
<a href="rlxi.asp?id=<%=rs("id")%>&page=<%=page%>"><%if rs("image")<>"" or rs("image")<>null then%><img border="1" title="点击图片更换该记录的图片" src="../../upload/grb/<%=rs("image")%>" width="100" height="140"><%else%>请上传图片…… <%end if%></a></td>
<td class=forumrow title="点击记录名修改该记录详细信息"><p align="center"><a href="rlx.asp?page=<%=page%>&id=<%=rs("ID")%>" title="点击记录名修改该记录详细信息"><%=rs("xm")%></a></td>
<td class=forumrow>
<p align="center"><%=rs("zc")%></td>
<td class=forumrow title="点击改变有效否">
<p align="center"><a href="rlqx.asp?page=<%=page%>&id=<%=rs("ID")%>" title="点击改变权限"><%if rs("flag") = 1 then response.write "无效" else response.write "有效" end if%></a></td>
</tr>
<%
Permsg=Permsg-1
Rs.Movenext
Loop
End if
%>
<tr>
<td colspan=7 class=forumrow width="590">
<p align="right"><br>  共有 <b><font color="#FF0000"><%=Rs.PageCount%></font></b> 页　目前为第 <b><font color="#FF0000"><%=page%></font></b> 页　<a href="rl.asp?page=1">首页</a>　<a href="rl.asp?page=<%if page - 1 = 0 then response.write 1 else response.write page - 1 end if%>">上一页</a>　<a href="rl.asp?page=<%if page + 1 >= Rs.PageCount then response.write Rs.PageCount else response.write page + 1 end if%>">下一页</a>　<a href="rl.asp?page=<%=Rs.PageCount%>">末页</a></td>
</tr>
<script Language="JavaScript">
function deletet(ID){if(truefalse(ID)) location.href='rld.asp?id='+ID+'&page=<%=page%>';}
</script>
<%
rs.close
set rs = nothing
cn.close
%>

[swich]

select count(*) from 得出表中记录数

[leiaming]

select count(id) as counts from table

[ygghost]

分页的问题好多啊，20个问题里面有1个自己去找找吧！！

count(*)

计算某一字段内所有值的和（注意要是int型的）

[a_zhe_20]

要使用as子句才能获得结果
象上面的。

[nevana]

呵呵，是啊，网上书上都有些分页的例子的！

[angelheavens]

"小狐狸学ASP系列问题"
有意思!!!

[qwater]

上面都已经回答很清楚了，我就不多说了

小狐狸加油！

[os586]

看看人家小狐狸多有人缘，都争先恐后
不像俺在学校时学这东西，没人帮!呵呵

不过要是写“select count(*) from your_table"时不带有" as your_variable"子句也可以用
数据集的第0个来判断，即rs(0),他代表着表里的记录集里的第一个字段!

[learnner]

楼上有位把 sum() 和 count() 弄混了，别误导人家呀

[i三千]

分页模块：
http://y365.com/www8000/200312101925995974.rar

[hqiuking]

谢谢各位对小狐狸的教导，我会刻苦学习的，准备这一个星期把ASP基本掌握。
我先把 swich(学无纸尽) 的例子研究完，看还有没有问题，如果没有问题就结帖


小狐狸还会继续麻烦你们的 *_*

[lions911]

<%''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''分页开始%>

<%
if request.form("radiobutton")<>"" then
session("leibie")=request.form("radiobutton")
end if


diaryperpage=12 '设置每页显示的页数
dim totaldiary,Currentpage,totalpages,i
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from product where leibie='" &session("leibie")& "'"
rs.Open sql,conn,1,1
%>

<%if not rs.eof then
'rs.Movefirst
rs.pagesize=diaryperpage '每页显示多少条记录
if trim(request("page"))<>"" then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
totaldiary=rs.recordcount
if currentpage<>1 then
if(currentpage-1)*diaryperpage<totaldiary then
rs.move(currentpage-1)*diaryperpage
dim bookmark
bookmark=rs.bookmark
end if
end if
if (totaldiary mod diaryperpage)=0 then
totalpages=totaldiary\diaryperpage
else
totalpages=totaldiary\diaryperpage+1
end if

position=RS.PageSize*currentpage
pagebegin=position-RS.PageSize+1
pagebegin=30-30+1=1
if position < RS.RecordCount then
pagend=position
else
pagend= RS.RecordCount
end if
i=1
color=1
%>

<table width=100% border="0" cellspacing="1" align="center" cellpadding="2" bgcolor="#E7E3E7">
<tr >
<%
do while not rs.eof and i<diaryperpage+1
%>

<td >
<%'此处为循环主体，爱放点什么就放点什么%>
<%=rs("id")%>
<%'主体结束%>
</td>

<%if i mod 3=0 then%>
</tr><tr >
<%end if%>
<%
i=i+1
color=color+1
rs.movenext
loop
else
If rs.EOF And rs.BOF Then%>
目前还没有记录！<br>
<%end if
end if%>

<%
i=1
showye=totalpages
for i=1 to showye
if i=currentpage then
%>
<%'=i%>
<%else%>
<%end if
next
if totalpages>currentpage then
if request("page")="" then
page=1
else
page=request("page")+1
end if%>
<%end if%>
</tr></table>
<table width=100% border="0" cellspacing="1" align="center" cellpadding="2" bgcolor="#E7E3E7">

<tr align="center">
<td bgcolor="#CCCCCC"width=100%><%=totaldiary%>条记录/<%=diaryperpage%>篇每页.
<%
k=currentPage
n=rs.pagecount
if k<>1 then
response.write "[<b>"+"<a href='search.asp?page=1'>首页</a></b>] "
response.write "[<b>"+"<a href='search.asp?page="+cstr(k-1)+"'>上一页</a></b>] "
else
Response.Write "[首页][上一页]"
end if
if k<>n then
response.write "[<b>"+"<a href='search.asp?page="+cstr(k+1)+"'>下一页</a></b>] "
response.write "[<b>"+"<a href='search.asp?page="+cstr(n)+"'>尾页</a></b>] "
else
Response.Write "[下一页][尾页] "
end if
%>
</td></tr>
</TABLE>
<%
rs.close
set rs=nothing
%>
<%''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''分页结束%>

[zhaolianjun]

<%
if request("page")<>"" then
pp=request("page")
else
pp=1
end if
%>

<%
sql="select * from news order by id desc"
conn.cursorLocation=3
set rs=conn.execute(sql)
c=rs.recordcount
'每页所有记录条数
rs.pagesize=30
fy=rs.pagecount
rs.absolutepage=pp
response.write "共有"&c&"个项目， 分为"&fy&"页,这是第"&pp&"页<br>"
%>

<%
i=0
do while i<fy
i=i+1
response.write "[<a href='xwgl.asp?page="&i&"'>"&i&"</a>]"
loop
%>