<%
Sql="Select * from news where left(typenumber,4)='0002' order by createdate desc"
rs.Open Sql,conn,1,1
if rs.recordcount=0 then
%>
<%
else
rs.pagesize=15
rs.absolutepage=1
if request.QueryString("page")<>"" then rs.absolutepage=trim(request.QueryString("page"))
dim rowcount
rowcount=rs.pagesize
j=1
k=1
do while not rs.eof and j<=rs.pagesize
%>
<%
k=k+1
rs.movenext
j=j+1
loop
%>
<%
if rs.pagecount>1 then
if request.QueryString("page")<>"" then
curpage=request.QueryString("page")
n=rs.pagecount
filename="news.asp"
else
curpage=1
n=rs.pagecount
filename="news.asp"
end if
end if
%> <%
if curpage<2 then
response.write "
首页 上一页 "
else
response.write "
首页 "
response.write "
上一页 "
end if
if n-curpage<1 then
response.write "
下一页 尾页"
else
response.write "
下一页 "
response.write "
尾页"
end if%>
<%=rs.pagesize%>条/页 页次:
<%=curpage%>/
<%=rs.pagecount%>页