阿泰的供稿
首先用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...[ 查看全文 ]