<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 10 id,bt,rq from np_news order by rq desc"
rs.open sql,mycon,1,1
if not rs.eof then
rs.pagesize=30
Rs.AbsolutePage = p
while not rs.eof
bt=rs("bt")
%>
Tatol<%=rs.pagecount%>Page <%=rs.recordcount%>Meassage,
<%
if int(p)<=1 then
response.Write(" ?? ???")
else
response.Write("?????")
end if
response.Write(" ")
if int(p)>=rs.pagecount then
response.Write("??? ??")
else
response.Write("?????")
end if
%>
