错误提示是
错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/hui/fen.asp, 第 28 行
源程序!!!!请各位指点 谢谢 了 ~~~~~~~~~~~~
<HTML>
<HEAD>
<Title>分页显示记录</Title>
<script language="vbscript">
sub gopage()
if windows.event.keycode=13 then '若按回车
page=document.formpage.pagenum.value '获取文本框中输入的页号
windows.location.href="<fen.asp?pagenum=<%=page%>"
end if
end sub
</script>
</HEAD>
<%
set conn=server.CreateObject("adodb.connection")
p=server.MapPath("data/data.mdb")
d="provider=microsoft.jet.oledb.4.0;data source=" & p
conn.open d
sqll="select * from fx"
set rd=Server.CreateObject("adodb.recordset")
rd.Open sqll,conn,3
rd.PageSize=5
if request.QueryString("pagenum")=" " then
pagenum=1
else
pagenum=CLng(request.querystring("pagenum"))
end if
rd.absolutepage=pagenum '就这个地方提示出错! 可不知道 是那 的问题
%>
<body bgcolor="#99CC00" text="#000000">
<div align="center">
<font size="4" color="#ff0000"> 数据表数据一览</font><br>
<form name="formpage">
<%
response.Write"共"& rd.RecordCount &"条记录，第"& pagenum &"/" & rd.PageCount &"页"
if pagenum=1 then
response.Write"上一页"
else
%>
[<a href=fen.asp?pagenum=<%=pagenum-1%>>上一页</a>]
<%
end if
if pagenum=rd.PageCount then
response.Write"下一页"
else
%>
[<a href=fen.asp?pagenum=<%=pagenum+1%>>下一页</a>]
<%
end if
if pagenum>1 then
%>
[<a href=fen.asp?pagenum=1>首页</a>]
<%
else response.Write"首页"
end if
if pagenum< rd.PageCount then
%>
[<a href=fen.asp?pagenum=<%=rd.pagecount%>>尾页</a>]
<%
else
response.Write"尾页"
end if
%>
第<input type="text" size=4 name="pagenum" onKeyPress="gopage()">页
</form>
</div>
<table width=600 align="center" cellpadding="0" cellspacing="0" border=1>
<tr bgcolor="#CC99FF">
<% for i=0 to rd.Fields.count-1 %>
<td><b> <%=rd(i).name%></b></td>
<%next%>
</tr>
<%
for d=1 to rd.pagesize
if rd.EOF then exit for
%>
<tr>
<td><%=rd.absoluteposition%></td>
<% for j=0 to rd.fields.count-1%>
<td> <%=rd(j)%></td>
<%next%>
</tr>
<%
rd.MoveNext
next
conn.close
set conn=nothing
%>
</table>
</body>
</HTML>
[此贴子已经被作者于2006-4-11 9:46:17编辑过]
