标题:我的这段分页代码那错了?
只看楼主
pengboy
Rank: 1
等 级:新手上路
帖 子:82
专家分:0
注 册:2005-12-21
 问题点数:0 回复次数:2 
我的这段分页代码那错了?

请教,我的这段分页代码那错了?


<%set conn=server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="& server.Mappath("tupian.mdb")
set rs=server.createobject("adodb.recordset")
sql="select * from tu"
rs.open sql,conn,1,1
page=request.form(page)
if page="" or isnull(page) then
page=1
end if
rs.pagesize=2
page=cint(page)
if page<1 then
page=1
elseif page>rs.pagecount then
page=rs.pagecount
end if
rs.absolutepage=page
%>
<form name="form1" method="post" action="03.asp">
<table width="160" border="1" align="center">
<%

do while not rs.eof and not rs.bof%>
<tr>
<td><%=rs("name")%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
</form>
<div align="center">
<% if page<>1 then%>
<a href="03.asp?page=1"><font size="2">第一页</font></a>
<a href="03.asp?page=<%=page-1%>"><font size="2">上一页</font></a>
<%end if%>

<% if page<>rst.pagecount then%>
<a href="03.asp?page=<%=page+1%>"><font size="2">下一页</font></a>
<a href="03.asp?page=<%=rst.pagecount%>"><font size="2">最后一页</font></a>
<%end if%>
</div>

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

请求对象 错误 'ASP 0102 : 80004005'

需要字符串输入

/00000000000/03.asp,行6

搜索更多相关主题的帖子: 代码 
2006-04-20 16:44
syh878
Rank: 1
等 级:新手上路
威 望:2
帖 子:461
专家分:0
注 册:2005-9-2
得分:0 

request.form("page")


2006-04-20 17:34
pengboy
Rank: 1
等 级:新手上路
帖 子:82
专家分:0
注 册:2005-12-21
得分:0 
改了没用呀
2006-04-20 17:43



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-58843-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.039153 second(s), 9 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved