5分钟编写一个ASP论坛

ASP论坛, 制作源码

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

同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。 8 V+ L7 @8 ~6 G1 {
& e1 l+ Q* \) X* v
一、建立文件！
最简单的论坛也要有几个必要的文件，就是： ; ^* o- f8 T! I( K8 V& N% K

1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb
1 L) D+ M* n3 O6 X! a. C4 k
2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp : @2 H. `3 v& t' O! H$ U# _
! J3 ^( B/ h8 ^) I
3、发表帖子的文件----命名为：say.asp " l& Y3 h. @; H

4、保存发表帖子内容的文件-----命名为：save.asp , V1 o% P0 I) E) z4 h5 e, [
2 H' x: \3 x, M: G$ I& w
5、显示帖子标题的文件------命名为：index.asp
6 U4 y. |: L% |' K. P. X1 T
6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp 8 k  C# i/ u% \; U* ^* K

建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp" ; X% @" T$ ?: x7 d9 k! k
4 d6 d, ^  P; N6 `; c
二、各文件的主要内容 / K& I; q9 @2 W& s0 Y

1、bbs.mdb

打开这个数据库，建立一个表，命名为bbs
; c5 B4 n/ t( d& B9 I# W/ R
该表中有几个字段: 5 K' [+ a* R9 q: H: z! C% U
  q- ~! Z6 K0 a
id(自动给帖子编号)，他的数据类型设为“自动编号” / c. i% j2 Q. P$ H) v" i, M7 ~

name(用来储存发表的作者)，数据类型为“文本”
3 Q8 {% m! R0 t9 a* B
title(用来储存帖子的主题)，数据类型为“文本”

body(用来储存帖子的内容)，数据类型为“备注” ' J* M& y: h" C/ {7 l7 \
. s: N% v+ G% K
2、conn.asp ) ]4 j- |7 y. B3 T  j; }
源代码为：
<% 0 v8 Z- Y1 R0 l7 n
Server.scriptTimeout="10"
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection") 3 C7 G, z* ]5 w. k# j
conn.open connstr
%>
6 A. U% H7 g; X! e
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！

3、say.asp 8 B; J0 \# f6 z+ b; L

源代码为： ( J5 h" }8 A6 M) n; b
<form method="POST" action="save.asp"> 2 |3 Q7 d5 C+ M3 H) Q4 T2 i
<p>大名：<input type="text" name="name" size="20"></p> ) G6 f- c4 o# j4 O: A. o5 q
<p>标题：<input type="text" name="title" size="91"></p>
<p>内容：</p> ( O3 g* t/ M6 j/ h
<p><textarea rows="11" name="body" cols="97"></textarea></p>   ]8 ^3 \7 h" O) }6 l" w  p
<p>　</p>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form> 1 x: [3 {% P/ S
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面 ) m* i4 |- W; I  F& {; ~
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！

4、save.asp

源代码：
 8 S. t% O- C: W* N$ t% k
<%name=Replace(Request.Form("name"),"'","''") & Y+ {9 B1 ~0 E/ e
title=Replace(Request.Form("title"),"'","''") * G8 b% M8 Q$ X
body=Replace(Request.Form("body"),"'","''")
%>
<%if name="" or title="" or body="" then%>
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！
<%else%> + [- c" q2 Q( A5 |. ?8 h, D
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a>
<%end if 3 D2 c" q4 k2 W  }+ Y5 a+ K# b
set savebbs=nothing   ~$ S! k1 C5 l. M
%> : F& o2 ^8 g& y( X3 O
! [, V, D9 s2 x: I/ _9 c" T! S
第一句：，意思是插入conn.asp文件，即与数据库进行连接！ 4 O8 u/ k# }. G8 H& x2 G% o
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用，
接下来几句： $ v! [# c' [3 H6 ?$ i/ U! s
name=Replace(Request.Form("name"),"'","''") + ^! {7 h8 v+ f6 b
title=Replace(Request.Form("title"),"'","''") , l) I; _) Y! I8 _9 A& q, n- i
body=Replace(Request.Form("body"),"'","''")

“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据， , d0 R" o: E8 D8 E/ [0 q
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中， 9 [$ \0 n8 \' e. f( D
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")” # k3 a  b# }, L5 q+ d$ w+ C
就是把表单中名为name的文本框发来的数据储存在abc123变量中 1 L& X; U" w7 z% f4 B* K# s$ ^
7 Q# E% l  M8 I$ \
接着：if name="" or title="" or body="" then 6 b8 J4 I; b" A( m. F$ B
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句：
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！” 4 p- y9 N( {9 ^, X; U% i% D, l3 `
该语句属于html语法，大家都看得懂的！
* i+ D8 D8 j' J" X7 A0 }
"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句： 1 C9 B9 T5 n$ c  b
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a>” " a4 R9 B8 p+ O# W- Q: N
. N: F5 ~1 q* p( Q
"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了：
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表）
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')")
values是“值”的意思 * W1 b  n# w! q: S$ I6 @# A
就是插入向量name,title,body，向量用格式'"&name&"'表示

最后：end if就是结束if……then , k% r; M' G* ~, p. g
set savebbs=nothing可以说是关闭掉：
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") / M' Y7 d- h; m9 n6 k; V

3 Z/ W+ g; w. d  Y9 X- u5 H
5、index.asp
源代码： . y% {6 W! J" m: t

<b><a href="say.asp">发表帖子</a></b><br><br> # |5 Z' F5 V6 G2 F! |
<div align="center">   z! b- J- x& y# P  m
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26">
<tr> * O( A0 [  g# y( v+ v% F
<td width="17%"><b>作者</b></td> + a, P! ]" e0 s
<td width="83%"><b>主题</b></td>
</tr> : X$ u! k' ~4 P4 k! _2 _
</table> ' g% d4 I5 b1 L- N" `5 l
</center>
</div><hr size="1">   u1 l( l! V1 H2 @+ X* u! }
<%i=1 % _$ t: Z7 f& x1 H
set showbbs=conn.execute("select*from bbs order by id desc") 6 F! q* Z' b5 |3 Q& ?3 c: d" T5 s$ |
do while not showbbs.eof
%>
<div align="center"> - F/ a5 v8 ?/ a; S: S- A  Y" y
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20"> ( F  @" e. Z9 g8 Q. Q
<tr>
<td width="17%"><%=showbbs("name")%>　</td> 9 L1 E4 [* g6 G" N9 a* O2 w
<td width="83%">
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td>
</tr>
</table>
</center> 9 m  P2 r* ^# E: A" F
</div><hr size="1">
<%i=i+1 ! C' u" }6 \& `# D
if i>50 then exit do - G/ T7 ^, G5 e3 w/ J0 Z& x  B+ c
showbbs.movenext 3 h1 |* @$ W' H" G! _: Q! m+ z' g
Loop 3 P( @7 L2 j, K$ ~; _1 C% j; K/ s
showbbs.Close / b4 o; W% s$ P- {
set showbbs=nothing
%>

这个文件就不一句一句的讲了 0 S% W! r9 ?! s
主要讲精华部分： 2 z  h3 X& M+ I( n( v0 K
set showbbs=conn.execute("select*from bbs order by id desc") - I- A" H  C' C
意思是：向数据库中的bbs数据表查询数据，并以id排顺序， 0 C( k* U( S$ w! i6 H1 k, T' j0 C
还有这么一句：<%=showbbs("name")%> - G8 H) H. @) \# Y! T' c
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs
代码中的i=1和i=i+1 . ~9 ~; Z' a' ?; @& Z& F
if i>50 then exit do # G& X5 ~4 q) v2 k% [2 [
showbbs.movenext
Loop
showbbs.Close
set showbbs=nothing ( J& U; [7 K" e4 I
' y+ u* `& `5 B: y5 r
这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！
if i>50 then exit do中的50可以修改 - m5 N7 c6 V+ k; i
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄
还有一句很有用的： - L- a) \/ [4 B
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a> ! K" R& y5 I. |  Q* y" }
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了， / G7 Q$ k; \9 h, d" x
等一下在show.asp文件中就有用了
! g& F/ B2 p5 }) c; j
5、show.asp ( d- f9 ]1 W2 x; ~) d
源代码： 6 b) o# g& g- t9 r( M1 q  |7 r
1 q$ r7 J) \1 d" o
 4 N9 B9 x9 a7 N  g, k, q
<%id=request.querystring("id")%> 6 l7 L7 ?' g  A* Z  X" @
<%set show=conn.execute("select*from bbs where id="&id&"")%>
<a href="index.asp">
<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>
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td> 0 @% c9 L) s; c7 d1 ], X, p) @) g
</tr>
<tr> 9 h  n& K* B& |$ }, M6 n/ x
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td>
</tr>
</table><%set show=nothing%>

劲语句---精华语句：
id=request.querystring("id") 3 e: f1 R. ]* }1 i5 w
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句， 5 U& p8 l! W; f$ @" t
id=request.querystring("id")就是把地址栏中的id的值读取下来， 4 s" j0 L/ U9 `" y
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字，
所以show.asp使用id=request.querystring("id")语句把数字读取下来
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"") / E8 d" A/ V* {# m1 V- G2 z
向数据表查询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 分享给朋友]