简单ASP基础问题,谁帮忙搞定另外开贴再加500分!!急,在线等!
请问各位大虾:如何实现翻页?
前几天论坛的一个热心的大哥替我写了一个从数据库读取数据到页面的程序,每页只显示15个记录,但记录超过15个的时候点击[上一页][下一页]没反应.谁来帮我修改一下,一定加分!!!:)很急,请尽快!
请先下载网页文件:
http://www.gzets.com/forum/forum/upload/sf_20047419332.rar
问题点数：100、回复次数：12Top
1 楼neting（.net学习中）回复于 2004-07-04 19:27:51 得分 40
dim PageTotal,pageno,pagenumber,sql,rs
set rs=server.CreateObject("adodb.recordset")
sql="select * from Line_Syn_Data order by ID"
rs.open sql,conn,1,1
if rs.eof and rs.bof then '没有查到
response.write "库中没有相关记录"
else '以下代码为了分页显示记录
rs.pagesize=10 '每页以10条记录显示
PageTotal = CInt(rs.PageCount) '总的页数
pageno=request("pageno") '接收页数以备翻页
If pageno= "" Then pageno = 1 '如果页数为空则设定为第一页
if cint(pageno)<1 then page=1
if cint(pageno)>pagetotal then page=pagetotal
pagenumber= CInt(pageno) '储存页数
rs.absolutepage =pagenumber '当前页
'循环每一页显示的记录数
for i=1 to rs.pagesize
%>
<tr align="center" bgcolor="#000000" class="txt2">
<td> <%=trim(rs("Group_Name"))%></td>
<td> <%=trim(rs("UI_Flag"))%></td>
<td> <%=trim(rs("Phase_A_Value"))%></td>
<td> <%=trim(rs("Phase_B_Value"))%></td>
<td> <%=trim(rs("Phase_C_Value"))%></td>
<td> <%=trim(rs("Phase_N_Value"))%></td>
<td> <%=trim(rs("Phase_1_Value"))%></td>
<td> <%=trim(rs("Phase_2_Value"))%></td>
<td> <%=trim(rs("P_Value"))%></td>
<td> <%=trim(rs("Q_Value"))%></td>
<td> <%=trim(rs("U_Freq"))%></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
Next
%>
</table> </td>
</tr>
<tr>
<td height="25" align="left" class="txt1">
<%
'实行上下翻页
response.write "共"&pagetotal&"页 第"&pageno&"页" '共有几页
response.write " <A class='white' HREF='1.asp?pageno=1'>首页</a>" '第一页
If PageNumber > 1 Then
Response.Write " <A class='white' HREF='1.asp?pageno="& pageNumber-1&"'>上一页</a> " '向上翻页
End If
If pagenumber<pagetotal then
Response.Write " <A class='white' HREF='1.asp?pageno="& pageNumber+1&"'>下一页</a>" '向下翻页
End If
response.write " <A class='white' HREF='1.asp?pageno=<%=pagetotal%>'>尾页</a>" '最后一页
end if
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
Top
2 楼yslcuk（ylc）回复于 2004-07-04 19:29:47 得分 0
我没下你的网页文件，只是一般分页如果上下页没用，就肯定是当前页的值没传到上一页或下一页，你要么用?或session都可传值。你自己试试！Top
3 楼zhouhan126（+寒）回复于 2004-07-04 19:48:21 得分 0
顶!!!在线等!Top
4 楼skyboy0720（曲终人散）回复于 2004-07-04 19:59:28 得分 0
页玛数没有传递过去！Top
5 楼luoluonozuoluo（学不会就去死；因为怕死所以死都要学会）回复于 2004-07-04 20:09:11 得分 0
我真晕用neting(.net学习中）的方法就可以实现翻页的啊。你自己改一下那个变量跟数据连接就可以实现的啦。Top
6 楼wsdzmhongm（丁丁）回复于 2004-07-04 20:09:59 得分 40
我来帮你:
If pagenumber<pagetotal then
Response.Write " <A class='white' HREF='2.asp?pageno="&pagenumber+1&"'>下一页</a>" '向下翻页
End If
response.write " <A class='white' HREF='2.asp?pageno="&rs.pagecount&"'>尾页</a>" '最后一页
end if
注意:你原来:HREF='2.asp',别的分页程序也要这样改动,试试!Top
7 楼skyboy0720（曲终人散）回复于 2004-07-04 20:10:51 得分 20
帮你改了！其中一个页面，其他页面按这样修改就可以了！
<!--#include file="conn.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<META HTTP-EQUIV="Refresh" CONTENT="120;url=2.asp">
<title>湖南湘能许继高科技股份有限公司</title>
<STYLE><!--
BODY{margin:0px 0px 0px 0px;}
--></STYLE>
<link href="../sytle/gzets.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" class="txt1"> <img src="../images/title1.gif" width="13" height="13"> 您现在所在的位置：<font color="#CC0000">开关量状态</font></td>
</tr>
<tr>
<td align="center"> <table width="96%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr align="center" bgcolor="#000000" class="txt2">
<td height="25">序号</td>
<td>名称</td>
<td>状态</td>
</tr>
<%
const intPageSize=15
if request("page")="" then
intCur=1
else
intCur=cint(request("page"))
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from Switch_Status order by ID"
rs.open sql,conn,1,1
if rs.eof and rs.bof then '没有查到
response.write "库中没有相关记录"
else '以下代码为了分页显示记录
rs.cachesize=intPageSize
rs.pagesize=intPageSize
rs.absolutepage=intCur
intTotal=rs.pagecount
dim tmp
tmp=0
while not rs.EOF and tmp<rs.PageSize
%>
<tr align="center" bgcolor="#000000" class="txt2">
<td> <%=trim(rs("ID"))%></td>
<td> <%=trim(rs("Switch_Name"))%></td>
<td> <%=trim(rs("Switch_Status"))%></td>
</tr>
<%
tmp=tmp+1
rs.MoveNext ()
wend
%>
</table></td>
</tr>
<tr>
<td height="25" align="left" class="txt1">
<%
'实行上下翻页
response.write "共"&intTotal&"页 第"&intCur&"页" '共有几页
response.write " <A class='white' HREF='2.asp?page=1'>首页</a>" '第一页
If intCur>1Then
Response.Write " <A class='white' HREF='2.asp?page="&intCur-1&"'>上一页</a> " '向上翻页
End If
If intCur<>intTotal then
Response.Write " <A class='white' HREF='2.asp?page="&intCur+1&"'>下一页</a>" '向下翻页
End If
response.write " <A class='white' HREF='2.asp?page="&intTotal&"'>尾页</a>" '最后一页
end if
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</td>
</tr>
</table>
</body>
</html>
Top
8 楼wsdzmhongm（丁丁）回复于 2004-07-04 20:16:57 得分 0
只要把
HREF='2.asp' '下一页
改成
HREF='2.asp?pageno="&rs.pagecount&"'
还有
HREF='2.asp' '尾页
HREF='2.asp?pageno="&pagenumber+1&"'
就OK了,别的一点都不要动了Top
9 楼wsdzmhongm（丁丁）回复于 2004-07-04 20:24:33 得分 0
怎么样?
对吧?
别赖帐!
:)
:)Top
10 楼lishougeng（李守耕）回复于 2004-07-04 21:36:55 得分 0
upTop
11 楼terry6394（小猪,向前跑!）回复于 2004-07-05 00:17:38 得分 0
来迟了,,要不就有分了
Top
12 楼zhouhan126（+寒）回复于 2004-07-05 09:53:09 得分 0
谢谢各位了:)Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
