<%
sql="select * from message order by id desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=30
rs.AbsolutePage=pagecount
do while not rs.eof
%>
