如何实现向前向后翻页。

Question

<scrip >function turn(a){
  var url = location.href;
  var idd = url.split('=');
       pre = 'a'+(parseInt(idd[1]) - 1)+'.htm';
       pr = parseInt(idd[1]) - 1;
       nex = 'a'+(parseInt(idd[1]) + 1)+'.htm';
       ne = parseInt(idd[1]) + 1;
  if(a == 'p')  document.location=pre +"?id=" + pr;
  if(a == 'n')  document.location=nex +"?id=" + ne;
}
</script>
<span onclick="turn('p')">上一页</span>    <span onclick="turn('n')"> 下一页</span> 
大概意思是这样，自己再加工一下！！！

Answer 1

<%language="vbscript"
set  conn=server.createobject("adodb.connection")
conn.open  "driver={sql  server};server=luo;uid=sa;pwd=;database=zszl"
set  rs=server.createobject("adodb.recordset")
%>
<%pgsize=5
page=request.querystring("page")
sql="select * from  test  where  id1=1"
rs.open  sql,conn,1
rs.pagesize=pgsize
pgnm=rs.pagecount
if  page=""or  clng(page)<1  then page=1
if   clng(page)>pgnm  then  page=pgnm
if  pgnm>0  then  rs.absolutepage=page
count=0
do  while  not  rs.eof  and  count<rs.pagesize    
%>
<%=rs("id1")%>
<br>
<%=d%>
<br>
<%
count=count+1
rs.movenext
loop
rs.close
set  rs=nothing
%>
<a  href=dis.asp?page=1>第一页</a>
<a  href=dis.asp?page=<%=pgnm%>>最末页</a>
<a  href=dis.asp?page=<%=page+1%>>下一页</a>
<a  href=dis.asp?page=<%=page-1%>>上一页</a>