首先用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
%> |
注册域名购买空间推荐中国数据www.zgsj.cn
在线qq 48856863 客服8091
中文域名成为顶级域名，无须装插件即可打开，赶紧注册哦，
cn域名一年只要1元，com只要45元，如此优惠还等什么呢？
升级代理更多惊喜，让你享受超值最低价，赶紧去看看。。。。
