<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("testdb.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
%>

<%rs.open "select * from mydate order by id desc",conn,1,1%>








 
   
 
 
   
 

<%if rs.eof then%>                             <%else%> <%do while not rs.eof%>                               <%rs.movenext loop%> <%end if%>     作者： 留言：           作者：<%=rs("name")%> 留言：           <%=rs("text")%>

<%rs.close%>

<%if request("p")="insert" then
rs.open "select * from mydate",conn,3,3
rs.addnew
rs("name")=request("text1")
rs("text")=request("text2")
rs.update
rs.close
end if%>

 

 
 


 
 


 
 

 

留言内容：
作者：