
<%
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"“"&smallClass&"”资料正在整理中！"   
	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>
</HEAD>
<body bgcolor="#F4FBFF">
<table width="100%" height="25" 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%><%response.write "&nbsp;&nbsp;&nbsp;&nbsp;"%><%=month(rs("infotime"))%>/<%=day(rs("infotime"))%>/<%=year(rs("infotime"))%></td>
                                                                
                      </tr>
                     
                      <%
					recordsetcount=recordsetcount+1
					rs.movenext
					loop
					%>
</table>
<%end if%>
