教你快速編寫ASP論壇
作者： 來(lái)源： 發(fā)布時(shí)間：2011-5-31 9:30:32 點(diǎn)擊：
本文章提供給大家分享學(xué)習(xí)的是關(guān)于五分鐘快速編寫一個(gè)ASP論壇的實(shí)例，正在學(xué)ASP的朋友可要瞪大眼睛看好了，再?gòu)?fù)雜的論壇的寫成也離不開下面的基本步驟：
一、建立文件！
最簡(jiǎn)單的論壇也要有幾個(gè)必要的文件，就是：
1、數(shù)據(jù)庫(kù)，用來(lái)儲(chǔ)存發(fā)表的帖子！-------命名為：bbs.mdb
2、有數(shù)據(jù)庫(kù)就必須連接數(shù)據(jù)庫(kù)，該文件用來(lái)連接數(shù)據(jù)庫(kù)：----命名為：conn.asp
3、發(fā)表帖子的文件----命名為：say.asp
4、保存發(fā)表帖子內(nèi)容的文件-----命名為：save.asp
5、顯示帖子標(biāo)題的文件------命名為：index.asp
6、顯示帖子內(nèi)容的文件，即點(diǎn)擊標(biāo)題后所進(jìn)入的頁(yè)面-----命名為：show.asp
建立文件是可以先建立文本文檔，他的格式為"文件名.txt"，我們只需把它改為"文件名.asp"
二、各文件的主要內(nèi)容
1、bbs.mdb
打開這個(gè)數(shù)據(jù)庫(kù)，建立一個(gè)表，命名為bbs
該表中有幾個(gè)字段:
id(自動(dòng)給帖子編號(hào))，他的數(shù)據(jù)類型設(shè)為“自動(dòng)編號(hào)”
name(用來(lái)儲(chǔ)存發(fā)表的作者)，數(shù)據(jù)類型為“文本”
title(用來(lái)儲(chǔ)存帖子的主題)，數(shù)據(jù)類型為“文本”
body(用來(lái)儲(chǔ)存帖子的內(nèi)容)，數(shù)據(jù)類型為“備注”
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
%>
這個(gè)文件就是這樣，代碼內(nèi)容大家就自己研究，這個(gè)我也不知道怎么說才好！
3、say.asp
源代碼為：
<form method="POST" action="save.asp">
<p>大名：<input type="text" name="name" size="20"></p>
<p>標(biāo)題：<input type="text" name="title" size="91"></p>
<p>內(nèi)容：</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>
大家應(yīng)該看得懂的，這個(gè)根本就是html語(yǔ)法，對(duì)的，根本就是，這個(gè)只是發(fā)表的界面
不過要注意這一句<form method="POST" action="save.asp">，他把用戶所填的內(nèi)容發(fā)送至save.asp這個(gè)文件，下面就看save.asp這個(gè)文件吧！
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%>
請(qǐng)<a href="****:history.go(-1)">后退</a>填寫完整資料，你才能發(fā)表帖子！
<%else%>
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%>
發(fā)表成功！<a href="index.asp">查看帖子</a>
<%end if
set savebbs=nothing
%>
第一句：<!--#include file="conn.asp"-->，意思是插入conn.asp文件，即與數(shù)據(jù)庫(kù)進(jìn)行連接！
asp語(yǔ)句必須用<% %>這個(gè)格式包含起來(lái)，而插入文件的語(yǔ)句就不用，
接下來(lái)幾句：
name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''")
“Replace(Request.Form("name"),"'","''")”意思是接收表單中名為name的文本框發(fā)來(lái)的數(shù)據(jù)，
而“name=Replace(Request.Form("name"),"'","''")”則是把發(fā)來(lái)的數(shù)據(jù)儲(chǔ)存在name變量中，
如果你這樣：“abc123=Replace(Request.Form("name"),"'","''")”
就是把表單中名為name的文本框發(fā)來(lái)的數(shù)據(jù)儲(chǔ)存在abc123變量中
接著：if name="" or title="" or body="" then
判斷name、title和body變量中是否沒有填寫內(nèi)容，即為""，如果這樣，就執(zhí)行這一語(yǔ)句：
“請(qǐng)<a href="****:history.go(-1)">后退</a>填寫完整資料，你才能發(fā)表帖子！”
該語(yǔ)句屬于html語(yǔ)法，大家都看得懂的！
"<%else%>"就是說“當(dāng)if……then不成立（即是說所有內(nèi)容都已經(jīng)填寫）”，就執(zhí)行語(yǔ)句：
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%>
發(fā)表成功！<a href="index.asp">查看帖子</a>”
"set save=conn.execute"屬于固定的語(yǔ)句，不過savebbs可以自己修改,"="后面的就難解釋了：
insert into bbs(name,title,body)意思是向名為bbs的表（在建立數(shù)據(jù)庫(kù)時(shí)已經(jīng)建立的表）
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')")
values是“值”的意思
就是插入向量name,title,body，向量用格式'"&name&"'表示
最后：end if就是結(jié)束if……then
set savebbs=nothing可以說是關(guān)閉掉：
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")
5、index.asp
源代碼：
<!
一、建立文件！
最簡(jiǎn)單的論壇也要有幾個(gè)必要的文件，就是：
1、數(shù)據(jù)庫(kù)，用來(lái)儲(chǔ)存發(fā)表的帖子！-------命名為：bbs.mdb
2、有數(shù)據(jù)庫(kù)就必須連接數(shù)據(jù)庫(kù)，該文件用來(lái)連接數(shù)據(jù)庫(kù)：----命名為：conn.asp
3、發(fā)表帖子的文件----命名為：say.asp
4、保存發(fā)表帖子內(nèi)容的文件-----命名為：save.asp
5、顯示帖子標(biāo)題的文件------命名為：index.asp
6、顯示帖子內(nèi)容的文件，即點(diǎn)擊標(biāo)題后所進(jìn)入的頁(yè)面-----命名為：show.asp
建立文件是可以先建立文本文檔，他的格式為"文件名.txt"，我們只需把它改為"文件名.asp"
二、各文件的主要內(nèi)容
1、bbs.mdb
打開這個(gè)數(shù)據(jù)庫(kù)，建立一個(gè)表，命名為bbs
該表中有幾個(gè)字段:
id(自動(dòng)給帖子編號(hào))，他的數(shù)據(jù)類型設(shè)為“自動(dòng)編號(hào)”
name(用來(lái)儲(chǔ)存發(fā)表的作者)，數(shù)據(jù)類型為“文本”
title(用來(lái)儲(chǔ)存帖子的主題)，數(shù)據(jù)類型為“文本”
body(用來(lái)儲(chǔ)存帖子的內(nèi)容)，數(shù)據(jù)類型為“備注”
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
%>
這個(gè)文件就是這樣，代碼內(nèi)容大家就自己研究，這個(gè)我也不知道怎么說才好！
3、say.asp
源代碼為：
<form method="POST" action="save.asp">
<p>大名：<input type="text" name="name" size="20"></p>
<p>標(biāo)題：<input type="text" name="title" size="91"></p>
<p>內(nèi)容：</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>
大家應(yīng)該看得懂的，這個(gè)根本就是html語(yǔ)法，對(duì)的，根本就是，這個(gè)只是發(fā)表的界面
不過要注意這一句<form method="POST" action="save.asp">，他把用戶所填的內(nèi)容發(fā)送至save.asp這個(gè)文件，下面就看save.asp這個(gè)文件吧！
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%>
請(qǐng)<a href="****:history.go(-1)">后退</a>填寫完整資料，你才能發(fā)表帖子！
<%else%>
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%>
發(fā)表成功！<a href="index.asp">查看帖子</a>
<%end if
set savebbs=nothing
%>
第一句：<!--#include file="conn.asp"-->，意思是插入conn.asp文件，即與數(shù)據(jù)庫(kù)進(jìn)行連接！
asp語(yǔ)句必須用<% %>這個(gè)格式包含起來(lái)，而插入文件的語(yǔ)句就不用，
接下來(lái)幾句：
name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''")
“Replace(Request.Form("name"),"'","''")”意思是接收表單中名為name的文本框發(fā)來(lái)的數(shù)據(jù)，
而“name=Replace(Request.Form("name"),"'","''")”則是把發(fā)來(lái)的數(shù)據(jù)儲(chǔ)存在name變量中，
如果你這樣：“abc123=Replace(Request.Form("name"),"'","''")”
就是把表單中名為name的文本框發(fā)來(lái)的數(shù)據(jù)儲(chǔ)存在abc123變量中
接著：if name="" or title="" or body="" then
判斷name、title和body變量中是否沒有填寫內(nèi)容，即為""，如果這樣，就執(zhí)行這一語(yǔ)句：
“請(qǐng)<a href="****:history.go(-1)">后退</a>填寫完整資料，你才能發(fā)表帖子！”
該語(yǔ)句屬于html語(yǔ)法，大家都看得懂的！
"<%else%>"就是說“當(dāng)if……then不成立（即是說所有內(nèi)容都已經(jīng)填寫）”，就執(zhí)行語(yǔ)句：
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%>
發(fā)表成功！<a href="index.asp">查看帖子</a>”
"set save=conn.execute"屬于固定的語(yǔ)句，不過savebbs可以自己修改,"="后面的就難解釋了：
insert into bbs(name,title,body)意思是向名為bbs的表（在建立數(shù)據(jù)庫(kù)時(shí)已經(jīng)建立的表）
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')")
values是“值”的意思
就是插入向量name,title,body，向量用格式'"&name&"'表示
最后：end if就是結(jié)束if……then
set savebbs=nothing可以說是關(guān)閉掉：
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")
5、index.asp
源代碼：
<!
上一篇:教你將鏈接的下劃線做成虛線 下一篇: 教你如何使用ASP加密數(shù)據(jù)
[收藏此文章]
