传统的网页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")
＜!-- 与author.mdb衔接 --＞
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
＜!-- 与author.mdb衔接 --＞
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
＜!--
打开数据文件，该文件
存放帖子的编号，每加一个帖子，编号加1 --＞
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set InStream = FileObject.OpenTextFile ("c:\inetpub\wwwroot\hosp\asp\data.id", 1, False, False)
number = Cstr(InStream.Readline+1)
Set OutStream = FileObject.CreateTextFile ("c:\inetpub\wwwroot\hosp\asp\data.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
＜!-- 与bbs.mdb衔接，将帖子信息存入数据库中 --＞
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上实现通过 。
