简单ASP论坛DIY

阿泰的供稿

首先用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.”，则

  <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

  %>