%
if session("m_UserName")="" then
response.redirect "login.asp"
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from casetable where pid>0"
sql=sql&" order by Cint(a_ClassLayer) desc"
'response.Write sql
'response.End()
rs.open sql,conn,3,3
dim MaxPerPage
MaxPerPage=12
dim text,checkpage
text="0123456789"
rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > rs.PageCount Then CurrentPage = rs.PageCount
Else
CurrentPage= 1
End If
If not rs.eof Then rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
%>