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