a25175_notice.asp

来自「ASP学生网上评教系统」· ASP 代码 · 共 37 行

<!--#include file="a25175_conn.asp"-->
<style type="text/css">
<!--
.STYLE1 {
	font-size: 12px;
	text-decoration: none;
	color: #333333;
}
-->
</style>
<% 
strsql="select top 3 * from news order by id desc"
		  set rs=db.execute(strsql)
		  if rs.eof then
		  judge="<p align=center>目前没有公告"
		  end if
%>
		  <% do while NOt rs.eof
		  judge=judge&"<p align=center>" & rs("title")
          judge=judge&"<p align=left>" &rs("body")
		  judge=judge&"<p align=right>" &rs("person")&"<br>"&rs("submit_date")
		  rs.movenext
		  Loop
		  %> 


<table width="100%" height="100%"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td align="left">
    <MARQUEE onmouseover=stop() onmouseout=start() scrollAmount=2 
scrollDelay=100 direction=up width="100%" height="100%" border="0" style="cursor:hand">
    <a href="#"  class="STYLE1"><%=judge%></a>
    </MARQUEE>    </td>
  </tr>
</table>