急，大家帮忙看看下面有什么错误（分页中读取数据库中的记录问题）

soltek 2005-01-25 07:36:55

我写了asp的分页记录程序，可是怎么不显示数据库中的信息那？
我要读取bidinfo中的bidcap bidbeg bidend，可是不显示分页啊
原程序基本如下：

<%
SET rs=server.Createobject("adodb.recordset")
set rs.activeconnection=conn
rs.cursortype=3
rs.open "select bidcap,bidbeg from bidinfo"
rs.pagesize=10
page=clng(request("page"))
if page<1 then
page=1
end if
if page>rs.PageCount then
page=rs.PageCount
end if
rs.AbsolutePage=page
%>
<h2 align="center">招标公告</h2>
<br> 当前页码： <%=page%>/<%=rs.PageCount%>
<br>
<table border="1" width="100%">
<tr><td bgcolor="#c0c0c0">序号</td><td bgcolor="#c0c0c0">名称</td><td bgcolor="#c0c0c0">开标时间</td><td bgcolor="#c0c0c0">截

标时间</td></tr>
<%
for i=1 to rs.PageSize
varno=(page-1)*rs.PageSize+i
response.write("<tr><td>"&cstr(varno)&"</td><td>"&cstr(rs.Fields(0).value)&"</td><td>"&cstr(rs.Fields(1).value)&"</td><td>"&c

str(rs.Fields(2).value)&"</td></tr>")
rs.movenext
if rs.eof then exit for
else
next
response.write("</table><br>")
if page=1 then
response.write("第一页")
else
response.write("<a href=viewpage.asp?page=1>第一页</a>")
end if
if page=1 then
response.write("上一页")
else
response.write("<a href=viewpage.asp?page="&page-1&">上一页</a>")
end if
if page=rs.pagecount then
response.write("下一页")
else
response.write("<a href=viewpage.asp?page="&page+1&">下一页</a>")
end if
if page=rs.PageCount then
response.write("最后一页")
else
response.erite("<a href=viewpage.asp?page="&rs.PageCount&">最后一页</a>")
end if
Conn.Close
if conn.state=0 then
end if
set conn=nothing
%>
</BODY>
</HTML>

...全文

145 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

moodboy1982 2005-01-26

打赏
举报

上面说得好。没错

wen1818 2005-01-26

打赏
举报

rs.movenext
if rs.eof then exit for
else
next

改为：
rs.movenext
if rs.eof then exit for
next

xiaoyuehen 2005-01-26

打赏
举报

http://blog.csdn.net/xiaoyuehen/archive/2005/01/17/257202.aspx

ACCESS下的快速的通用分页类, 也许对你有用

cheng17 2005-01-25

打赏
举报

for j=1 to rst.PageSize
if rst.EOF then exit for '在这里判断吧

%>
<tr><td><%=cstr(varno)%></td><td><%=rst(0)%></td><td><%=rst(1)!></td><td><%=rst(2)%></td></tr>

<%
rst.MoveNext
next

%>

kendo7 2005-01-25

打赏
举报

下面
rs.movenext
if rs.eof then exit for
else
next

改为:
rs.movenext
if rs.eof then exit for
end if
next

hackate 2005-01-25

打赏
举报

楼上的方法看看，似乎没错!

yhd0411 2005-01-25

打赏
举报

<%
Dim TotalRecords '记录总数
sql="select bidcap,bidbeg from bidinfo"
set rst=server.createobject("adodb.recordset")

rst.open sql,conn,1,1
if rst.eof and rst.bof then
%>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="90%">
<TBODY>
<TR>
<td width=100% align=center height=30>
<font color=red style="font:14px">没有记录</font>
</td>
</TR>
</TBODY>
</TABLE>
<%
else

%>
<table border="1" width="100%">
<tr><td bgcolor="#c0c0c0">序号</td><td bgcolor="#c0c0c0">名称</td><td bgcolor="#c0c0c0">开标时间</td><td bgcolor="#c0c0c0">截

标时间</td></tr>
<%

rst.PageSize=1'每页显示的记录数
total_page=rst.PageCount
total_red=rst.RecordCount
current_page=cstr(trim(Request("Page")))
if current_page="" then
current_page=1
elseif not isnumeric(current_page) then
current_page=1
else
current_page=cint(current_page)
end if

if current_page>total_page then
current_page=total_page
elseif current_page<1 then
current_page=1
end if

rst.AbsolutePage=current_page
for j=1 to rst.PageSize

%>
<tr><td><%=cstr(varno)%></td><td><%=rst(0)%></td><td><%=rst(1)!></td><td><%=rst(2)%></td></tr>

<%
rst.MoveNext
if rst.EOF then exit for
next

%>

</TABLE>
<BR>
<form name=theForm action="?action=edit&iDeptid=<%=iDeptId%>&FBMonth=<%=FBMonth%>" method="post">
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="95%">
<TR>
<td width="30%" align="left"> 显示第<font color=red><%=current_page%></font>个/总<font color=red><%=total_page%></font>个</td>
<TD vAlign=top width="70%" align=center>
<input type=button onclick="javascript:location.href='?Page=1&action=edit&iDeptid=<%=iDeptId%>&FBMonth=<%=FBMonth%>';" value="首个">
<input type=button onclick="javascript:location.href='?Page=<%=current_page-1%>&action=edit&iDeptid=<%=iDeptId%>&FBMonth=<%=FBMonth%>';" value="上一个">
<input type=button onclick="javascript:location.href='?Page=<%=current_page+1%>&action=edit&iDeptid=<%=iDeptId%>&FBMonth=<%=FBMonth%>';" value="下一个">
<input type=button onclick="javascript:location.href='?Page=<%=total_page%>&action=edit&iDeptid=<%=iDeptId%>&FBMonth=<%=FBMonth%>';" value="最后一个">
转到第
<input name="page" type="text" id="page5" value="<%=current_page%>" size="3" style="border: 1px solid rgb(200,200,200)">
个 <a onClick="javascript:document.theForm.submit();" style="cursor:hand">[<font color="#003399">Go</font>]</a>
</td>
</tr>
</table>
</form>
<%
end if
rst.close
set rst=nothing
%>

myvicy 2005-01-25

打赏
举报

报什么错啊？

myvicy 2005-01-25

打赏
举报

<%
SET rs=server.Createobject("adodb.recordset")
set rs.activeconnection=conn
rs.cursortype=3
rs.open "select bidcap,bidbeg from bidinfo"
rs.pagesize=10
page=clng(request("page"))
if page<1 then
page=1
end if
if page>rs.PageCount then
page=rs.PageCount
end if
rs.AbsolutePage=page
%>
<h2 align="center">招标公告</h2>
<br> 当前页码： <%=page%>/<%=rs.PageCount%>
<br>
<table border="1" width="100%">
<tr><td bgcolor="#c0c0c0">序号</td><td bgcolor="#c0c0c0">名称</td><td bgcolor="#c0c0c0">开标时间</td><td bgcolor="#c0c0c0">截

标时间</td></tr>
<%
for i=1 to rs.PageSize
varno=(page-1)*rs.PageSize+i
response.write("<tr><td>"&cstr(varno)&"</td><td>"&cstr(rs.Fields(0).value)&"</td><td>"&cstr(rs.Fields(1).value)&"</td><td>"&c

str(rs.Fields(2).value)&"</td></tr>")
rs.movenext
if rs.eof then exit for

next
response.write("</table><br>")
if page=1 then
response.write("第一页")
else
response.write("<a href=viewpage.asp?page=1>第一页</a>")
end if
if page=1 then
response.write("上一页")
else
response.write("<a href=viewpage.asp?page="&page-1&">上一页</a>")
end if
if page=rs.pagecount then
response.write("下一页")
else
response.write("<a href=viewpage.asp?page="&page+1&">下一页</a>")
end if
if page=rs.PageCount then
response.write("最后一页")
else
response.erite("<a href=viewpage.asp?page="&rs.PageCount&">最后一页</a>")
end if
Conn.Close
if conn.state=0 then
end if
set conn=nothing
%>
</BODY>
</HTML>