这个程序是提交最新的5条文章的！可是我用了后，提交的文章不能是最新的文章，而是一直固定在几个文章！我不知道该怎么弄！
<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("6.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
sql_news="Select top 5 * From yannews Order By counter DESC"
set rs_news=conn.execute(sql_news)
if not rs_news.eof then
rs_news.movefirst
dis_mes=dis_mes & "
"
do while not rs_news.eof
dis_mes=dis_mes &"" & rs_news("biaoti") & "[" & rs_news("shijian") & "]
"
rs_news.movenext
loop
dis_mes=dis_mes & " |
"
end if
rs_news.close
dis_mes="document.write(""" & dis_mes & """);"
response.write dis_mes
%>
