用ASP實現網頁BBS

2019-11-18 22:45:21

字體：大中小

來源：轉載

供稿：網友

　　傳統的網頁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")

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:/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

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>

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上實現通過。

上一篇：在ASP中常見的錯誤80004005信息和解決辦法

下一篇：用ASP實現網頁保密的兩種方法