news.asp

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

<!-- #include file="connect.asp" -->
<%rs.Open "Select top 5 * From data Order By time DESC",conn,3
'可将10修改为你所需要在首页显示的信息条数%>
<%
if not rs.eof then
rs.movefirst
dis_mes=dis_mes & ""
do while not rs.eof
dis_mes=dis_mes &"<img src=mynews/dian.gif><a href=javascript:openScript(&quot;mynews/dismemo.asp?id=" & rs("id") & "&quot;,300,200)><font color=#000000>"&rs("name") &"</font></a><font size=1 color=#ffffff>["&rs("time") & "]</font><br>"
rs.movenext
loop
dis_mes=dis_mes & ""
end if
rs.close
dis_mes="document.write('" & dis_mes & "');"
response.write dis_mes
%>