用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:由用户输入相关信息，通过表单传送到服
务器。

 1<html>
 2<head><title> register a new user</title><head>
 3<body>
 4<form action="/hosp/asp/register.asp" method="POST"><p>
 5<h2>为了标识方便，请您注册一个用户名称</h2>   
 6用户：<input name="name" size="24" type="TEXT"/><p>   
 7密码：<input name="password" size="24" type="password"/><p>
 8<input type="SUBMIT" value="注 册"/>
 9<input type="RESET" value="清 除"/>
10<a href="/hosp/asp/dispbbs.asp">返回论坛</a><p>
11</p></p></p></p></form></body>
12</head></head></html>

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

1<html>
2<head><title> 存用户信息 </title></head>
3<body>
4<!-- 取客户浏览器输入的用户名和密码 -->

name=REQUEST.FORM("name")
code=REQUEST.FORM("password")
<!-- 与author.mdb连接 -->
Set Connection=Server.CreateObject("ADODB.Connection")
Connection.Open "author"
Set RS=Connection.Execute("SELECT * FROM author")
<!-- 如果该用户名已存在，请重输，否则存入数据库 -->
If Not RS.EOF Then

1该用户名已被注册，请您重新<a href="/hosp/login.htm">注册</a>新用户名!

Else
Connection.Execute("INSERT INTO author(authname,password) Values('" &amp;name&amp; "','" &amp;code&amp; "')")
RS.Close
Connection.Close

1<center><b>```
2 =name 
3```</b> 您已注册成功!<p>
4<a href="/hosp/asp/dispbbs.asp">返回论坛</a></p></center>

End If

1</body>
2</html>

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

 1<html>
 2<head><title> a sample form </title></head>
 3<body background="/hosp/images/backgrnd.gif">
 4<form action="/hosp/asp/bbs.asp" method="POST"><p>   
 5姓名: <input name="name" size="28"/> 密码: <input name="code" size="28" type="password"/><p>   
 6主题：<input name="subject" size="66"/><p>   
 7内容：<p>
 8<textarea cols="72" name="content" rows="20"></textarea><p>
 9<center><input type="SUBMIT" value="发布信息"/>
10<input type="RESET" value="清除信息"/></center>
11</p></p></p></p></p></form>
12</body>
13</html>

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

1<html>
2<head><title>bbs.asp</title></head>
3<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='" &amp;name&amp; "' AND password='" &amp;code&amp; "'")
<!-- 判断用户名与密码是否匹配 -->
If Not RS.EOF Then
<!-- 打开数据文件，该文件存放帖子的编号，每加一个帖子，编号加1 -->
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
<!-- 与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('" &amp;number&amp; "','"
&amp;name&amp; "','" &amp;subject&amp; "','" &amp;content&amp; "','" &amp;curdate&amp; "','" &amp;curtime&amp; "','" &amp;manswernum&amp; "','" &amp;mtopnum&amp; "',0)")
Connbbs.Close

=curdate &amp; " "

  1 =curtime &amp; " 添加贴子 " 
  2```   
  3&lt;a href="http://nt-server/hosp/asp/dispbbs.asp"&gt;返回论坛&lt;/a&gt;&lt;p&gt;   
  4姓名：```
  5 =name 
  6```&lt;p&gt;   
  7主题：```
  8 =subject 
  9```&lt;p&gt;   
 10内容：```
 11 =content 
 12```&lt;p&gt;   
 13```
 14 Else 
 15```   
 16您的用户名或密码出错，请您重输！   
 17```
 18 End If   
 19RS.Close   
 20Connection.Close 
 21```   
 22&lt;/p&gt;&lt;/p&gt;&lt;/p&gt;&lt;/p&gt;&lt;/body&gt;
 23&lt;/html&gt;
 24```
 25---  
 26  
 27  
 285、帖子具体内容的显示和回复 detail.asp
 29```
 30&lt;html&gt;
 31&lt;head&gt;&lt;title&gt;bbs.asp&lt;/title&gt;&lt;/head&gt;
 32&lt;body background="/hosp/images/backgrnd.gif"&gt;   
 33```
 34 idnum=Request.QueryString("ID")   
 35Set Connection=Server.CreateObject("ADODB.Connection")   
 36Connection.Open "bbs"   
 37Set RS=Connection.Execute("SELECT * FROM bbs WHERE ID='" &amp;idnum&amp; "'") 
 38```   
 39姓名：```
 40 =RS(1) 
 41```&lt;p&gt;   
 42主题：```
 43 =RS(2) 
 44```&lt;p&gt;   
 45内容：```
 46 =RS(3) 
 47```&lt;p&gt;   
 48  
 49\------------------------------------------------------------------------------   
 50&lt;!-- --形成回复表单 ----&gt;   
 51```
 52 resub="Re:" &amp; RS(2)   
 53mtopnum=RS(8)   
 54RS.Close   
 55Connection.Close 
 56```   
 57&lt;form action="/hosp/asp/bbs.asp?ID=```
 58 =idnum 
 59```&amp;amp;topnum=```
 60 =mtopnum 
 61```" method="POST"&gt;&lt;p&gt;   
 62姓名: &lt;input name="name" size="28"/&gt; 密码: &lt;input name="code" size="28" type="password"/&gt;&lt;p&gt;   
 63主题：&lt;input name="subject" size="66" value="```
 64 =resub 
 65```"/&gt;&lt;p&gt;   
 66内容：&lt;p&gt;
 67&lt;textarea cols="72" name="content" rows="20"&gt;&lt;/textarea&gt;&lt;p&gt;
 68&lt;center&gt;&lt;input type="SUBMIT" value="信息回复"/&gt;
 69&lt;input type="RESET" value="清除信息"/&gt;&lt;/center&gt;
 70&lt;/p&gt;&lt;/p&gt;&lt;/p&gt;&lt;/p&gt;&lt;/p&gt;&lt;/form&gt;
 71&lt;a href="http://nt-server/hosp/asp/dispbbs.asp"&gt;返回论坛&lt;/a&gt;
 72&lt;/p&gt;&lt;/p&gt;&lt;/p&gt;&lt;/body&gt;
 73&lt;/html&gt;
 74```
 75---  
 76  
 77  
 786、所有帖子的显示 Dispbbs.asp：列出所有的帖子的主题、作者、时间、访问人数等信息。
 79```
 80&lt;html&gt;
 81&lt;head&gt;&lt;title&gt;dispbbs.asp&lt;/title&gt;&lt;/head&gt;
 82&lt;body background="/hosp/images/backgrnd.gif"&gt;
 83&lt;center&gt;&lt;img border="0" src="/hosp/images/luntan.gif"/&gt;&lt;/center&gt;&lt;p&gt;
 84&lt;center&gt;&lt;a href="/hosp/login.htm"&gt;&lt;img border="0" src="/hosp/images/zhuce.gif"/&gt;&lt;/a&gt;
 85&lt;a href="/hosp/bbs_add.htm"&gt;&lt;img border="0" src="/hosp/images/jiatz.gif"/&gt;&lt;/a&gt;
 86&lt;a href="/hosp/default.htm"&gt;&lt;img border="0" src="/hosp/images/return.gif"/&gt;&lt;/a&gt;&lt;/center&gt;&lt;p&gt;   
 87```
 88 Set Connection=Server.CreateObject("ADODB.Connection")   
 89Connection.Open "bbs"   
 90Set RS=Connection.Execute("SELECT * FROM bbs WHERE ID=answernum ORDER BY ID DESC")   
 91Set Conn=Server.CreateObject("ADODB.Connection")   
 92Conn.Open "bbs"   
 93Set RSNEXT=Conn.Execute("SELECT * FROM bbs")   
 94Do While not RS.EOF 
 95```   
 96```
 97 =RS(0) 
 98``` &lt;a href="/hosp/asp/detail.asp?ID=```
 99 =RS(0) 
100```"&gt;```
101 =RS(2) 
102```&lt;/a&gt; -&lt;font size="4"&gt;&lt;b&gt;```
103 =RS(1) 
104```&lt;/b&gt;&lt;/font&gt; ```
105   
106=RS(4) &amp;" "

=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) &lt;a href="/hosp/asp/detail.asp?ID= =RSNEXT(0) "&gt;Re RSNEXT(6) : =RSNEXT(2)

1-&lt;font size="4"&gt;&lt;b&gt;```
2 =RSNEXT(1) 
3```&lt;/b&gt;&lt;/font&gt; ```
4 =RSNEXT(4) &amp;" "

=RSNEXT(7) ( =RSNEXT(5)

RSNEXT.MoveNext
Loop
RS.MoveNext
Loop
RSNEXT.Close
Conn.Close
RS.Close
Connection.Close

1&lt;/p&gt;&lt;/p&gt;&lt;/p&gt;&lt;/p&gt;&lt;/body&gt;
2&lt;/html&gt;

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

Published At
Categories with Web编程
Tagged with
comments powered by Disqus