shownotice.asp

一个学生选棵系统的毕业论文

<!--#include file="../../include/keepHouse.asp"-->
<table border="1" width="587" bordercolorlight="#0000dd" bordercolordark="#FFFFFF" cellspacing="0" cellpadding="0" height="106">
<tr>
<td width="100%" bgcolor="#99CCFF" height="20" align="center">
<font color="#000099"><b>重要通知</b></font></td>
</tr>
<%
sql="select * from CourseSelectNotice order by NOTICE_ID desc"
call openDB()
sql1="select top 1 * from CourseSelectNotice WHERE NOTICE_HOT='Y' order by NOTICE_ID desc"
Set rs1= Server.CreateObject("ADODB.Recordset")
rs1.open sql1,conn,1,1
%>
<tr>
<td width="100%" bgcolor="#F0F0F0">
<marquee scrollamount="1" scrolldelay="30" direction= "up" id="helpor_net"
width="570"  height="89" onMouseOver="helpor_net.stop()" onMouseOut="helpor_net.start()">
&nbsp;&nbsp;&nbsp;&nbsp; 
<%
if rs1.eof then 
	response.Write "暂时没有重要选课通告！"  
else 
	response.Write rs1("NOTICE_CONTENT") 
end if
%>
</marquee>
</td>
</tr>
</table>
<br>
<table border="1" width="586" cellspacing="0" cellpadding="0" bordercolorlight="#0000dd" bordercolordark="#FFFFFF">
<tr> 
<td align="center" bgcolor="#99CCFF" height="25" colspan="3">
<font color="#000099"><b>最新公告</b></font></td>
</tr>
<tr> 
<td width="51" align="center" bgcolor="#99CCFF" height="25">NO</td>
<td width="385" align="center" bgcolor="#99CCFF" height="25">公告标题</td>
<td width="142" align="center" bgcolor="#99CCFF" height="25">添加时间</td>
</tr>
<%
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
	dim i
	i=1
	while not rs.eof and i<6
		%>
		<tr> 
		<td width="51" height="25" bgcolor="#99CCFF" align="center"><%=i%></td>
		<td width="385" height="25" bgcolor="#F0F0F0">&nbsp;<a href="#" 
		onClick="window.open('ArrangeCourse/CourseSelectNotice/Read.asp?NOTICE_ID=<%=rs("NOTICE_ID")%>','1','scrollbars=yes,resizable=no,width=420,height=350')">
		<%=rs("NOTICE_TITLE")%></a></td>
		<td width="142" height="25" bgcolor="#F0F0F0" align="center"><%=rs("NOTICE_TIME")%>
		</td>
		</tr>
		<%
		i=i+1
		rs.movenext
	wend
	call closeDB()
end if
%>
</table>
</center>
</td>
</tr>
</table>