当前位置: 首页 > 图文教程 > 网络编程 > ASP > 简单ASP论坛DIY

ASP
用密码保护页面 (II)
用密码保护页面 (III)
简单的文件目录浏览源程序
ASP中的函数应用方法及应用举例(一)
ASP中的函数应用方法及应用举例(二)
完整的访问统计系统（一：数据库篇）
完整的访问统计程序（二 程序篇）
完整的访问统计程序(三 应用篇)
一个提供用户输入时期的绝好程序之(一)
一个提供用户输入时期的绝好程序之(二)
构建你的网站新闻自动发布系统之五
构建你的网站新闻自动发布系统之六
完整的访问统计程序（二 程序篇）
完整的访问统计程序(三 应用篇)
ASP环境下邮件列表功能的实现 （一）
ASP环境下邮件列表功能的实现 （二）
ASP环境下邮件列表功能的实现 （三）
ASP环境下邮件列表功能的实现 （四）
ASP进阶之文章在线管理更新(1)
ASP进阶之文章在线管理更新(2)

No. « 215 216 217 218 »

技术文章搜索

关键字

简单ASP论坛DIY

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-08-14   浏览: 61 ::
收藏到网摘: n/a

首先用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
%>