如何在ASP点击按钮变更显示ACCESS数据库记录

<%
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
%>