一个简单的asp数据库倒序翻页代码

<%
'-------------连接数据库-------------
dim page,pagea,pageb,pagey,psize,pcol,tcounl,pcounl,
Set conn=Server.CreateObject("Adodb.Connection")
SQLstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("date.mdb")
conn.Open SQLstr
'修改时候的大小比如20
PSize=5
PCol="id"
TCount=Conn.Execute("Select Count("&"id"&") From user")(0)
'总页数
PCount=GetPageCount(TCount,PSize)
if request.querystring = "" then
Page = 1
else
Page = CLng(request.querystring)  
end if
pagea = Page-1
pageb = Page+1
'pagey = TCount Mod psize
TopNum=(Page-1)*PSize
%>

<td colspan="2"><%=page%>/<%=PCount%>页 总记录数：<%=TCount%></td>
<td><a href="index.asp">首页</a> <a href=index.asp?<%=Pagea%>>上一页</a>
<a href=index.asp?<%=Pageb%>>下一页</a>
<a href=index.asp?<%=PCount%>>最末页</a> </td>
<%
If page>PCount or page < 1  then
'取值超出 返回第一页
       Response.Status="301 Moved Permanently"
  Response.AddHeader "Location", "./index.asp"
  Response.End
     elseif page=1 Then
             StrSql="Select Top "&PSize&" id,firstname,name,age,sex From user  order By id desc"
     else
             StrSql="Select Top "&PSize&" id,firstname,name,age From user Where id <(Select min (id) From (Select Top "&TopNum&" id From user  order By id desc) )  order By id desc"
     End If
Set Rs=Conn.Execute(StrSql)
If Not Rs.Eof Then
     Do While Not Rs.Eof
%>
id=<%=rs(0)%>
firstname=<%=rs(1)%>
name=<%=rs(2)%>
age=<%=rs(3)%>
sex=<%=rs(4)%>
<%
     Rs.MoveNext
     Loop
End If
Rs.Close
Set Rs=Nothing
conn.Close
Set conn=Nothing
%>
<%=page%>/<%=PCount%>页 总记录数：<%=TCount%>
<a href="index.asp">首页</a>
<a href=index.asp?<%=Pagea%>>上一页</a>
<a href=index.asp?<%=Pageb%>>下一页</a>
<a href=index.asp?<%=PCount%>>最末页</a>
<%
Function GetPageCount(iCount,iSize)
     PCount=iCount Mod iSize
     If PCount=0 Then
         PCount=Int(iCount/iSize)
     Else
         PCount=Int(iCount/iSize)+1
     End If
     GetPageCount=PCount
End Function
%>