<% Set rs = server.CreateObject("ADODB.Recordset")
sql="select * from contents order by id desc"
rs.Open sql,conn,1,1
Do While Not rs.eof
response.write ("")
response.write ("| 姓名:"&rs("name")&" | ")
response.write (" 留言时间:"&rs("time")&" | ")
response.write ("
")
response.write ("| 留言:"&rs("content")&" |
")
response.write ("
")
rs.movenext
Loop
rem 释放资源
rs.close
Set rs = Nothing
%>