简单ASP论坛DIY

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【简单ASP论坛DIY】，下面是详细的分享！

简单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.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 %>

以上所分享的是关于简单ASP论坛DIY，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：千分悬赏，求一个比较简单的ASP.NET的论坛BBS源代码

　　答：您好~已经给您发送了，来自lkdtc2012@gmail.com，希望您满意 visual studio 2010+ sql server 2008制作。 数据库访问使用EF框架的小型BBS程序。可自定义版块，管理发帖评论内容。 目前版块，站务综合，游戏下载，测试等。 程序比较简单，适合初... >>详细

　　相关问题：怎么样做论坛？？？

　　答：网上有很多现成的，看你什么的空间，使用什么的论坛，ASP 的例如：动网 PHP 例如DZ 很多很多，自己找找就可以 这个网址 http://www.mycodes.net >>详细

　　相关问题：有没有最简单的ASP论坛程序

　　答：做程序员命苦呀 >>详细