<!--#include file="inc/const.asp"-->
<!--#include file="inc/bouu_common.asp"-->
<%	
Const PurviewLevel=4    '操作权限
%>
<!--#include file="inc/checksystem.asp"--> 
<!--#include file="Inc/syscode.asp"-->
<%
dim ID
dim sqlAnnounce
dim rsAnnounce
dim AnnounceNum
ID=Trim(request("ID"))
if ID<>"" then
	sqlAnnounce="select * from Announce where ID=" & Clng(ID) & " order by ID desc"
else
	sqlAnnounce="select * from Announce where IsSelected=True order by ID desc"
end if
Set rsAnnounce= Server.CreateObject("ADODB.Recordset")
rsAnnounce.open sqlAnnounce,conn,1,1
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>学校公告</title>
<meta name="keywords" content="<%=keywords%>"/>
<meta name="description" content="<%=description%>"/>
<link href="css/style.css" type="text/css" rel="stylesheet" />
<script language="javascript" src="js/goofox.js" ></script>
</head>
<body>
<br>
<div class="container">
<div class="box line">
   <%call ShowBigClass() %>
</ul></div>
  <div class="box_1">
        <ul class="box_line">
          <!--格式<li class="bv">  </li>-->
 <%if ad=1 then %><li><%call ShowBanner()%></li><%end if%>
         <li><%call ShowSearch(2)%></li>
        </ul>
      </div>       
</div>
<div class="weizhi"><b>您的位置</b>：&nbsp;<a href='index.asp'>首页</a> &nbsp;&gt;&gt;&nbsp;学校公告&nbsp;
 </div>
  <!--我的主目录-->
<div class="box line">
      <div class="box_title">
        <h3 style="text-align: center">学 校 公 告</h3>
      </div> 
  <div class="box_1">

  <%
if rsAnnounce.bof and rsAnnounce.eof then 
	response.write "<li>&nbsp;&nbsp;没有公告或找不到指定的公告</li>" 
else 


	AnnounceNum=rsAnnounce.recordcount
	dim i
	do while not rsAnnounce.eof
		'response.Write "<p align='center'>" & rsAnnounce("title") & "</p><p align='left'>&nbsp;&nbsp;&nbsp;&nbsp;" & rsAnnounce("Content") & "</p><p align='right'>" & rsAnnounce("Author")& "&nbsp;&nbsp;<br>" & FormatDateTime(rsAnnounce("DateAndTime"),1) & "</p>"
		'rsAnnounce.movenext
		'i=i+1
		'if i<AnnounceNum then response.write "<hr>"
	'loop	
'end if  
%>
   <table border="1" width="100%" id="table1" cellspacing="5" cellpadding="5">
	<tr>
		<td>
		<p align="center"><font size="4"><%=rsAnnounce("title")%>　</font></td>
	</tr>
	<tr>
		<td>
		<p align="center">发布人：<%=rsAnnounce("Author")%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;发布时间：<%=FormatDateTime(rsAnnounce("DateAndTime"),1) %></td>
	</tr>
	<tr>
		<td>
		<table border="0" width="100%" id="table2" cellspacing="10" cellpadding="8">
			<tr>
				<td>
				<p align="left">&nbsp;&nbsp;<%= rsAnnounce("Content")%></td>
			</tr>
			<tr>
				<td>
				<p align="right"></td>
			</tr>
		</table>
		</td>
	</tr>
	</table>
 <%		rsAnnounce.movenext
		i=i+1
		if i<AnnounceNum then response.write ""
	loop	
end if  
%>

</div>       
</div>
    

   
</div>
</body>
</html>
<%
Function htmlspecialchars(str)
	str = Replace(str, "&", "&amp;")
	str = Replace(str, "<", "&lt;")
	str = Replace(str, ">", "&gt;")
	str = Replace(str, """", "&quot;")
	htmlspecialchars = str
End Function



rsAnnounce.close
set rsAnnounce=nothing
call CloseConn()
%>