阿泰的供稿
首先用Access新建一个数据库,设取名为luntan,数据表的名称为“information”,建立如下字段:“text”,“name”,“time”,并将“time”默认值设为Now()
  <%
  Set com = Server.CreateObject("ADODB.Connection")
  com.open"DRIVER={Microsoft Access Driver("luntan.mdb"); 
pwd=information;DBQ="&Server.MapPath("luntan.mdb")
  sql="select*from information order by time Desc"
  Set rs=Server.CreateObject("ADODB.Recordest")
  rs.open sql,com,3,2
  if rs.EOF or rs.BOF then
  response.write"没有留言"
  else
    rs.MoveFirst...[ 查看全文 ]