
如何在ASP点击按钮变更显示ACCESS数据库记录 100
在页面中先读取数据库的第一条记录,通过点击按钮使第一条记录变为第二条记录,不知道自己解释的清不清楚,希望高手能给我个简单的例子,谢谢。...
在页面中先读取数据库的第一条记录,通过点击按钮使第一条记录变为第二条记录,不知道自己解释的清不清楚,希望高手能给我个简单的例子,谢谢。
展开
2个回答
展开全部
<%
Set conn=Server.CreateObject("Adodb.Connection")
connstr="provider=Microsoft.JET.OLEDB.4.0;Data Source="&Server.MapPath("Connections/#data.mdb")
conn.open connstr
Set rs = Server.CreateObject("Adodb.Recordset")
sql="Select * from main ORDER BY id DESC" '这里是以ID为降序,升序为ASC
rs.open sql,conn,1,1
rs.pagesize=1'设定一页显示一条记录
if not rs.eof or not rs.bof then
if request("page")<>"" then
epage=cint(request("page"))
if epage<1 then epage=1
if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage
end if
%>
<%
for i=0 to rs.pagesize-1
if rs.bof or rs.eof then exit for
%>
<a href="?page=<%=epage+1%>"><=%rs("name")%></a>
<%
rs.movenext
next
%>
思路:用分页来实现的,就是一页的记录只有一条。你试下,我这里没测试环境无法实验,不行再说!
Set conn=Server.CreateObject("Adodb.Connection")
connstr="provider=Microsoft.JET.OLEDB.4.0;Data Source="&Server.MapPath("Connections/#data.mdb")
conn.open connstr
Set rs = Server.CreateObject("Adodb.Recordset")
sql="Select * from main ORDER BY id DESC" '这里是以ID为降序,升序为ASC
rs.open sql,conn,1,1
rs.pagesize=1'设定一页显示一条记录
if not rs.eof or not rs.bof then
if request("page")<>"" then
epage=cint(request("page"))
if epage<1 then epage=1
if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage
end if
%>
<%
for i=0 to rs.pagesize-1
if rs.bof or rs.eof then exit for
%>
<a href="?page=<%=epage+1%>"><=%rs("name")%></a>
<%
rs.movenext
next
%>
思路:用分页来实现的,就是一页的记录只有一条。你试下,我这里没测试环境无法实验,不行再说!
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询