<!--#include file="../Inc/Config.asp" -->
<!--#include file="Admin_Check.asp" -->
<!--#include file="../Inc/AdminClass.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="../Inc/edit.CSS" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#5578b8" topmargin="0">
<%
if request.form("act")="ok" THEN
Dim id
	id=request.form("id")
	if id<>"" then
		conn.execute("delete from tb_new where id in("&id&")")
		CblogObj.DelCahe("Recommends_Help")
		set adminobj=nothing:set cblogobj=nothing
		Response.Write "<script language=JavaScript1.1>alert('成功!');" 
		Response.Write " document.location='AnnouncementList.Asp';</script>" 
		response.end
	end if
END IF
%>
<SCRIPT language=javascript src="../inc/js.js"></SCRIPT>
<table width="99%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
  <tr bgcolor="#cfdded"> 
    <td width="40" bgcolor="#cfdded"> <div align="center">选中</div></td>
    <td width="765" bgcolor="#cfdded">标题</td>
    <td width="75" bgcolor="#cfdded"><div align="center">时间</div></td>
    <td width="66"> <div align="center">修改</div></td>
  </tr>
<form name="add" method="post" action="AnnouncementList.Asp">
<%
DIM PAGES,SQLSTR,SQL,rsarrer,rscount,iii
Pages = Request.QueryString("page")
If Not IsNumeric(Pages) Or Pages = "" Then
	Pages = 1
Else
	Pages = CLng(Pages)
End If
sqlstr="select * from tb_new order by id desc"
Set rs = Server.CreateObject("Adodb.RecordSet")
rs.open sqlstr,Conn, 1, 1
SqlCount=SqlCount+1
if rs.bof and rs.eof then
	response.write("<tr><td height=25 colspan=3><div align=center>No Announcement</div></td></tr>")
else
rs.PageSize = 25
rs.AbsolutePage = pages
rscount=rs.RecordCount
rsarrer=rs.getrows(25)
for iii=0 to Ubound(rsarrer,2)
%>
    <tr bgcolor="#f0f5f9"> 
      <td><div align="center"> 
          <input name="ID" type="checkbox" id="ID" value="<%=rsarrer(0,iii)%>">
        </div></td>
      <td bgcolor="#f0f5f9">
        <%=rsarrer(1,iii)%>
        </td>
      <td bgcolor="#f0f5f9"><div align="center"><%=rsarrer(3,iii)%></div></td>
      <td><div align="center"><a href="AnnouncementUpdate.Asp?id=<%=rsarrer(0,iii)%>">修改</a></div></td>
    </tr>
<%
next
rs.close:Set rs=nothing
%>
    <tr bgcolor="#f0f5f9"> 
      <td colspan="4"><div align="center"> 
            
          <input name="act" type="hidden" id="act2" value="ok">
            
          <INPUT name=all type=button id="all" onclick=CheckAll(this.form) value=全选>
<INPUT name=sall type=button id="sall" onclick=CheckOthers(this.form) value=反选>
          <input name="Submit" type="reset" class="in" value="重置">
          <INPUT name=subimt type=submit class="in" id="subimt" onClick="return ConfirmDel();" value=删除>
        </div></td>
    </tr>
  </form>
  <tr bgcolor="#f0f5f9"> 
    <td colspan="4"> <div align="center"> 
        <%call pagelist(rscount,pages,25)%>
      </div></td>
  </tr>
<%
end if
%>
</table>
<br>
<div align="center"><%set adminobj=nothing:set cblogobj=nothing%></div>
</body>
</html>
