<%
dim page()
rs.pagesize=p 
redim page(p)
page(3)=Clng(request.QueryString("page3")) 
if page(3) = "" or page(3)  <= 0 then page(3)=1 
if page(3) > rs.pagecount then page(3) = pagecount 
rs.Absolutepage = page(3) 
for i=1 to rs.pagesize 
if rs.eof then exit for 
%> 

Dim MyVar:MyVar="1"'需要的变量
rs.pagesize=p 
Execute("page"&MyVar&"=Clng(request.QueryString(""page"&MyVar&"""))") 
Execute("if page"&MyVar&"="""" or page"&MyVar&"<= 0 then page"&MyVar&"=1")
Execute("If page"&MyVar&"> rs.pagecount then page"&MyVar&" = pagecount")
Execute("rs.Absolutepage = page"&MyVar)
for i=1 to rs.pagesize 
if rs.eof then exit For 

<%rs.pagesize=p 
a="page"&变量
a=Clng(request.QueryString("page#")) 
if a = "" or a  <= 0 then a=1 
if a > rs.pagecount then a = pagecount 
rs.Absolutepage = a 
for i=1 to rs.pagesize 
if rs.eof then exit for 
%>