做网页用的小型服务器,ASP:用ASP打造一个小型的网页BBS系统-CSDN博客

传统的网页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:由用户输入相关信息，通过表单传送到服

务器。

以下是引用片段：

为了标识方便，请您注册一个用户名称

用户：

密码：

返回论坛

2、用户注册(服务器端)Register.asp：利用REQUEST.FORM("表单栏位名")接收表单信息，采用ADO技术与数据库author.mdb连接，并将表单信息存入author.mdb中。

以下是引用片段：

存用户信息

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 %>

该用户名已被注册，请您重新注册新用户名!

Connection.Execute("INSERT INTO author(authname,password) Values('" &name& "','" &code& "')")

RS.Close

Connection.Close %>

您已注册成功!

返回论坛

3、加帖子(浏览器端)bbs_add.htm：由用户输入待加入帖子的相关信息，并传到服务器。

以下是引用片段：

a sample form

姓名: 密码:

主题：

内容：

4、加帖子(服务器端)bbs.asp：接收帖子内容，并存入bbs.mdb中。

以下是引用片段：

bbs.asp

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:inetpubwwwroothospaspdata.id", 1, False, False)

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

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 %>

返回论坛

姓名：

主题：

内容：

您的用户名或密码出错，请您重输！

RS.Close

Connection.Close %>

5、帖子具体内容的显示和回复 detail.asp

以下是引用片段：

bbs.asp

Set Connection=Server.CreateObject("ADODB.Connection")

Connection.Open "bbs"

Set RS=Connection.Execute("SELECT * FROM bbs WHERE ID='" &idnum& "'") %>

姓名：

主题：

内容：

mtopnum=RS(8)

RS.Close

Connection.Close %>

姓名: 密码:

主题：

内容：

返回论坛

6、所有帖子的显示 Dispbbs.asp：列出所有的帖子的主题、作者、时间、访问人数等信息。

以下是引用片段：

dispbbs.asp

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(4) &" " %>()

ID AND opnum='" &RS(0)& "' ORDER BY ID ASC")

Do While Not RSNEXT.EOF %>

Re:

- ()

Loop

RS.MoveNext

Loop

RSNEXT.Close

Conn.Close

RS.Close

Connection.Close %>

上述程序在Win NT4.0和IIS3.0上实现通过。