5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西
真NB..佩服ing .....' s# y# _1 [- t, [, b# D
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。

同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。
; c) B8 O% {$ j+ |- L( E# E& [2 @
一、建立文件！
最简单的论坛也要有几个必要的文件，就是： / ^6 l! l3 H, }& S) @; T. }- X& w

1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb

2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp , l1 i, t# w: @4 [; `' J3 i

3、发表帖子的文件----命名为：say.asp
4 x& W: A9 e9 N/ B$ J
4、保存发表帖子内容的文件-----命名为：save.asp ) n8 ^$ z7 e3 r" Q

5、显示帖子标题的文件------命名为：index.asp
% ~9 b8 m$ @+ m  D
6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp
0 F9 x$ n3 t+ }- t2 x. |
建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp" 7 ^% y) E# D- w0 U' U5 Q: k6 |

二、各文件的主要内容 " F- L6 j0 E# d% V2 c( ?2 @
# l' Z/ w) q. s  _: E+ [
1、bbs.mdb

打开这个数据库，建立一个表，命名为bbs 1 z  X! ]7 x8 T  J  ~5 b) g
+ N& L0 d9 x. s. s) q$ H" R
该表中有几个字段: ; E" ~/ g4 f( H+ [5 u
! ?7 E& b5 W% Z% \) h& }
id(自动给帖子编号)，他的数据类型设为“自动编号”

name(用来储存发表的作者)，数据类型为“文本”
0 S  f- y# W* ?9 H1 Z+ @! g; |
title(用来储存帖子的主题)，数据类型为“文本” " B9 l" O- z# z3 y
+ b+ W# p+ N( x9 `4 w0 x; B# M; b
body(用来储存帖子的内容)，数据类型为“备注” 5 J; w, z' e9 I

2、conn.asp
源代码为： 8 q  ?  B! |) d3 f: m( d& S( H; f# e
<% + ~% V! ]- b& ~( D% |$ \
Server.scriptTimeout="10"
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" ( I. G) c/ i6 j% e4 r/ b
set conn=Server.CreateObject("ADODB.connection") # N- l7 S. u1 A. g% Z# e
conn.open connstr 0 _6 z1 p6 R& O9 k" R
%>
* a' w1 j( L( {9 H1 r! s
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ $ p9 K% r1 u  x: x. [8 I! o# ~

3、say.asp

源代码为： ; t1 j" R& Z0 H. I" W
<form method="POST" action="save.asp">
<p>大名：<input type="text" name="name" size="20"></p> ! f, U' c. I1 h4 }
<p>标题：<input type="text" name="title" size="91"></p>
<p>内容：</p>
<p><textarea rows="11" name="body" cols="97"></textarea></p>
<p>　</p> ' R' ]% o2 y7 n3 f  ~3 J
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p> + s9 v* d6 z5 C- \) h0 @
</form> $ `' V; a) E* B. y1 U, X
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！   y( w+ j" a; B. `! W, M
2 K0 u) C1 A9 W- r
4、save.asp # ~7 d  O0 }5 Q3 E. K

源代码：
 " f' K. ?; x+ ], Z4 r/ \+ g
<%name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''") 2 T$ G6 C6 @+ h# `5 @0 J! |: {
body=Replace(Request.Form("body"),"'","''")
%>
<%if name="" or title="" or body="" then%>
请<a href="****: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
%>

第一句：，意思是插入conn.asp文件，即与数据库进行连接！ 1 }% l0 Z! w5 t& B
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用，
接下来几句： , j5 i1 z0 M" _5 u2 T) t0 `
name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''") % G+ A4 z) ]; V2 B
body=Replace(Request.Form("body"),"'","''")
. }+ |5 v( m+ K9 W! ?! @. s
“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据，
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中，
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")”
就是把表单中名为name的文本框发来的数据储存在abc123变量中 + N$ u# G  c* x; H& X

接着：if name="" or title="" or body="" then 2 N5 N, q# E+ u/ r5 C. ^1 z# V, P
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句：
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！” 2 g7 [3 M( P* U9 F; A; u
该语句属于html语法，大家都看得懂的！ * q! ]' C; D# a+ j6 [

"<%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&"')") 1 J5 C, }: G3 a
values是“值”的意思 1 c4 {* Y  i( o5 s* n0 y! Z( F+ I
就是插入向量name,title,body，向量用格式'"&name&"'表示 / P! J/ D7 L5 {! d) E9 I
, Z& |7 T8 a' }& T; f
最后：end if就是结束if……then
set savebbs=nothing可以说是关闭掉：
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")
- V% h. P: ]& O( ]9 S. K
+ B& Q7 v" j( u# b% O% z- V
5、index.asp 9 M% u3 w1 l, ^+ A
源代码： , s* W0 k) w1 j0 c5 H$ i
 - ~! r* [: f& C4 Q+ H& ?3 q
<b><a href="say.asp">发表帖子</a></b><br><br>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26">
<tr> 7 P3 a! i/ X8 I* h$ ~
<td width="17%"><b>作者</b></td> " x+ c! ~, v6 @7 l5 I) H- A& p
<td width="83%"><b>主题</b></td> ( F/ ^! N$ Y5 H
</tr> ) N( H+ ^, Q8 q; ?, h) R8 a
</table> * Q' F$ w$ G3 D! N2 r1 ]
</center>
</div><hr size="1">
<%i=1 4 o% f, G2 C  P7 r' x. v/ H6 E5 w
set showbbs=conn.execute("select*from bbs order by id desc") ' s9 |0 o9 q  M9 d0 L; N: N* c, `
do while not showbbs.eof
%> . j1 O% f+ @2 O9 d
<div align="center"> : g+ n4 R$ a  ^! f
<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 , @% Z, \% P( Z" s
showbbs.movenext
Loop
showbbs.Close / V" y  u: G; V
set showbbs=nothing , Z3 L$ f( U+ ^9 \0 B! D
%> - j% e4 n9 C. A  `# ^

这个文件就不一句一句的讲了
主要讲精华部分： " w$ k  ^( J; _
set showbbs=conn.execute("select*from bbs order by id desc") ! A2 Y3 ]* @: N3 N; f
意思是：向数据库中的bbs数据表查询数据，并以id排顺序， ) q5 T8 d% {# v. i* A* F
还有这么一句：<%=showbbs("name")%>
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs 3 ~3 C# L/ T9 q/ _; {* W" r& G
代码中的i=1和i=i+1 ' @: x: S: h. Y( f8 b
if i>50 then exit do
showbbs.movenext . t6 ]  D! e. K; _, d* [; Q
Loop ( p8 \) Q, y  q$ n0 Y% _/ g# N
showbbs.Close
set showbbs=nothing
9 W5 t) N; Z8 g4 a: w: \
这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！
if i>50 then exit do中的50可以修改 ( l* i, P8 a! O0 G4 r" r' x. w! K
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄 2 \/ d0 L! x- R% U
还有一句很有用的： ' @5 Z3 k2 I( h3 z1 H( y
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a> & j' b7 z; |- j2 C8 j! h, J
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了，
等一下在show.asp文件中就有用了 3 \7 o% c. Q. r) M, c8 r  R, _

5、show.asp
源代码： # S6 B: ]0 ~5 E$ O# ~9 E
" Y8 ?6 v6 s8 O* y9 p; y( }

<%id=request.querystring("id")%>   Y% D( M/ Y* V: ?1 S3 l
<%set show=conn.execute("select*from bbs where id="&id&"")%> / c# [+ d4 r% c' z  Y# @
<a href="index.asp"> # \2 u' j$ r' i$ J
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><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> 9 M, F( J. w3 Z( l$ A( E
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td>
</tr> & q% k7 f8 I/ z& e. W  a
<tr> : C' T7 p1 ?0 H7 {- n" X0 L6 y6 L& ]
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td>
</tr>
</table><%set show=nothing%>

劲语句---精华语句： ; w* A3 y: ?6 }$ e) }
id=request.querystring("id") 2 F/ G6 P# F9 M: I
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句， ' \7 w7 B% O3 ]! y1 J
id=request.querystring("id")就是把地址栏中的id的值读取下来，
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字， - I5 {1 G# S0 Q+ _. W0 [
所以show.asp使用id=request.querystring("id")语句把数字读取下来
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"")
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&" 3 o1 B- r/ t2 C. l
最后<%set show=nothing%>
; u  H0 E# F6 p) t1 n$ x( v
好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

捌玖网络 89w.org----致力于站长学习交流

紫藤花

新手上路

Rank: 1

UID: 102
帖子: 10
精华: 0
积分: 49
金币: 12
威望: 0
贡献: 0

2楼

发表于 2007-12-25 18:07 | 只看该作者

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]