20CN网络安全小组论坛 - 网站建设

论坛: 网站建设标题: asp+access分页显问题

作者: cailiao2 [cailiao2]

论坛用户

－－－config.asp----
<%@LANGUAGE="JAVASCRIPT"%>
<% var conn,rs,dbpath;//定义变量
dbpath="data/book.mdb";
conn=Server.CreateObject("ADODB.Connection");
conn.Open("Driver={Microsoft Access Driver (*.mdb)};dbq="+Server.MapPath(dbpath));//建立数据库连接

rs=Server.CreateObject("ADODB.Recordset");//建立记录集对象实例

%>
<script language="vbscript" runat="server">
function jisemptey(str)
IsEmpty(str)
end function
function jisnumber(num)
IsNumeric(num)
end function
function jinstr(str1,str2)
Instr str1,str2
end function
function jtrim(str)
trim(str)
end function
function jabs(str)
abs(str)
end function
function jint(str)
int(str)
end function
dstr=now
</script>

-----view.asp-------


<% sql="select * from 用户 Order By ID Desc";
rs.Open(sql,conn,1,1);
rs.PageSize=5;
var page,mypagesize,get;
mypagesize=rs.Pagesize;
get=Request("page");
if(!jisnumber(get)||jisemptey(get))
page=1;
else
page=jint(jabs(Request("page")));
rs.AbsolutePage=page;
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言内容浏览</title>
</head>
<body>
<div align="center">
<table width="611" height="31" border="0" cellpadding="0" cellspacing="0" bgcolor="#006633">
<tr>
<td width="110"><a href="liuyan.asp">我要留言</a></td>
<td width="501" align="right"><a href="login.asp">管理员登录</a></td>
</tr>
</table>

<% while(!rs.EOF&&mypagesize>0)
{
%>
此处为读取字段显示，

<% mypagesize=mypagesize-1;

　rs.MoveNext();
}／／while结束，
Response.Write("<br>当前第"+page+"页共"+rs.PageCount+"页"+rs.recordcount+"条留言<br><br>");
%>
<%
if(page>1){%>
<a href="view.asp?page=<%=1%>">第一页</a>
<a href="view.asp?page=<%=page-1%>">上一页</a>
<%}
if(page<rs.PageCount){
%>
<a href="view.asp?page=<%=page+1%>">下一页</a>
<a href="view.asp?page=<%=rs.PageCount%>">最后一页</a>
<%}%>
</div>
</body>
</html>

---------问题是不在浏览器中单击下一页时，还是在第一页，不能实现分页，请高手帮个忙，
帮我看看是哪里出了问题，

地主发表时间: 05-11-06 20:00

回复: cailiao2 [cailiao2]

论坛用户

此问题已解决!

B1层发表时间: 05-11-14 20:58

论坛: 网站建设