% dim sql
sql="select * from infor where type=9 order by id desc"
on error resume next
if request.form("num1")<>"" then
session("num1")=request.form("num1")
end if
if session("num1")="" then
session("num1")=20
end if
obj.pagesize=session("num1")
obj.cachesize=session("num1")
obj.open sql,objconn,1,3
if request.querystring("page")="" then
currentpage=1
else
currentpage=request.querystring("page")
end if
if request.form("pgo")<>"" then
currentpage=request.form("pgo")
end if
obj.AbsolutePage=currentpage
%>