阿泰的供稿
首先用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
while Not rs.EOF.
response.write rs("name")&"发布于"&rs("time")&"<br>"
response.write rs("text")&"<br><hr>"
rs.MoveNext
wend
AbsolutePosition=N,(N=1,2,3......)
end if
%>
接着是用户书写留言部分。设论坛页为“information.asp”，则
<form method=post action="information.asp">
姓名：<input type=text size=12 name="name"><br>
留言：<textarea cols=30 row=4 name="text"></textarea><br>
<input type=submit value="提交">
</form>
最后一部分是将用户提交的表单数据记录到数据库中，则
<%
if request("text")<>empty and request ("name")<>empty then
Set comb=Server.CreateObject("ADODB.Connection")
comb.Open"DRIVER={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
%> |