該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"＞
＜H2＞為了標識方便，請您註冊壹個用戶名稱＜/H2＞
用戶：＜INPUT TYPE="TEXT" name="name" SIZE="24"＞
密碼：＜INPUT TYPE="password" name="password" SIZE="24"＞
＜INPUT TYPE=SUBMIT VALUE="註 冊"＞
＜INPUT TYPE=RESET VALUE="清 除"＞
＜a href="/hosp/asp/dispbbs.asp"＞返回論壇＜/a＞
＜/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 %＞
＜B＞＜% =name %＞＜/B＞ 您已註冊成功!
＜a href="/hosp/asp/dispbbs.asp"＞返回論壇＜/a＞
＜% 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"＞
姓名: ＜INPUT NAME="name" SIZE="28"＞ 密碼: ＜INPUT TYPE="password" NAME="code" SIZE="28"＞
主題：＜INPUT NAME="subject" SIZE="66"＞
內容：
＜TEXTAREA NAME="content" ROWS=20 COLS=72＞＜/TEXTAREA＞
＜INPUT TYPE=SUBMIT VALUE="發布信息"＞
＜INPUT TYPE=RESET VALUE="清除信息"＞
＜/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:\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
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="
姓名：＜% =name %＞
主題：＜% =subject %＞
內容：＜% =content %＞
＜% 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) %＞
主題：＜% =RS(2) %＞
內容：＜% =RS(3) %＞
------------------------------------------------------------------------------
＜! --形成回復表單 --＞
＜% resub="Re:"
RS(2)
mtopnum=RS(8)
RS.Close
Connection.Close %＞
＜FORM METHOD="POST" ACTION="/hosp/asp/bbs.asp?ID=＜% =idnum %＞topnum=＜% =mtopnum %＞"＞
姓名: ＜INPUT NAME="name" SIZE="28"＞ 密碼: ＜INPUT TYPE="password" NAME="code" SIZE="28"＞
主題：＜INPUT NAME="subject" SIZE="66" VALUE="＜% =resub %＞"＞
內容：
＜TEXTAREA NAME="content" ROWS=20 COLS=72＞＜/TEXTAREA＞
＜INPUT TYPE=SUBMIT VALUE="信息回復"＞
＜INPUT TYPE=RESET VALUE="清除信息"＞
＜/FORM＞
＜a href="
＜/body＞
＜/html＞
6、所有帖子的顯示 Dispbbs.asp：列出所有的帖子的主題、作者、時間、訪問人數等信息。
＜html＞
＜head＞＜title＞dispbbs.asp＜/title＞＜/head＞
＜body background="/hosp/images/backgrnd.gif"＞
＜IMG SRC="/hosp/images/luntan.gif" BORDER=0＞
＜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＞
＜% 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) %＞)
＜% 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) %＞)
＜% RSNEXT.MoveNext
Loop
RS.MoveNext
Loop
RSNEXT.Close
Conn.Close
RS.Close
Connection.Close %＞
＜/body＞
＜/html＞
上述程序在Win NT4.0和IIS3.0上實現通過。