用ASP打造一个小型的网页BBS系统

webptr · 发表于 2008-10-11 23:00:45

传统的网页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>

webptr · 发表于 2008-10-11 23:03:25

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: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 & " 添加贴子 " %>
<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>

webptr · 发表于 2008-10-11 23:03:42

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="清除信息"></CENTER>
</FORM>
<a href="http://nt-server/hosp/asp/dispbbs.asp">返回论坛</a>
</body>
</html>

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

以下是引用片段：
<html>
<head><title>dispbbs.asp</title></head>
<body background="/hosp/images/backgrnd.gif">
<CENTER><IMG SRC="/hosp/images/luntan.gif" BORDER=0></CENTER><P>
<CENTER><A HREF="/hosp/login.htm"><IMG SRC="/hosp/images/zhuce.gif" BORDER=0></A>
<A HREF="/hosp/bbs_add.htm"><IMG SRC="/hosp/images/jiatz.gif" BORDER=0></A>
<A HREF="/hosp/default.htm"><IMG SRC="/hosp/images/return.gif" BORDER=0></A></CENTER><P>
<% 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) %> <a href="/hosp/asp/detail.asp?ID=<% =RS(0) %>"><% =RS(2) %></a> -<FONT SIZE="4"><B><% =RS(1) %></B></FONT> <%
=RS(4) &" " %><% =RS(7) %>(<% =RS(5) %>)<P>
<% 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) %> <a href="/hosp/asp/detail.asp?ID=<% =RSNEXT(0) %>">Re<% RSNEXT(6) %>:<% =RSNEXT(2) %></a>
-<FONT SIZE="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>

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

全国各地医院查询	重量转换换算	RGB颜色查询	交通标志大全	各类快递查询
简体繁体转换	黄金价格实时走势	万年历查询	实时汇率转换	列车时刻查询
在线翻译工具	CSS中文手册	HTML学习教程	MySQL中文手册	JavaScript中文手册
PHP安全基础手册	PHP5面向对象编程教程	正则表达式系统教程	SQL Server精华	Apache 2.2 中文手册
DOS命令全集指南	windows脚本技术中文版	股票行情查询	历史上的今天	邮编区号查询
长度转换换算	货币汇率转换	常用电话号码	体育彩票查询	手机位置查询
域名Whois信息查询	谷歌PR值查询	台州网站建设	台州网站开发	台州域名注册
天气预报查询	长度转换换算器	在线电子地图	车牌号码查询	中国百家姓查询

		自动登录	找回密码
密码			注册

用ASP打造一个小型的网页BBS系统

相关帖子