<!--#include file="conn.asp"-->
<%
Rem 获得最新的7条活动公告
sub get_huodonglist()
	set rs_huodonglist=Server.CreateObject("ADODB.RecordSet")
	rs_huodonglist.open "select top 7 * from [fksf_huodong] order by publishdate desc",conn,1,1
	if(rs_huodonglist.eof) then
		Response.Write("<TR><TD>")
		Response.Write("<TABLE class=style1 id=Table1 cellSpacing=0 cellPadding=0 width=98% align=center border=0>")
		Response.Write("<TR><TD colspan=2 align='center'>&nbsp;")
		Response.Write("暂时没有活动")
		Response.Write("</TD></TR></TABLE></TD></TR>")
	else
		for i=1 to rs_huodonglist.recordcount
			response.Write("<TR><TD>")
			Response.Write("<TABLE class=style1 id=Table1 cellSpacing=0 cellPadding=0 width=98% align=center border=0>")
			Response.Write("<TR><TD width='5%'>")
			Response.Write("<IMG height=7 src=image/biaodian.gif width=7></TD>")
			Response.Write("<TD width=75% height=19 align=left>")
			Response.Write("<A href=huodong.asp?id="&rs_huodonglist("id")&" target=_blank>[活动]&nbsp;"&rs_huodonglist("huodongname")&"</A>")
			Response.Write("</TD><TD width='20%'>")
			Response.Write("<DIV align=right>"&year(rs_huodonglist("publishdate"))&"-"&month(rs_huodonglist("publishdate"))&"-"&day(rs_huodonglist("publishdate"))&"</DIV>")
			Response.Write("</TD></TR></TABLE></TD></TR>")
			rs_huodonglist.movenext
		next
		if(i<8) then
			Response.Write("<TR><TD>")
			Response.Write("<TABLE class=style1 id=Table1 cellSpacing=0 cellPadding=0 width=98% align=center border=0>")
			Response.Write("<TR><TD colspan=2>&nbsp;")
			Response.Write("暂时没有更多活动")
			Response.Write("</TD></TR></TABLE></TD></TR>")
		end if
		for j=i+1 to 7
			Response.Write("<TR><TD>")
			Response.Write("<TABLE class=style1 id=Table1 cellSpacing=0 cellPadding=0 width=98% align=center border=0>")
			Response.Write("<TR><TD colspan=2>&nbsp;")
			Response.Write("</TD></TR></TABLE></TD></TR>")
		next
	end if
	rs_huodonglist.close()
	set rs_huodonglist=nothing
end sub
%>