<%
Set conn=Server.CreateObject("ADODB.Connection")
p1="Provider=Microsoft.Jet.OLEDB.4.0;"
Path="Data Source="&Server.MapPath("database/db1.mdb")
conn.Open p1&Path
qstring1="select top 5 * from 留言 order by 留言时间 desc"
set result1=conn.execute(qstring1)
do while not result1.eof
%>