<%
dim i,intPage,page,pre,last,filepath
set rs=server.CreateObject("adodb.recordset")
sql="select * from Sdw_News where classid="&classid&" order by id desc"
rs.PageSize =20
rs.CursorLocation = 3
rs.open sql,cn,1,1
pre = true
last = true
page = trim(Request.QueryString("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%><%
for i=1 to rs.PageSize
if rs.EOF or rs.BOF then exit for
%>
首页 |
<%if pre then%>
上一页 | <%end if%>
<%if last then%>
下一页 | <%end if%>
尾页 | 跳转
页
<%
else
set rspro=server.CreateObject("adodb.recordset")
sql="select * from Sdw_News where ID = "&ID
rspro.open sql,cn,1,3
if rspro.eof or rspro.bof then
response.Redirect "NewsList.asp"
else
%>