news.asp

基于asp的 班级同学录主页源代码

<!-- #include file="bkconn.asp" -->
<%Set rs= Server.CreateObject("ADODB.Recordset")
rs.Open "Select top 3 * From book Order By time DESC",conn,1,1
'可将5修改为你所需要在首页显示的信息条数%>
<%
if not rs.eof then
rs.movefirst
dis_mes=dis_mes&""
do while not rs.eof
dis_mes=dis_mes &"<font color=#000000>"&rs("name") &"</font>于"&formatdatetime(rs("time"),vblongdate)&"留言给<font color=red>"&rs("title") & "</font>说:<br><img src=image/narrow.gif>"&rs("content")
rs.movenext
loop
dis_mes=dis_mes & ""
end if
rs.close
dis_mes="document.write('" & dis_mes & "');"
response.write dis_mes
conn.close
set conn=nothing
%>