<%if session("admin_user")="" then response.Redirect("login.asp") end if%> <%sql="select * from news order by id desc" set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,2 i=10 rs.pagesize=i pageno=request.QueryString("pageno") if pageno<1 or pageno="" then pageno=1 else pageno=cint(pageno) end if if pageno>rs.pagecount then pageno=rs.pagecount end if rs.absolutepage=pageno%>

<%do while not rs.eof and i>0%> <%i=i-1 rs.movenext loop%> 新闻管理 文章标题 修改 删除 <%=rs("title")%> '" /> '} else{}"/> <% if pageno=1 and pageno=rs.pagecount then response.Write("【首页】【上页】【下页】【末页】") end if if pageno=1 and pageno<> rs.pagecount then response.Write("【首页】【上页】【下页】【末页】") end if if pageno=rs.pagecount and pageno<>1 then response.Write("【首页】【上页】【下页】【末页】") end if if pageno>1 and pageno首页】【上页】【下页】【末页】") end if %>

<%rs.close conn.close set rs=nothing%>