我试了可是结果还是一样的。。。
请大哥,,改好后。。。能把它打包给我看看吗?
<% 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%>
指教一下.