|
阿泰的供稿
首先用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
%>
|
