<%
set conn=server.CreateObject("adodb.connection")
conn.Open application("conn")
sql= "select id,item,publish,pubdate,source from department order by id desc"
set rs=server.CreateObject ("adodb.recordset")
rs.Open sql,conn,3
'*************************3
if not rs.EOF then
rs.PageSize =20
page=request("page")
if not isnumeric(page) then page=0
Page = CLng(Page)
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
rs.AbsolutePage = Page
pagecount=rs.PageCount
end if
'************************3分页程序
%>
中国人口信息网
