用ASP实现网页BBS
2018-09-06 13:08
传统的网页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连接 -->
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
number = Cstr(InStream.Readline+1)
Set OutStream = FileObject.CreateTextFile (c:inetpubwwwroothospaspdata.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=返回论坛</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=清除信息><
上一篇：动态CSS，换肤技术
下一篇：asp 读取网卡mac地址