ASP网络篇:4.3 用ASP实现网页BBS-远方教程

传统的网页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:\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="http://nt-server/hosp/asp/dispbbs.asp">返回论坛</a><P> 姓名：<% =name %><P> 主题：<% =subject %><P> 内容：<% =content %><P> <% Else %> 您的用户名或密码出错，请您重输！ <% End If RS.Close Connection.Close %> </body> </html>