5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西3 ~/ u* U+ q$ Z" s" Q
真NB..佩服ing .....# t8 c, O) e( r# A* `
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。
5 l1 H  v0 x! r3 m
同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。 5 g2 d+ x% |; w1 A

一、建立文件！ , B* F2 `8 E, T
最简单的论坛也要有几个必要的文件，就是： 0 d5 e4 X' a1 D& j/ p& {( U* \
& U6 v" U& _+ N, e6 x
1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb 0 m2 v2 ~( G; Z+ m
" {7 ~4 F" L+ T4 ?( a1 e8 z8 p
2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp
8 x0 g/ R0 \" i% d& k
3、发表帖子的文件----命名为：say.asp
3 K* f# U8 k- J9 O" n  p# B
4、保存发表帖子内容的文件-----命名为：save.asp

5、显示帖子标题的文件------命名为：index.asp 4 `$ m/ P7 T+ Q+ v
$ ]5 ?3 e( ~- S9 r
6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp 6 J. v% c/ e- v% c3 w% Z& U6 D* F4 ]

建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp" ; ^4 h( |, N1 m) y

二、各文件的主要内容
% b4 Y8 U9 N& B& m
1、bbs.mdb , W, a; Z% Q6 q7 x! s
1 i; u; F$ M+ ^: B; M) {: E! s) N. y
打开这个数据库，建立一个表，命名为bbs

该表中有几个字段: . O7 E* O, J% t# F0 B- Y3 |; b
" B* n; ?" l% _; W
id(自动给帖子编号)，他的数据类型设为“自动编号” ! D+ M0 w0 @+ \0 `
& u) @  u! c0 W! |. l% W" R
name(用来储存发表的作者)，数据类型为“文本”
: w+ M! B8 Q! L" V% k6 Q7 H! ?9 X* I
title(用来储存帖子的主题)，数据类型为“文本”
% Y# ]8 Y/ J' {% W
body(用来储存帖子的内容)，数据类型为“备注”
: ~8 u4 u" h$ K( x
2、conn.asp
源代码为：
<%
Server.scriptTimeout="10" ) F; ~2 Y3 J/ h7 g
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection")
conn.open connstr
%> 0 J  l% ^* L4 F+ O" y
& U0 L( W! |& n8 W% L  y+ L
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！

3、say.asp
9 l! X" x4 s  F8 A9 e1 E
源代码为： ) L0 ?9 C: S" X% Z
<form method="POST" action="save.asp"> 1 N2 b$ k& ]4 j0 Y! _% A
<p>大名：<input type="text" name="name" size="20"></p> # Q$ B: R; i8 L' c" F1 R
<p>标题：<input type="text" name="title" size="91"></p>
<p>内容：</p> 8 q) p1 B/ H9 Q7 l
<p><textarea rows="11" name="body" cols="97"></textarea></p>
<p>　</p> ! d8 X' q( \$ e+ G/ ^
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p> - ?3 Z( c% E7 d* J% t4 t
</form> 0 \: X! I! a3 @$ {/ i0 P, |
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面 4 D+ L/ N- i6 i0 g+ v& E
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！ : d5 I  w9 ~/ G) l- F( F7 n

4、save.asp

源代码：

<%name=Replace(Request.Form("name"),"'","''") 7 K* `/ n$ V' k* i
title=Replace(Request.Form("title"),"'","''") ) O, }& ~5 t& e* Y/ T1 m( C; d
body=Replace(Request.Form("body"),"'","''") ; y( [5 W1 E6 @. h
%>
<%if name="" or title="" or body="" then%> & E! {' Y6 T( W4 ~% O5 S6 @, \
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！
<%else%> 4 k$ m  b7 l# O* p- w
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a> & y# O* L. V0 s. f, p
<%end if
set savebbs=nothing
%>

第一句：，意思是插入conn.asp文件，即与数据库进行连接！ " A+ g- h6 i6 ~3 P! h, |# ^
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用， 5 S- v/ [( Z0 T3 j0 {5 x) \
接下来几句：
name=Replace(Request.Form("name"),"'","''") ( z! ]" L1 f& r1 x# y! @% R! [
title=Replace(Request.Form("title"),"'","''") / G6 I& K/ }* w$ Z5 I3 M
body=Replace(Request.Form("body"),"'","''")

“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据，
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中， % s1 g* j5 W& P: Q. W
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")”
就是把表单中名为name的文本框发来的数据储存在abc123变量中
" r; Z3 R6 b# d* O* {
接着：if name="" or title="" or body="" then 3 B1 _" `% G3 J7 j$ o8 k
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句： % M. }- l8 r- Y
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！” & S, n3 Z5 }$ u1 `; H
该语句属于html语法，大家都看得懂的！
2 ?# e7 L+ T+ Z% t; X8 ~- ]/ r
"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句： & i0 X" C/ |2 [2 \, d" v1 k
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> " y  c* g$ M/ R. Q( l9 n2 w
发表成功！<a href="index.asp">查看帖子</a>” ( ~1 T& S- G  m) j. ?

"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了：
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表）
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')")
values是“值”的意思 * A' f4 k  _9 I9 ?9 i
就是插入向量name,title,body，向量用格式'"&name&"'表示

最后：end if就是结束if……then 1 V1 ?+ J, u1 i" [4 \
set savebbs=nothing可以说是关闭掉： " R- ]9 V! D0 l. ]# e5 h
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") : Q2 y$ J/ a7 K) p9 r1 H" j) u

1 ~, Q6 p9 H- Z. S% R
5、index.asp
源代码：
 5 h  x* ^5 \0 |1 \) S/ ^
<b><a href="say.asp">发表帖子</a></b><br><br>
<div align="center"> $ i& V. i: y3 [  f+ `4 D/ A
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26">
<tr> . E/ K4 x- o+ K: I; N, ^
<td width="17%"><b>作者</b></td> ( r" E/ l$ Z( E) E
<td width="83%"><b>主题</b></td>
</tr>
</table> ( ?- s8 N' U( k& e- X3 ?
</center> 1 M. Z8 ?9 e9 y, [* C& V
</div><hr size="1">
<%i=1 / G$ w# H( C  l2 ~# l0 b1 i
set showbbs=conn.execute("select*from bbs order by id desc")
do while not showbbs.eof
%> " Z5 |6 {3 }7 E" e8 \
<div align="center"> ' e! A! {) K1 A* x( I/ S
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20"> . F6 a! O! C1 d) U2 n
<tr> 8 P8 v5 z  p# ?- k% c% D
<td width="17%"><%=showbbs("name")%>　</td>
<td width="83%">
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td>
</tr> 0 `3 p. V1 t9 j9 `( e( a' m9 X: @
</table>
</center> 3 ?8 J4 H* t( J
</div><hr size="1">
<%i=i+1
if i>50 then exit do ) H( S! a. a0 p3 p' y2 p
showbbs.movenext
Loop
showbbs.Close
set showbbs=nothing
%>
+ f7 B- a# F- Y, R- r) h; Y
这个文件就不一句一句的讲了 3 g4 W5 h" ?2 D8 _- S
主要讲精华部分： & e5 a" ]0 H, ]1 }" |  m7 P
set showbbs=conn.execute("select*from bbs order by id desc") ( c( M4 t. W  l6 i
意思是：向数据库中的bbs数据表查询数据，并以id排顺序， ' L1 Q1 e/ L0 S# V$ q5 X. }3 x0 b, p
还有这么一句：<%=showbbs("name")%> 6 Y+ M# @* p* i
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs
代码中的i=1和i=i+1
if i>50 then exit do
showbbs.movenext * Z* G" I2 I1 g# r' P; ^# o8 N
Loop
showbbs.Close + _  T# Z' q! T; `: o6 ?4 z
set showbbs=nothing % s" B% c7 g' M. v0 ^

这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！ % n; P4 b$ n! u
if i>50 then exit do中的50可以修改
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄 * l6 B. J" a. R" F- I: z8 E# ~. c
还有一句很有用的：
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a>
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了， . m" h" I1 }- x
等一下在show.asp文件中就有用了

5、show.asp
源代码： 6 W* A, d4 V4 X8 M3 G

 % h3 X% @, m9 _5 y* |6 n+ N' o
<%id=request.querystring("id")%> 8 ?) p, {; `- B3 }
<%set show=conn.execute("select*from bbs where id="&id&"")%>
<a href="index.asp"> - y/ `7 X  t+ Y$ L, s+ p
<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"> 1 |) J: [  W& R
<tr>
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td>
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td>
</tr>
<tr> / ?4 `" h  h8 r
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td> 1 K  J, a3 a4 B3 t& N
</tr>
</table><%set show=nothing%> : C5 k0 ]4 l9 V8 r- N/ d
6 {) S' l3 B6 r7 W4 Z, Y5 H/ s
劲语句---精华语句： ' E. x2 T4 G+ G6 ?
id=request.querystring("id") $ {6 J9 J- E. J/ H2 `7 v
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句， 0 V3 v* i% ?# m& @. [  Y9 x0 ]
id=request.querystring("id")就是把地址栏中的id的值读取下来， : `+ J* O$ i& e
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字，
所以show.asp使用id=request.querystring("id")语句把数字读取下来 6 O6 O0 ]5 m+ {# O- j
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"")
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"
最后<%set show=nothing%> : @# i# ?$ N2 A
. i- `! |/ S! C1 e8 ?! X2 J
好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

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

紫藤花

新手上路

Rank: 1

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

2楼

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

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

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

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