5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西
真NB..佩服ing .....( h- ~8 q1 |2 [' J0 h, G! \
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。
2 p; D/ p0 Z! x$ i  o/ x4 k0 S- ^6 j
同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。 # W: c9 \: _' G: l0 ~* o

一、建立文件！ % m1 N9 ~% ?7 O4 |2 S5 d6 O) Z0 d
最简单的论坛也要有几个必要的文件，就是：

1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb 2 i# ^+ P! C, D5 a/ X7 m

2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp
* I% d- l* S0 {' v2 Q* U
3、发表帖子的文件----命名为：say.asp
" {7 @9 c& j& }0 N* A9 S
4、保存发表帖子内容的文件-----命名为：save.asp : X/ U& A8 n8 n! ^. R2 I

5、显示帖子标题的文件------命名为：index.asp

6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp
; h9 S( u8 Z# e, H
建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp"
4 M" {* Y1 ]2 ^. m. Q
二、各文件的主要内容 9 N) B7 X% ^, t6 t% ?" C
* K$ M6 Q) }- W. F" E. h
1、bbs.mdb

打开这个数据库，建立一个表，命名为bbs
" P2 m, K! A5 c" y
该表中有几个字段:
# h7 f" ]" A7 @+ S' k6 h0 G1 K
id(自动给帖子编号)，他的数据类型设为“自动编号” ; e9 \+ A4 I* i( i- @, ]; f8 W
3 O, ^$ p7 O9 t: m# X  {1 Y, [
name(用来储存发表的作者)，数据类型为“文本”
1 b: p" @  w( `. l. W" s9 S* a: r
title(用来储存帖子的主题)，数据类型为“文本” 9 V; u" D+ b7 |6 w6 m# b9 U
  u6 a5 s: r6 o- v
body(用来储存帖子的内容)，数据类型为“备注” ) B: X4 K6 Y; T; L

2、conn.asp
源代码为： $ o6 s% n' x4 c1 s* L1 w+ I  ]
<% 9 }! Y) x" l7 m  O% p. k
Server.scriptTimeout="10" . ~; f, G0 o" f5 S3 \
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" & ?! K7 ~# E2 J! @. I/ t2 q
set conn=Server.CreateObject("ADODB.connection") ) S) a( ~( D' {/ t3 W, Y9 x. y1 y
conn.open connstr % X7 a* e! C) x, v! f! I
%>
9 S( ^# ?1 Y% y/ r) W$ N1 l  U
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！

3、say.asp
: b% m! p1 D& Q/ y: v
源代码为： 1 P8 ~' c' Y/ ]% B/ G+ c  u
<form method="POST" action="save.asp">
<p>大名：<input type="text" name="name" size="20"></p>
<p>标题：<input type="text" name="title" size="91"></p> # [. A" ], B% _% B2 B5 @9 ^+ n
<p>内容：</p>
<p><textarea rows="11" name="body" cols="97"></textarea></p> , D9 |% H3 t/ Q- W% I( s5 U$ |
<p>　</p> 9 x- l- n. T: F8 P& R) e9 A
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form>
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面 ; E. A: Z( B3 j/ G/ e
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！
. s/ q; r# Y$ X* n9 q1 o
4、save.asp " d( H' l. e1 K% O1 I' O5 h
6 H; H- i/ k8 ^: A& @
源代码：
 8 E' n0 |1 G" {! a1 {
<%name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''") ! ~; G0 q; a9 N5 u' s! H
body=Replace(Request.Form("body"),"'","''") ) @. b0 R- {4 _1 B- Y8 k7 f
%>
<%if name="" or title="" or body="" then%>
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！ 0 \3 w/ Z3 R3 |  `9 w2 i1 F
<%else%>
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%>   W: y$ ]3 x1 m6 [* N
发表成功！<a href="index.asp">查看帖子</a> 1 n& t# d6 K/ S" w9 r+ Z
<%end if
set savebbs=nothing
%> : z1 Y7 T* w: z1 e- h, g
  x$ [% D3 K% u$ g
第一句：，意思是插入conn.asp文件，即与数据库进行连接！ 5 C* }! G/ Y( l1 O( X
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用，
接下来几句： $ h, V9 Q4 }$ x+ C. x* M
name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''") 9 y0 N" l( f* T; {+ T5 }
9 l. W6 y6 f' T6 V5 H% c
“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据，
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中， 0 u# o5 X8 R" R! {
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")” 4 @$ ^: P) l/ N% e
就是把表单中名为name的文本框发来的数据储存在abc123变量中

接着：if name="" or title="" or body="" then
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句： % ~! E5 i3 R* A5 a
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
该语句属于html语法，大家都看得懂的！ 2 Z( _3 L1 F( \
9 j$ `6 U8 a* s
"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句： 8 h% x* c) T& N6 g
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> / ^+ P+ F- O0 u
发表成功！<a href="index.asp">查看帖子</a>” + v/ d/ s  X$ E- ~6 i# e

"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了：
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表） + a7 {3 y0 a2 ]! m( i' J
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')")
values是“值”的意思 ) s/ H! R3 ]9 c4 m% l2 X% P
就是插入向量name,title,body，向量用格式'"&name&"'表示

最后：end if就是结束if……then
set savebbs=nothing可以说是关闭掉： 2 t$ W" Q# n  V) o. C/ U0 h& \
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")

5、index.asp
源代码：
 1 ^! O4 w+ G2 i
<b><a href="say.asp">发表帖子</a></b><br><br>
<div align="center">
<center> 7 ]" i3 d7 \+ }  \+ x
<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> ' t# P2 v8 x4 J. P% D  ~" v
</table>
</center> 1 y% ]5 {3 Q# ~. v5 f' v
</div><hr size="1">
<%i=1 + J' h  U, x6 C
set showbbs=conn.execute("select*from bbs order by id desc")
do while not showbbs.eof , R& I: s( a/ v) p1 V9 Y
%>
<div align="center">
<center> + u% K. |; o- F2 \& f& q
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20"> 3 z, Y: R5 f0 ~( E
<tr> 9 m4 p/ O: N; N0 ?/ Z7 S% |1 y: g
<td width="17%"><%=showbbs("name")%>　</td> 8 l4 L1 ~9 x) a
<td width="83%">
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> 7 q' C$ i6 a1 K- `  |4 x  [+ l6 e4 F+ A1 ~
</tr> / c, L* T7 o" {$ y* W9 T
</table> , @/ e, |% C$ Z+ D6 l2 Q
</center>
</div><hr size="1">
<%i=i+1 % s0 X2 M, Y2 f  p3 w9 G
if i>50 then exit do : |# ~5 Q2 m: S: `- Z
showbbs.movenext
Loop
showbbs.Close 8 k4 |2 D$ M( f4 \- L3 e% E" A
set showbbs=nothing : [4 k) \" G- Q" P2 D& H3 r
%>   ~. x1 f! R7 b4 ]
- G5 k. \- q# w
这个文件就不一句一句的讲了 ; J1 A' U6 f) P* M: g
主要讲精华部分： $ \2 g/ d3 B( Y
set showbbs=conn.execute("select*from bbs order by id desc")
意思是：向数据库中的bbs数据表查询数据，并以id排顺序， 2 v3 L9 G  H9 M' l/ u3 H! O
还有这么一句：<%=showbbs("name")%>
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs # d8 E, j* T( d% X7 M; W, l
代码中的i=1和i=i+1 ; t' W: M& N' i4 Y* c% e
if i>50 then exit do + \6 c' ~3 D! M, ]+ ~1 S; t
showbbs.movenext ) I6 z' l% q1 F  c/ G
Loop * C# a! Y. R" ?# N( p5 y, [
showbbs.Close " \2 Y* W+ d& u# H( b
set showbbs=nothing
" s! }. T% m4 U! J/ g7 R
这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！ ! ?# E; d5 {* J% q
if i>50 then exit do中的50可以修改
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄
还有一句很有用的：
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a> : L& C3 \* x7 o* Y! e! x& K$ c4 G
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了， ; W% i  T% B% T/ f) m& R1 }$ U
等一下在show.asp文件中就有用了
& |8 }8 Q' P6 Q5 L2 {
5、show.asp
源代码：

 1 ?* A3 j$ E" _# p' o) U
<%id=request.querystring("id")%> * e: X) o$ q5 Q+ G0 B4 k
<%set show=conn.execute("select*from bbs where id="&id&"")%> # Y/ ~) e. A' e/ X7 V+ F0 A! t
<a href="index.asp">
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1"> : a& G. p/ w" \/ N+ P% u. Y
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180"> . `5 T7 ~. }- T4 ]4 C% X
<tr>
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td> 7 k$ U: a! T& @8 Q9 H3 ~
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td> 8 w( C2 w% \  _" F" T! b8 M5 \
</tr> 6 w+ R# |# l; @1 m4 D* U
<tr> & R0 Z* @8 M/ d* z/ }9 F% [6 O
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td> : I" V. D8 u1 J  h, ~
</tr> & G! f) U; s/ {  Z& J& z! D* g
</table><%set show=nothing%> 4 |/ s7 g. q8 A- O+ S- F2 y
- @. L: D* u  [' _
劲语句---精华语句：
id=request.querystring("id")
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句， 3 C- e* v* z/ l5 ^& ~
id=request.querystring("id")就是把地址栏中的id的值读取下来，
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字，
所以show.asp使用id=request.querystring("id")语句把数字读取下来 . g- H% j% b& R1 x
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"") 8 B. R* d0 \: J- i' @
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"
最后<%set show=nothing%>

好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

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

紫藤花

新手上路

Rank: 1

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

2楼

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

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

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

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