<!--#include file="conn.asp"-->
<%



Rem 获得最新的10条新闻
dim sql3,classname3,namestr3,url3
	sql3="select top 10 * from [fksf_news] where classname='心情故事' order by id desc"
	classname3="心情故事"
	namestr3="subject"
	url3="news.asp"
	set rs_newslist=Server.CreateObject("ADODB.RecordSet")
	rs_newslist.open sql3,conn,1,1
	if(rs_newslist.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>&nbsp;")
		Response.Write("暂时没有玩家心得")
		Response.Write("</TD></TR></TABLE></TD></TR>")
	else
		for i=1 to rs_newslist.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="&url3&"?id="&rs_newslist("id")&" target=_blank>["&classname3&"]&nbsp;"&left(rs_newslist(namestr3),14)&"</A>")
			Response.Write("</TD><TD width='20%'>")
			Response.Write("<DIV align=right>"&year(rs_newslist("publishdate"))&"-"&month(rs_newslist("publishdate"))&"-"&day(rs_newslist("publishdate"))&"</DIV>")
			Response.Write("</TD></TR></TABLE></TD></TR>")
			rs_newslist.movenext
		next
	end if
	rs_newslist.close()
	set rs_newslist=nothing
%>