用ASP打造1个小型的网页BBS系统
核心提示：传统的网页BBS大多是采取CGI模式实现的，它的实现要求编程者既要掌控编程语言如Perl或C等，又要了解关于CGI模式的各项技术内容，因此要制作自己的网页BBS确切困难不小。ASP（Active Server Pages 动态服务器主页）的出现，使我们眼前1亮，能不能利用ASP实现网页BBS呢？
传统的网页BBS大多是采取CGI模式实现的，它的实现要求编程者既要掌控编程语言如Perl或C等，又要了解关于CGI模式的各项技术内容，因此要制作自己的网页BBS确切困难不小。ASP（Active Server Pages 动态服务器主页）的出现，使我们眼前1亮，能不能利用ASP实现网页BBS呢？回答固然是肯定的。ASP的诱人的地方就在于它提供了1种简单易学的脚本，并带有很多内置的对象，从而提供了1条简捷的编程之路。
该BBS 主要由用户注册(浏览器端)、用户注册（服务器端）、加帖子（浏览器端）、加帖子（服务器端）、帖子具体内容的显示和回复和所有帖子的显示6个部份组成，其中用户信息寄存在数据库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 第1层回复帖子的编号
具体实现方法以下所示，其中asp文件和数据库寄存在“/hosp/asp"中，其它htm
文件寄存在“/hosp"文件中，img文件寄存在“/hosp/images"。
1、 用户注册（浏览器端）login.htm:由用户输进相干信息，通过表单传送到服
务器。
以下是援用片断：
4、 加帖子（服务器端）bbs.asp：接收帖子内容，并存进bbs.mdb中。
以下是援用片断：
<% 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: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 %>
<% =curdate & " " %><% =curtime & " 添加贴子 " %>
返回论坛
姓名：<% =name %>
主题：<% =subject %>
内容：<% =content %>
<% Else %>
您的用户名或密码出错，请您重输！
<% End If
RS.Close
Connection.Close %>
上1页 1 2 3 下1页
核心提示：传统的网页BBS大多是采取CGI模式实现的，它的实现要求编程者既要掌控编程语言如Perl或C等，又要了解关于CGI模式的各项技术内容，因此要制作自己的网页BBS确切困难不小。ASP（Active Server Pages 动态服务器主页）的出现，使我们眼前1亮，能不能利用ASP实现网页BBS呢？
5、帖子具体内容的显示和回复 detail.asp
以下是援用片断：
<% 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) %>
主题：<% =RS(2) %>
内容：<% =RS(3) %>
<% resub="Re:" & RS(2)
mtopnum=RS(8)
RS.Close
Connection.Close %>
返回论坛
6、所有帖子的显示 Dispbbs.asp：列出所有的帖子的主题、作者、时间、访问人数等信息。
以下是援用片断：
<% 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) %> <% =RS(2) %> -<% =RS(1) %> <%
=RS(4) &" " %><% =RS(7) %>(<% =RS(5) %>)
<% 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) %> Re<% RSNEXT(6) %>:<% =RSNEXT(2) %>
-<% =RSNEXT(1) %> <% =RSNEXT(4) &" " %><% =RSNEXT(7) %>(<% =RSNEXT(5) %>)
<% RSNEXT.MoveNext
Loop
RS.MoveNext
Loop
RSNEXT.Close
Conn.Close
RS.Close
Connection.Close %>
上述程序在Win NT4.0和IIS3.0上实现通过。
上1页 1 2 3 http://www.fw8.net/TAG:帖子,内容,网页,信息,模式
|
评论加载中...
|
邮 箱：admin@fw8.net 