<%
dim sql, i
set rs=server.CreateObject("adodb.recordset")
sql="select * from msg"
rs.open sql,conn,1,2
i = 1
rs.PageSize=10
Page = Request("Page")
if Page = "" or not isnumeric(Page) or Page < "1" then
Page=1
end if
if cint(Page)>rs.PageCount then
Page=rs.PageCount
end if
if rs.recordcount>0 then
rs.AbsolutePage =Page
for i=1 to rs.pageSize
if not rs.eof then
%>