<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from wenzhang where leibie=14 order by date desc",conn,1,1
pageno=request.querystring("pageno")
rs.pagesize=15
mpage=rs.pagecount
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
pageno=1
end if
if rs.recordcount<>0 then
rs.absolutepage=pageno
loopno=15
do while not rs.eof and loopno>0
loopno=loopno-1
%>
|
|
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
<%
Response.write "共["&mpage&"]页 这是第["&pageno&"]页 首页  "
Response.Write " "
if pageno>1 then
Response.Write "上一页"
else
Response.Write "上一页"
end if
Response.Write " "
if clng(pageno)下一页"
else
Response.Write "下一页"
end if
%>
 class=zlink8>末页 |
|
|
|
|
|
<%
response.write "