小弟是初学者。。。是真的不懂了。。

  请高手们帮我改改。。。

能说说是什么问题吗？

if Page <> 1 Then
Response.Write "第一页 "
Response.Write "上一页 "
End If
If Page <> RSobj.PageCount Then
Response.Write "下一页 "
Response.Write "最后一页 "
End If
在index.asp中你没定义RSobj，改成rs

我试了可是结果还是一样的。。。

请大哥，，改好后。。。能把它打包给我看看吗？

显示不对。再加上语法的错误。我是一个初学者不懂。

就请各位帮我看看。。改改。

在下谢过了。

那你能把错误信息发上来吗？

<% Set ConnObj = Server.CreateObject("ADODB.Connection")
DbPath= Server.MapPath("db.mdb")
ConnObj.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
sql="select * from guset "
set rs=connobj.execute(sql)
%>
<%
If Page <> 1 Then
Response.Write "<A HREF=index.asp?Page=1& >第一页</A> "
Response.Write "<A HREF=index.asp?Page="&(Page-1)&">上一页</A> "
End If
If Page <> rs.PageCount Then
Response.Write "<A HREF=index.asp?Page="&(Page+1)&">下一页</A> "
Response.Write "<A HREF=index.asp?Page=" & Rsobj.PageCount & ">最后一页</A> "
End If
%>
页数：<%=Page%>/<%=RSobj.PageCount%>

指教一下.

<% Set ConnObj = Server.CreateObject("ADODB.Connection")
DbPath= Server.MapPath("db.mdb")
ConnObj.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
sql="select * from guset "
set rs=connobj.execute(sql)
%>
<%
If Page <> 1 Then
Response.Write "<A HREF=index.asp?Page=1& >第一页</A> "
Response.Write "<A HREF=index.asp?Page="&(Page-1)&">上一页</A> "
End If
If Page <> rs.PageCount Then
Response.Write "<A HREF=index.asp?Page="&(Page+1)&">下一页</A> "
Response.Write "<A HREF=index.asp?Page=" & Rsobj.PageCount & ">最后一页</A> "
End If
%>
页数：<%=Page%>/<%=RSobj.PageCount%>

你没有定义RSobj

?????????

你能把它下载下来运行一下吗?

中间还有一些小错错.我不知道怎么去改了.

我都忙了一天.没有办法只好在这里面请你们教我了.

如果安你写的我都运行不了，改了之后多了个－1，你那个页面就这么点<%%>代码，真不知道你的页面要做什么