|
傳統(tǒng)的網(wǎng)頁BBS大多是采用CGI模式實(shí)現(xiàn)的，它的實(shí)現(xiàn)要求編程者既要掌握編程語言如Perl或C等，又要了解關(guān)于CGI模式的各項(xiàng)技術(shù)內(nèi)容，因此要制作自己的網(wǎng)頁BBS確實(shí)困難不小。ASP（Active Server Pages 動(dòng)態(tài)服務(wù)器主頁）的出現(xiàn)，使我們眼前一亮，能不能利用ASP實(shí)現(xiàn)網(wǎng)頁BBS呢？回答當(dāng)然是肯定的。ASP的誘人之處就在于它提供了一種簡單易學(xué)的腳本，并帶有許多內(nèi)置的對象，從而提供了一條簡捷的編程之路。 該BBS主要由用戶注冊(瀏覽器端)、用戶注冊（服務(wù)器端）、加帖子（瀏覽器端）、加帖子（服務(wù)器端）、帖子具體內(nèi)容的顯示和回復(fù)以及所有帖子的顯示六個(gè)部分組成，其中用戶信息存放在數(shù)據(jù)庫author.mdb中，帖子存放在數(shù)據(jù)庫bbs.mdb中。它們均為ACCESS數(shù)據(jù)庫，結(jié)構(gòu)分別如表1、表2所示。 表1 author.mdb 字段名 數(shù)據(jù)類型 長度 說明 Authname 文本 24 用戶名 Password 文本 10 密碼 表2 bbs.mdb 字段名 數(shù)據(jù)類型 長度 說明 ID 文本 4 帖子的編號 Authname 文本 24 用戶名 Subject 文本 80 主題 Content 備注 內(nèi)容 Adddate 日期/時(shí)間 加貼的日期 Visitnum 數(shù)字 長整型 訪問人數(shù) Answernum 文本 4 所回復(fù)帖子的編號 （缺省為本身的編號） Addtime 日期/時(shí)間 加貼的時(shí)間 Topnum 文本 4 第一層回復(fù)帖子的編號 具體實(shí)現(xiàn)方法如下所示，其中asp文件和數(shù)據(jù)庫存放在“/hosp/asp"中，其它htm 文件存放在“/hosp"文件中，img文件存放在“/hosp/images"。 1、 用戶注冊（瀏覽器端）login.htm:由用戶輸入相關(guān)信息，通過表單傳送到服 務(wù)器。 <html> <head><title> register a new user</title><head> <body> <FORM METHOD="POST" ACTION="/hosp/asp/register.asp"><P> <H2>為了標(biāo)識方便，請您注冊一個(gè)用戶名稱</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、 用戶注冊（服務(wù)器端）Register.asp：利用REQUEST.FORM("表單欄位名")接收表單信息，采用ADO技術(shù)與數(shù)據(jù)庫author.mdb連接，并將表單信息存入author.mdb中。 <html> <head><title> 存用戶信息 </title></head> <body> <!-- 取客戶瀏覽器輸入的用戶名和密碼 --> <% 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") <!-- 如果該用戶名已存在，請重輸，否則存入數(shù)據(jù)庫 --> 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：由用戶輸入待加入帖子的相關(guān)信息，并傳到服務(wù)器。 <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> 內(nèi)容：<P> <TEXTAREA NAME="content" ROWS=20 COLS=72></TEXTAREA><P> <CENTER><INPUT TYPE=SUBMIT VALUE="發(fā)布信息"> <INPUT TYPE=RESET VALUE="清除信息"></CENTER> </FORM> </body> </html> 4、 加帖子（服務(wù)器端）bbs.asp：接收帖子內(nèi)容，并存入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 <!-- 與author.mdb連接 --> 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 <!-- 打開數(shù)據(jù)文件，該文件存放帖子的編號，每加一個(gè)帖子，編號加1 --> 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 <!-- 與bbs.mdb連接，將帖子信息存入數(shù)據(jù)庫中 --> 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> 內(nèi)容：<% =content %><P> <% Else %> 您的用戶名或密碼出錯(cuò)，請您重輸！ <% End If RS.Close Connection.Close %> </body> </html> 5、帖子具體內(nèi)容的顯示和回復(fù) 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> 內(nèi)容：<% =RS(3) %><p> <! --形成回復(fù)表單 --> <% 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> 內(nèi)容：<P> <TEXTAREA NAME="content" ROWS=20 COLS=72></TEXTAREA><P> <CENTER><INPUT TYPE=SUBMIT VALUE="信息回復(fù)"> <INPUT TYPE=RESET VALUE="清除信息"></CENTER> </FORM> <a href="http://nt-server/hosp/asp/dispbbs.asp">返回論壇</a> </body> </html> 6、所有帖子的顯示 Dispbbs.asp：列出所有的帖子的主題、作者、時(shí)間、訪問人數(shù)等信息。 <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") 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 RS.MoveNext RSNEXT.Close Conn.Close RS.Close Connection.Close %> </body> </html> 上述程序在Win NT4.0和IIS3.0上實(shí)現(xiàn)通過。
|
|
|
