用ASP制作简单论坛BBS

该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＞新用户名!＜% ElseConnection.Execute("INSERT INTO author(authname,password) Values('" &name& "','" &code& "')")RS.CloseConnection.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=Datecurtime=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:inetpubwwwroothospaspdata.id", 1, False, False)number = Cstr(InStream.Readline+1)Set OutStream = FileObject.CreateTextFile ("c:inetpubwwwroothospaspdata.id", True, False)OutStream.WriteLine numberIf Request.QueryString("ID")="" Thenmanswernum=numberElsemanswernum=Request.QueryString("ID")End IfIf Request.QueryString("topnum")="" Thenmtopnum=numberElsemtopnum=Request.QueryString("topnum")End IfSet 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 IfRS.CloseConnection.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.CloseConnection.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.MoveNextLoopRS.MoveNextLoopRSNEXT.CloseConn.CloseRS.CloseConnection.Close %＞＜/body＞＜/html＞