简单ASP论坛DIY
2018-09-06 12:03
阿泰的供稿
首先用access(小型网站之最爱)新建一个数据库，设取名为luntan，数据表的名称为“information”，建立如下字段：“text”，“name”，“time”，并将“time”默认值设为Now（）
<%
com.openDRIVER={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
while Not rs.EOF.
rs.MoveNext
wend
AbsolutePosition=N,(N=1,2,3......)
end if
%>
接着是用户书写留言部分。设论坛页为“information.asp”，则
最后一部分是将用户提交的表单数据记录到数据库中，则
<%
empty then
comb.OpenDRIVER={Microsoft access(小型网站之最爱) Driver(*.mdb)};pwd=information;
DBQ=Server.MapPath(luntan.mdb)
sql=select*from information
Set rsb=Server.CreateObject(ADODB.Recordset)
rsb.open sql,comb,3,2
rsb.AddNew
rsb(text)=request(text)
rsb(name)=request(name)
rsb.update
end if
%>