<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#A3BFE8">
  <tr>
    <td height="20" colspan="4" align="center" bgcolor="#E9F1F8">资讯管理</td>
  </tr>
  <tr>
    <td height="20" colspan="4" align="center" bgcolor="#E9F1F8">&nbsp;</td>
  </tr>
  <tr>
  <td width="5%" height="20" align="center" bgcolor="#FFFFFF">ID</td>
    <td align="center" bgcolor="#FFFFFF">信息标题[点击查看]</td>
    <td height="20" align="center" bgcolor="#FFFFFF">发布者</td>
    <td width="9%" height="20" align="center" bgcolor="#FFFFFF">管理</td>
  </tr>
  <%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from News order by n_time desc "
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then 
  %>
     <%
	rs.pagesize=18
	page=clng(REQUEST.QueryString("page"))

	if page<1 then
		page=1
	end if
	if page>rs.pagecount then
		page=rs.pagecount
	end if

	rs.absolutepage=page
	i=1
	do while not rs.eof and i<=rs.pagesize
	%>
  <tr>
    <td width="5%" align="center" bgcolor="#E9F1F8"><%=i%></td>
    <td width="62%" align="left" bgcolor="#E9F1F8"><a href="../shownews.asp?id=<%=rs("n_id")%>" target="_blank"><%=rs("n_title")%></a></td>
    <td width="24%" height="20" align="center" bgcolor="#E9F1F8"><%=rs("n_user")%></td>
    <td height="20" align="center" bgcolor="#E9F1F8"><a href="news_user_del.asp?id=<%=rs("n_id")%>" onClick="return confirm('是否确定删除本记录？');" class="a1">删除</a></td>
  </tr>
  <%
	rs.movenext
    	i=i+1
	loop
%>
<%else
response.Write("没有信息")
end if%>
  <tr>
    <td height="20" colspan="3" align="center" bgcolor="#E9F1F8">&nbsp;</td>
    <td height="20" align="center" bgcolor="#E9F1F8">&nbsp;</td>
  </tr>
  <tr>
    <td height="20" colspan="4" align="center" bgcolor="#E9F1F8"><div align="center">
        <% 
  if page=1 then 
  response.Write("第一页")
  else
  response.write("&nbsp;&nbsp;<a href=main.asp?adminjob=news&page=1>第一页</a>")
  end if
  
  if page=1 then 
   response.Write("&nbsp;&nbsp;上一页")
   else 
   response.Write("&nbsp;&nbsp;<a href=main.asp?adminjob=news&page="& page-1 & ">上一页</a>")
   end if
   
   if page=rs.pagecount then 
   response.Write("&nbsp;&nbsp;下一页")
   else 
   response.Write("&nbsp;&nbsp;<a href=main.asp?adminjob=news&page="& page+1 & ">下一页</a>")
   end if
   
   if page=rs.pagecount then 
   response.Write("&nbsp;&nbsp;最后一页")
   else 
   response.Write("&nbsp;&nbsp;<a href=main.asp?adminjob=news&page="& rs.pagecount & ">最后一页</a>")
   end if
   %>
&nbsp;<span class="hb">&nbsp;&nbsp;当前第
<% =page %>
页&nbsp;&nbsp;&nbsp;&nbsp;共
<% =rs.pagecount %>
页</span></div></td>
  </tr>
  <tr>
    <td height="20" colspan="4" align="center" bgcolor="#E9F1F8">&nbsp;</td>
  </tr>
</table>
<!--#include file="opennew.asp"-->