查看單個文章
舊 2006-07-07, 06:04 PM   #2 (permalink)
psac
榮譽會員
 
psac 的頭像
榮譽勳章
UID - 3662
在線等級: 級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時
註冊日期: 2002-12-07
住址: 木柵市立動物園
文章: 17381
現金: 5253 金幣
資產: 33853 金幣
預設

教你5分鐘做成一個ASP論壇

一、建立文件!
最簡單的論壇也要有幾個必要的文件,就是:
1、資料庫,用來儲存發表的帖子!-------命名為:bbs.mdb
2、有資料庫就必須連接資料庫,該文件用來連接資料庫:----命名為:conn.asp
3、發表帖子的文件----命名為:say.asp
4、儲存發表帖子內容的文件-----命名為:save.asp
5、顯示帖子標題的文件------命名為:index.asp
6、顯示帖子內容的文件,即點擊標題後所進入的網頁面-----命名為:show.asp
二、各文件的主要內容
1、bbs.mdb
打開這個資料庫,建立一個表,命名為bbs
該表中有幾個字段:
id(自動給帖子編號),他的資料類型設為「自動編號」
name(用來儲存發表的作者),資料類型為「文本」
title(用來儲存帖子的主題),資料類型為「文本」
body(用來儲存帖子的內容),資料類型為「備註」
2、conn.asp
源代碼為:
<%
Server.scriptTimeout="10"
connstr="DBQ="+server.mappath("bbs.mdb"+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection"
conn.open connstr
%>
這個文件就是這樣,代碼內容大家就自己研究,這個我也不知道怎麼說才好!
3、say.asp
源代碼為:
<form method="POST" action="save.asp">
<p>大名:<input type="text" name="name" size="20"></p>
<p>標題:<input type="text" name="title" size="91"></p>
<p>內容:</p>
<p><textarea rows="11" name="body" cols="97"></textarea></p>
<p> </p>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form>
大家應該看得懂的,這個根本就是html語法,對的,根本就是,這個只是發表的界面
不過要注意這一句<form method="POST" action="save.asp">,他把用戶所填的內容發送至save.asp這個文件,下面就看save.asp這個文件吧!
4、save.asp
源代碼:
<!--#include file="conn.asp"-->
<%name=Replace(Request.Form("name","』","』』"
title=Replace(Request.Form("title","』","』』"
body=Replace(Request.Form("body","』","』』"
%>
<%if name="" or title="" or body="" then%>
請<a href="javascript:history.go(-1)">後退</a>填寫完整資料,你才能發表帖子!
<%else%>
<%set savebbs=conn.execute("insert into bbs(name,title,body)values(』"&name&"』,』"&title&"』,』"&body&"』)"%>
發表成功!<a href="index.asp">檢視帖子</a>
<%end if
set savebbs=nothing
%>
第一句:<!--#include file="conn.asp"-->,意思是插入conn.asp文件,即與資料庫進行連接!
asp語句必須用<% %>這個格式包含起來,而插入文件的語句就不用,
接下來幾句:
name=Replace(Request.Form("name","』","』』"
title=Replace(Request.Form("title","』","』』"
body=Replace(Request.Form("body","』","』』"
「Replace(Request.Form("name","』","』』"」意思是接收表單中名為name的文本框發來的資料,
而「name=Replace(Request.Form("name","』","』』"」則是把發來的資料儲存在name變數中,
如果你這樣:「abc123=Replace(Request.Form("name","』","』』"」
就是把表單中名為name的文本框發來的資料儲存在abc123變數中
接著:if name="" or title="" or body="" then
判斷name、title和body變數中是否沒有填寫內容,即為"",如果這樣,就執行這一語句:
「請<a href="javascript:history.go(-1)">後退</a>填寫完整資料,你才能發表帖子!」
該語句屬於html語法,大家都看得懂的!
"<%else%>"就是說「當if……then不成立(即是說所有內容都已經填寫)」,就執行語句:
「<%set savebbs=conn.execute("insert into bbs(name,title,body) values(』"&name&"』,』"&title&"』,』"&body&"』)"%>
發表成功!<a href="index.asp">檢視帖子</a>」
"set save=conn.execute"屬於固定的語句,不過savebbs可以自己修改,"="後面的就難解釋了:
insert into bbs(name,title,body)意思是向名為bbs的表(在建立資料庫時已經建立的表)
中的name,title,body字段插入,插入什麼呢?看接下的values(』"&name&"』,』"&title&"』,』"&body&"』)"
values是「值」的意思
就是插入向量name,title,body,向量用格式』"&name&"』表示
最後:end if就是結束if……then
set savebbs=nothing可以說是關閉掉:
set savebbs=conn.execute("insert into bbs(name,title,body) values(』"&name&"』,』"&title&"』,』"&body&"』)"
5、index.asp
源代碼:
<!--#include file="conn.asp"-->
<b><a href="say.asp">發表帖子</a></b>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26">
<tr>
<td width="17%"><b>作者</b></td>
<td width="83%"><b>主題</b></td>
</tr>
</table>
</center>
</div><hr size="1">
<%i=1
set showbbs=conn.execute("select*from bbs order by id desc"
do while not showbbs.eof
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20">
<tr>
<td width="17%"><%=showbbs("name"%> </td>
<td width="83%">
<a href="show.asp?id=<%=showbbs("id"%>"><%=showbbs("title"%></a></td>
</tr>
</table>
</center>
</div><hr size="1">
<%i=i+1
if i>50 then exit do
showbbs.movenext
Loop
showbbs.Close
set showbbs=nothing
%>
這個文件就不一句一句的講了
主要講精華部分:
set showbbs=conn.execute("select*from bbs order by id desc"
意思是:向資料庫中的bbs資料表查詢資料,並以id排順序,
還有這麼一句:<%=showbbs("name"%>
就是顯示資料表中的name字段的資料,這裡的showbbs就是set showbbs=……中的showbbs 代碼中的i=1和i=i+1
if i>50 then exit do
showbbs.movenext
Loop
showbbs.Close
set showbbs=nothing

這幾句屬於循環語句,這裡就不理他,理解了也不太好用,因為他只顯示50張貼子!
if i>50 then exit do中的50可以修改
但我們做論壇必須把帖子分頁,又因為分頁這個語句太複雜,我想就不講了,等這一個弄懂了才來弄
還有一句很有用的:
<a href="show.asp?id=<%=showbbs("id"%>"><%=showbbs("title"%></a>
裡面的超連接:show.asp?id=<%=showbbs("id"%>,注意:這裡的超連接把帖子的id包含了,
等一下在show.asp文件中就有用了

5、show.asp
源代碼:
<!--#include file="conn.asp"-->
<%id=request.querystring("id"%>
<%set show=conn.execute("select*from bbs where id="&id&""%>
<a href="index.asp">
<b>回到首頁</b></a>
<b><a href="say.asp">發表帖子</a></b>
<hr size="1">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180">
<tr>
<td width="21%" height="22"><b>作者:</b><%=show("name"%></td>
<td width="79%" height="22"><b>主題:</b><%=show("title"%></td>
</tr> <tr>
<td width="100%" colspan="2" height="158" valign="top"><b>
內容:</b><%=show("body"%></td> </tr> </table><%set show=nothing%>
勁語句---精華語句:
id=request.querystring("id"
在講解index.asp文件的後面已經說到:show.asp?id=<%=showbbs("id"這一句,
id=request.querystring("id"就是把地址欄中的id的值讀取下來,
因為index.asp文件中的超連接點擊後,地址欄就為http://…………/show.asp?id=數位,
所以show.asp使用id=request.querystring("id"語句把數位讀取下來
於是接著使用:set show=conn.execute("select*from bbs where id="&id&""
向資料表查詢id為這時讀取下來的數位的帖子,即where id="&id&"
最後<%set show=nothing%>
好了,論壇就做成了,裡面的精華你就去吸取!
當然論壇不可能這麼簡單,他還有許多文件需要你去製作,這裡講的只是個別必需的功能
__________________
http://bbsimg.qianlong.com/upload/01/08/29/68/1082968_1136014649812.gif
psac 目前離線  
送花文章: 3, 收花文章: 1631 篇, 收花: 3205 次
向 psac 送花的會員:
longlie (2007-10-21)
感謝您發表一篇好文章