<% '!--#include file="conn.asp"--%><!--自己加上去的-->
<%
sub showInfoTitle '显示信息类列表信息
 response.Write("<a href='Article.asp?id="&rs("id")&"' target='_blank'>")
 if rs("pic")="Yes" then 
 response.write("<font color=blue>[图]</font>")
 end if
 response.Write(rs("title"))
 response.Write("</a>")
end sub
  set rs=server.CreateObject("adodb.recordset")'查询数据库
  sql="select top 7 * from news where BigClassName='教学工作' and SmallClassName='教务信息' order by id desc"
  rs.open sql,conn,1,1
			
	if rs.eof and rs.bof then'数据库为空
	  response.write"<br><br>"
	  response.write"资料正在整理中！"   
	else %>
	
<style type="text/css">

td {font-famVerdana", "Helvetica", "sans-serify: "宋体";font-size: 12px;	color: #000000;text-decoration: none;line-height:22px;}
A:link {FONT-SIZE: 12px; COLOR: #000000; text-decoration: none;}

A:visited {FONT-SIZE: 12px; COLOR: #000000; TEXT-DECORATION: none}

A:hover {
	FONT-SIZE: 12px;
	COLOR: #FF0000;
	text-decoration: none;
</style>

<body bgcolor="#F4FBFF">
<table width="85%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" >
  <%do while not rs.eof%>
  <tr>
 <td height="23" width="15"><img src="img/icon7.gif" width="18" height="8"></td>
  <td valign="middle" ><%call showInfoTitle%></td>
                                                                
      </tr>
 <%
	recordsetcount=recordsetcount+1
	rs.movenext
		loop
					%>
</table>
<%end if%>

</body>
</html>