用ASP实现网页BBS

March 25,2004

传统的网页BBS大多是采用CGI模式实现的，它的实现要求编程者既要掌握编程语言如Perl或C等，又要了解关于CGI模式的各项技术内容，因此要制作自己的网页BBS确实困难不小。ASP（Active
Server Pages 动态服务器主页）的出现，使我们眼前一亮，能不能利用ASP实现网页BBS呢？回答当然是肯定的。ASP的诱人之处就在于它提供了一种简单易学的脚本，并带有许多内置的对象，从而提供了一条简捷的编程之路。
      　　该BBS主要由用户注册(浏览器端)、用户注册（服务器端）、加帖子（浏览器端）、加帖子（服务器端）、帖子具体内容的显示和回复以及所有帖子的显示六个部分组成，其中用户信息存放在数据库author.mdb中，帖子存放在数据库bbs.mdb中。它们均为ACCESS数据库，结构分别如表1、表2所示。

表1 author.mdb


      字段名数据类型长度说明
      Authname 文本 24 用户名
      Password 文本 10 密码


表2 bbs.mdb


      字段名　数据类型　长度　说明
      ID 　　　　文本　　　 4 　帖子的编号
      Authname　文本　　　24　用户名
      Subject 　　文本　　80 　　主题
      Content 　　备注　　　　　内容
      Adddate 日期/时间　　　　加贴的日期
      Visitnum　数字　长整型　访问人数
      Answernum　文本　　4　　所回复帖子的编号
      （缺省为本身的编号）
      Addtime 　日期/时间　　　　加贴的时间
      Topnum　　文本　　　4 　　第一层回复帖子的编号


具体实现方法如下所示，其中asp文件和数据库存放在“/hosp/asp"中，其它htm
文件存放在“/hosp"文件中，img文件存放在“/hosp/images"。
1、用户注册（浏览器端）login.htm:由用户输入相关信息，通过表单传送到服
务器。


      <html>
      <head><title> register a new user</title><head>
      <body>
      <FORM METHOD="POST" ACTION="/hosp/asp/register.asp"><P>
      <H2>为了标识方便，请您注册一个用户名称</H2>
      用户：<INPUT TYPE="TEXT" name="name"
      SIZE="24"><P>
      密码：<INPUT TYPE="password" name="password"
      SIZE="24"><P>
      <INPUT TYPE=SUBMIT VALUE="注册">
      <INPUT TYPE=RESET VALUE="清除">
      <a href="/hosp/asp/dispbbs.asp">返回论坛</a><P>
      </body>
      </html>


2、用户注册（服务器端）Register.asp：利用REQUEST.FORM("表单栏位名")接收表单信息，采用ADO技术与数据库author.mdb连接，并将表单信息存入author.mdb中。


      <html>
      <head><title> 存用户信息 </title></head>
      <body>
      
      <% name=REQUEST.FORM("name")
      code=REQUEST.FORM("password")
      
      Set Connection=Server.CreateObject("ADODB.Connection")
      Connection.Open "author"
      Set RS=Connection.Execute("SELECT * FROM author")
      
      If Not RS.EOF Then %>
      该用户名已被注册，请您重新<a href="/hosp/login.htm">注册</a>新用户名!
      <% Else
      Connection.Execute("INSERT INTO author(authname,password) Values('"
      &name& "','" &code& "')")
      RS.Close
      Connection.Close %>
      <CENTER><B><% =name %></B> 您已注册成功!<P>
      <a href="/hosp/asp/dispbbs.asp">返回论坛</a></CENTER>
      <% End If %>
      </body>
      </html>


　
3、加帖子（浏览器端）bbs_add.htm：由用户输入待加入帖子的相关信息，并传到服务器。


      <html>
      <head><title> a sample form </title></head>
      <body background="/hosp/images/backgrnd.gif">
      <FORM METHOD="POST" ACTION="/hosp/asp/bbs.asp"><P>
      姓名: <INPUT NAME="name" SIZE="28"> 密码: <INPUT
      TYPE="password" NAME="code" SIZE="28"><P>
      主题：<INPUT NAME="subject" SIZE="66"><P>
      内容：<P>
      <TEXTAREA NAME="content" ROWS=20 COLS=72></TEXTAREA><P>
      <CENTER><INPUT TYPE=SUBMIT VALUE="发布信息">
      <INPUT TYPE=RESET VALUE="清除信息"></CENTER>
      </FORM>
      </body>
      </html>


4、加帖子（服务器端）bbs.asp：接收帖子内容，并存入bbs.mdb中。


      <html>
      <head><title>bbs.asp</title></head>
      <body>
      <% name=REQUEST.FORM("name")
      code=REQUEST.FORM("code")
      subject=REQUEST.FORM("subject")
      content=REQUEST.FORM("content")
      curdate=Date
      curtime=Time
      
      Set Connection = Server.CreateObject("ADODB.Connection")
      Connection.Open "author"
      Set RS = Connection.Execute("SELECT * FROM author WHERE authname='"
      &name& "' AND password='" &code& "'")
      
      If Not RS.EOF Then
      
      Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
      Set InStream = FileObject.OpenTextFile ("c:inetpubwwwroothospaspdata.id",
      1, False, False)
      number = Cstr(InStream.Readline+1)
      Set OutStream = FileObject.CreateTextFile
      ("c:inetpubwwwroothospaspdata.id", True, False)
      OutStream.WriteLine number
      If Request.QueryString("ID")="" Then
      manswernum=number
      Else
      manswernum=Request.QueryString("ID")
      End If
      If Request.QueryString("topnum")="" Then
      mtopnum=number
      Else
      mtopnum=Request.QueryString("topnum")
      End If
      Set OutStream = Nothing
      
      Set Connbbs = Server.CreateObject("ADODB.Connection")
      Connbbs.Open "bbs"
      Connbbs.Execute("INSERT INTO
      bbs(ID,authname,subject,content,adddate,addtime,answernum,topnum,visitnum) Values('"
      &number& "','"
      &name& "','" &subject& "','" &content&
      "','" &curdate& "','" &curtime& "','"
      &manswernum& "','" &mtopnum& "',0)")
      Connbbs.Close %>
      <% =curdate & " " %><% =curtime & " 添加贴子 "
      %>
      <a href="http://nt-server/hosp/asp/dispbbs.asp">返回论坛</a><P>
      姓名：<% =name %><P>
      主题：<% =subject %><P>
      内容：<% =content %><P>
      <% Else %>
      您的用户名或密码出错，请您重输！
      <% End If
      RS.Close
      Connection.Close %>
      </body>
      </html>



5、帖子具体内容的显示和回复 detail.asp


      <html>
      <head><title>bbs.asp</title></head>
      <body background="/hosp/images/backgrnd.gif">
      <% idnum=Request.QueryString("ID")
      Set Connection=Server.CreateObject("ADODB.Connection")
      Connection.Open "bbs"
      Set RS=Connection.Execute("SELECT * FROM bbs WHERE ID='" &idnum&
      "'") %>
      姓名：<% =RS(1) %><p>
      主题：<% =RS(2) %><p>
      内容：<% =RS(3) %><p>

      ------------------------------------------------------------------------------
      <! --形成回复表单 -->
      <% resub="Re:" & RS(2)
      mtopnum=RS(8)
      RS.Close
      Connection.Close %>
      <FORM METHOD="POST" ACTION="/hosp/asp/bbs.asp?ID=<% =idnum
      %>&topnum=<% =mtopnum %>"><P>
      姓名: <INPUT NAME="name" SIZE="28"> 密码: <INPUT
      TYPE="password" NAME="code" SIZE="28"><P>
      主题：<INPUT NAME="subject" SIZE="66" VALUE="<% =resub
      %>"><P>
      内容：<P>
      <TEXTAREA NAME="content" ROWS=20 COLS=72></TEXTAREA><P>
      <CENTER><INPUT TYPE=SUBMIT VALUE="信息回复">
      <INPUT TYPE=RESET VALUE="清除信息"></CENTER>
      </FORM>
      <a href="http://nt-server/hosp/asp/dispbbs.asp">返回论坛</a>
      </body>
      </html>



6、所有帖子的显示 Dispbbs.asp：列出所有的帖子的主题、作者、时间、访问人数等信息。




      <html>
      <head><title>dispbbs.asp</title></head>
      <body background="/hosp/images/backgrnd.gif">
      <CENTER><IMG SRC="/hosp/images/luntan.gif"
      BORDER=0></CENTER><P>
      <CENTER><A HREF="/hosp/login.htm"><IMG
      SRC="/hosp/images/zhuce.gif" BORDER=0></A>
      <A HREF="/hosp/bbs_add.htm"><IMG SRC="/hosp/images/jiatz.gif"
      BORDER=0></A>
      <A HREF="/hosp/default.htm"><IMG
      SRC="/hosp/images/return.gif" BORDER=0></A></CENTER><P>
      <% Set Connection=Server.CreateObject("ADODB.Connection")
      Connection.Open "bbs"
      Set RS=Connection.Execute("SELECT * FROM bbs WHERE ID=answernum ORDER BY ID
      DESC")
      Set Conn=Server.CreateObject("ADODB.Connection")
      Conn.Open "bbs"
      Set RSNEXT=Conn.Execute("SELECT * FROM bbs")
      Do While not RS.EOF %>
      <% =RS(0) %> <a href="/hosp/asp/detail.asp?ID=<% =RS(0)
      %>"><% =RS(2) %></a> -<FONT SIZE="4"><B><%
      =RS(1) %></B></FONT> <%
      =RS(4) &" " %><% =RS(7) %>(<% =RS(5) %>)<P>
      <% Set RSNEXT=Conn.Execute("SELECT * FROM bbs WHERE topnum<>ID AND
      opnum='" &RS(0)& "' ORDER BY ID ASC")
      Do While Not RSNEXT.EOF %>
      <% =RSNEXT(0) %> <a href="/hosp/asp/detail.asp?ID=<% =RSNEXT(0)
      %>">Re<% RSNEXT(6) %>:<% =RSNEXT(2) %></a>
      -<FONT SIZE="4"><B><% =RSNEXT(1) %></B></FONT>
      <% =RSNEXT(4) &" " %><% =RSNEXT(7) %>(<% =RSNEXT(5)
      %>)<P>
      <% RSNEXT.MoveNext
      Loop
      RS.MoveNext
      Loop
      RSNEXT.Close
      Conn.Close
      RS.Close
      Connection.Close %>
      </body>
      </html>


上述程序在Win NT4.0和IIS3.0上实现通过。