用ASP打造一个小型的网页BBS系统
传统的网页BBS大多是采用CGI模式实现的，它的实现要求编程者既要掌握编程语言如Perl或C等，又要了解关于CGI模式的各项技术内容，因此要制作自己的网页BBS确实困难不小。ASP（ActiveServerPages动态服务器主页）的出现，使我们眼前一亮，能不能利用ASP实现网页BBS呢？回答当然是肯定的。ASP的诱人之处就在于它提供了一种简单易学的脚本，并带有许多内置的对象，从而提供了一条简捷的编程之路。
该BBS主要由用户注册(浏览器端)、用户注册（服务器端）、加帖子（浏览器端）、加帖子（服务器端）、帖子具体内容的显示和回复以及所有帖子的显示六个部分组成，其中用户信息存放在数据库author.mdb中，帖子存放在数据库bbs.mdb中。它们均为ACCESS数据库，结构分别如表1、表2所示。
表1author.mdb
字段名数据类型长度说明
Authname文本24用户名
Password文本10密码
表2bbs.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>registeranewuser</title><head>
<body>
<FORMMETHOD="POST"ACTION="/hosp/asp/register.asp"><P>
<H2>为了标识方便，请您注册一个用户名称</H2>
用户：<INPUTTYPE="TEXT"name="name"SIZE="24"><P>
密码：<INPUTTYPE="password"name="password"SIZE="24"><P>
<INPUTTYPE=SUBMITVALUE="注册">
<INPUTTYPE=RESETVALUE="清除">
<ahref="/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连接-->
SetConnection=Server.CreateObject("ADODB.Connection")
Connection.Open"author"
SetRS=Connection.Execute("SELECT*FROMauthor")
<!--如果该用户名已存在，请重输，否则存入数据库-->
IfNotRS.EOFThen%>
该用户名已被注册，请您重新<ahref="/hosp/login.htm">注册</a>新用户名!
<%Else
Connection.Execute("INSERTINTOauthor(authname,password)Values('"&name&"','"&code&"')")
RS.Close
Connection.Close%>
<CENTER><B><%=name%></B>您已注册成功!<P>
<ahref="/hosp/asp/dispbbs.asp">返回论坛</a></CENTER>
<%EndIf%>
</body>
</html>
3、加帖子（浏览器端）bbs_add.htm：由用户输入待加入帖子的相关信息，并传到服务器。
<html>
<head><title>asampleform</title></head>
<bodybackground="/hosp/images/backgrnd.gif">
<FORMMETHOD="POST"ACTION="/hosp/asp/bbs.asp"><P>
姓名:<INPUTNAME="name"SIZE="28">密码:<INPUTTYPE="password"NAME="code"SIZE="28"><P>
主题：<INPUTNAME="subject"SIZE="66"><P>
内容：<P>
<TEXTAREANAME="content"ROWS=20COLS=72></TEXTAREA><P>
<CENTER><INPUTTYPE=SUBMITVALUE="发布信息">
<INPUTTYPE=RESETVALUE="清除信息"></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连接-->
SetConnection=Server.CreateObject("ADODB.Connection")
Connection.Open"author"
SetRS=Connection.Execute("SELECT*FROMauthorWHEREauthname='"&name&"'ANDpassword='"&code&"'")
<!--判断用户名与密码是否匹配-->
IfNotRS.EOFThen
<!--打开数据文件，该文件存放帖子的编号，每加一个帖子，编号加1-->
SetFileObject=Server.CreateObject("Scripting.FileSystemObject")
SetInStream=FileObject.OpenTextFile("c:inetpubwwwroothospaspdata.id",1,False,False)
number=Cstr(InStream.Readline+1)
SetOutStream=FileObject.CreateTextFile("c:inetpubwwwroothospaspdata.id",True,False)
OutStream.WriteLinenumber
IfRequest.QueryString("ID")=""Then
manswernum=number
Else
manswernum=Request.QueryString("ID")
EndIf
IfRequest.QueryString("topnum")=""Then
mtopnum=number
Else
mtopnum=Request.QueryString("topnum")
EndIf
SetOutStream=Nothing
<!--与bbs.mdb连接，将帖子信息存入数据库中-->
SetConnbbs=Server.CreateObject("ADODB.Connection")
Connbbs.Open"bbs"
Connbbs.Execute("INSERTINTObbs(ID,authname,subject,content,adddate,addtime,answernum,topnum,visitnum)Values('"&number&"','"
&name&"','"&subject&"','"&content&"','"&curdate&"','"&curtime&"','"&manswernum&"','"&mtopnum&"',0)")
Connbbs.Close%>
<%=curdate&""%><%=curtime&"添加贴子"%>
<ahref="http://nt-server/hosp/asp/dispbbs.asp">返回论坛</a><P>
姓名：<%=name%><P>
主题：<%=subject%><P>
内容：<%=content%><P>
<%Else%>
您的用户名或密码出错，请您重输！
<%EndIf
RS.Close
Connection.Close%>
</body>
</html>
5、帖子具体内容的显示和回复detail.asp
<html>
<head><title>bbs.asp</title></head>
<bodybackground="/hosp/images/backgrnd.gif">
<%idnum=Request.QueryString("ID")
SetConnection=Server.CreateObject("ADODB.Connection")
Connection.Open"bbs"
SetRS=Connection.Execute("SELECT*FROMbbsWHEREID='"&idnum&"'")%>
姓名：<%=RS(1)%><p>
主题：<%=RS(2)%><p>
内容：<%=RS(3)%><p>
<!--形成回复表单-->
<%resub="Re:"&RS(2)
mtopnum=RS(8)
RS.Close
Connection.Close%>
<FORMMETHOD="POST"ACTION="/hosp/asp/bbs.asp?ID=<%=idnum%>&topnum=<%=mtopnum%>"><P>
姓名:<INPUTNAME="name"SIZE="28">密码:<INPUTTYPE="password"NAME="code"SIZE="28"><P>
主题：<INPUTNAME="subject"SIZE="66"VALUE="<%=resub%>"><P>
内容：<P>
<TEXTAREANAME="content"ROWS=20COLS=72></TEXTAREA><P>
<CENTER><INPUTTYPE=SUBMITVALUE="信息回复">
<INPUTTYPE=RESETVALUE="清除信息"></CENTER>
</FORM>
<ahref="http://nt-server/hosp/asp/dispbbs.asp">返回论坛</a>
</body>
</html>
6、所有帖子的显示Dispbbs.asp：列出所有的帖子的主题、作者、时间、访问人数等信息。
<html>
<head><title>dispbbs.asp</title></head>
<bodybackground="/hosp/images/backgrnd.gif">
<CENTER><IMGSRC="http://www.webjx.com/hosp/images/luntan.gif"BORDER=0></CENTER><P>
<CENTER><AHREF="/hosp/login.htm"><IMGSRC="/hosp/images/zhuce.gif"BORDER=0></A>
<AHREF="/hosp/bbs_add.htm"><IMGSRC="/hosp/images/jiatz.gif"BORDER=0></A>
<AHREF="/hosp/default.htm"><IMGSRC="/hosp/images/return.gif"BORDER=0></A></CENTER><P>
<%SetConnection=Server.CreateObject("ADODB.Connection")
Connection.Open"bbs"
SetRS=Connection.Execute("SELECT*FROMbbsWHEREID=answernumORDERBYIDDESC")
SetConn=Server.CreateObject("ADODB.Connection")
Conn.Open"bbs"
SetRSNEXT=Conn.Execute("SELECT*FROMbbs")
DoWhilenotRS.EOF%>
<%=RS(0)%><ahref="/hosp/asp/detail.asp?ID=<%=RS(0)%>"><%=RS(2)%></a>-<FONTSIZE="4"><B><%=RS(1)%></B></FONT><%
=RS(4)&""%><%=RS(7)%>(<%=RS(5)%>)<P>
<%SetRSNEXT=Conn.Execute("SELECT*FROMbbsWHEREtopnum<>IDANDopnum='"&RS(0)&"'ORDERBYIDASC")
DoWhileNotRSNEXT.EOF%>
<%=RSNEXT(0)%><ahref="/hosp/asp/detail.asp?ID=<%=RSNEXT(0)%>">Re<%RSNEXT(6)%>:<%=RSNEXT(2)%></a>
-<FONTSIZE="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>
上述程序在WinNT4.0和IIS3.0上实现通过。
![http://www.webjx.com/hosp/images/luntan.gif"BORDER=0></CENTER><P](http://www.webjx.com/hosp/images/luntan.gif"BORDER=0></CENTER><P){kind=link}