5分钟编写一个ASP论坛 ASP论坛, 制作源码

admin

学ASP朋友的。。给大家分享个好东西( @' m# D( v, u/ j8 L+ Y2 {
真NB..佩服ing .....: L9 D! z: c( K
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。
4 G6 Z0 J/ m8 e7 E7 X( a# R
& b0 e# k; b  }) l5 @' ?同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。 ( }0 o2 O+ W/ ~5 G- D
9 }* U8 Y, t% K& E
一、建立文件！
- c; p7 H. X8 c# P1 q2 N最简单的论坛也要有几个必要的文件，就是：
7 s: D# i8 K2 L. V5 f4 r0 H# L- z8 J6 ?) I& ^* `
1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb ' E$ o3 b* z* h$ b- L

" @0 T& {8 [8 h6 y: |" f2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp 3 b( T: t4 X# {- q, P
& X  o  f, ]. [3 G! B$ ?* D
3、发表帖子的文件----命名为：say.asp 1 @2 z2 G' u  G- B4 L

! b, T; ^& {& X; d3 D1 w. E4、保存发表帖子内容的文件-----命名为：save.asp % U  H( |, W7 ?; v- Y; T4 P& m

& w4 B7 z9 T! M, F! l2 w5、显示帖子标题的文件------命名为：index.asp
' |; m! M" J$ }9 E% U3 s- L5 K/ q! W; h& M4 d% y
6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp & e, a1 k% V1 E+ `# M( X2 A5 x

& O; z. a! t9 d  m/ i建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp" + M9 G" U  `" j# u, O" ^
6 s2 {* j- s8 j. a+ j
二、各文件的主要内容 2 U% J. r- @7 l' ~$ s
8 U% u; r0 o! b( f1 h) H
1、bbs.mdb 0 B6 y( [2 s; E  I0 a7 s

. f0 y8 |( |9 _6 t+ m打开这个数据库，建立一个表，命名为bbs # l! s: M" W" d% @9 G& N
4 c* n5 b; F: E6 V6 ?
该表中有几个字段: 1 J- v! C& [3 v  K# J

4 m2 ^( w, p- Z" v7 [7 V: V! Rid(自动给帖子编号)，他的数据类型设为“自动编号”
. a3 P  w  W& H( i7 N
" V( v# K* \* [4 Qname(用来储存发表的作者)，数据类型为“文本” 2 z8 [% s6 ?1 e' _- F* e

) A  M8 ?9 g# `) r3 }) U& Vtitle(用来储存帖子的主题)，数据类型为“文本”
6 V* c6 V: c0 A" v! s
7 \3 e6 ^) f! w' {# ^body(用来储存帖子的内容)，数据类型为“备注” ! G! I0 [! V- J* q. a1 i+ j
8 M" L* O0 o2 d6 \* d/ m% q" }
2、conn.asp . v* q2 W8 ?; L) a7 f( f' c
源代码为： 0 U# L0 L& z+ Y8 p) f. S2 G+ o2 V( Y
<%
/ f# A/ @4 g+ Q9 D# \6 Y8 W, EServer.scriptTimeout="10" / `9 E8 B' O! `; q: Q8 c
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 3 P9 a' h" u6 K! v& m" ~
set conn=Server.CreateObject("ADODB.connection")
2 K: a# Q5 i. ]% s, M1 g6 Jconn.open connstr & Q, W' }$ w7 |# U/ }5 U
%> * B3 x% y0 V3 s' p$ W# b7 R

5 l: C% A5 o" @0 H9 c3 P这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ " e" }# r# I/ _. [) c

1 F  \) ^) u" W) _* z3、say.asp & }8 j) |* F5 N  B

4 A: m% z/ C0 A8 H* G1 O源代码为：
+ }' H) F4 `6 m) N) }<form method="POST" action="save.asp"> * p3 H. ^2 ^& B# O$ X- y; C/ S" F
<p>大名：<input type="text" name="name" size="20"></p> - T+ w, |! F# t9 L4 n/ C
<p>标题：<input type="text" name="title" size="91"></p>
) C( S& Q/ G9 Y6 c2 @9 m% Z" d<p>内容：</p>
# |& U9 J" i2 C( T6 m<p><textarea rows="11" name="body" cols="97"></textarea></p> ; `7 K+ n& C  {- f' g4 s6 T$ k
<p>　</p>
3 l, |% a/ A- ^% y$ ^<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
* J. K( Q$ _& P</form>
! S" ~* Y8 [% V% U大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面 * `5 Y! J" R/ |3 r
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！
! d" K( u! C- F, B9 u6 K7 i. K7 o2 u" _
4、save.asp 0 G8 }( z# z5 A, z
$ p1 H* x7 S7 ~
源代码： 1 h" h4 K2 f. f3 ?- k/ i
<!--#include file="conn.asp"--> 1 [; x) I$ _6 p& J  L; J
<%name=Replace(Request.Form("name"),"'","''")
2 A7 ^  O) j( I4 C* R9 N+ Ztitle=Replace(Request.Form("title"),"'","''") # F1 J0 T' O3 a( A: G: s" v2 L( o
body=Replace(Request.Form("body"),"'","''")
' t/ @' f4 t4 \8 R; g9 K& u! {/ R%> 3 i9 J4 I8 g* I4 V+ a
<%if name="" or title="" or body="" then%> 8 w7 Q: o% U( a8 Z# u0 t( K
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！ * u3 {+ v( r" p4 Q& [: x2 N
<%else%>
& q% Z: ]; N1 W" T. n6 y" M( [; T<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%> 6 Y- J" t) h3 S) n
发表成功！<a href="index.asp">查看帖子</a> ( v  A. ^& K' ~9 E
<%end if : s: M1 f- r" J) K
set savebbs=nothing
5 {# r6 ?& X; d, K7 l%> 2 ], N1 e1 w. g$ g
9 |1 u" Q; V+ m4 A4 x7 c- l/ j$ d' h
第一句：<!--#include file="conn.asp"-->，意思是插入conn.asp文件，即与数据库进行连接！
4 C- f8 b) {3 q6 e) g/ ?asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用， 8 s! u9 h1 {0 \. h* D" B
接下来几句：
- ?* r8 Y! {' I( Uname=Replace(Request.Form("name"),"'","''") - y6 i/ _) `, }' X. s% A) P
title=Replace(Request.Form("title"),"'","''")
- K9 [$ k: e% A- tbody=Replace(Request.Form("body"),"'","''") " @; u  e- V- e8 D
' N9 N; F' T( d7 L
“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据， 7 f9 H; }! ]" H. f+ d
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中，
4 m0 @3 d) i6 j5 I如果你这样：“abc123=Replace(Request.Form("name"),"'","''")”
6 J) E3 }  N3 K  u就是把表单中名为name的文本框发来的数据储存在abc123变量中 ) |4 z' Z4 Q" g  H3 A! D9 j
( ^  B6 a+ P; {2 T
接着：if name="" or title="" or body="" then
2 \' m1 }7 M: t判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句：   C5 Z$ F( Z1 V8 N
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
% @' p- T7 C7 i该语句属于html语法，大家都看得懂的！ " i! h7 I" ^# y* H7 r4 H. U
4 }$ m( `& T" `' }4 _, Y' w
"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句： 2 {( ?" c4 F. Z: {; z$ I
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> , n2 B# Z+ V# V6 L1 |8 V
发表成功！<a href="index.asp">查看帖子</a>” ! h2 }( t. g5 p% D) V) _
: e1 v: j9 E- [- r! Y0 @* s
"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了： - |' ]3 G& k- F3 d0 Q2 `
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表） 7 ~- j1 G  R# C6 \5 {8 x' D( _1 A  z
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')") 6 w8 O% ~6 E/ ^0 l$ E5 W
values是“值”的意思
8 J$ N$ m- `; l3 o就是插入向量name,title,body，向量用格式'"&name&"'表示
% F/ _# P% h) P0 x$ b# r! f  P/ Z/ Z& u/ V8 w9 R" p% y
最后：end if就是结束if……then 2 Z9 o" `: u. ~- P8 a
set savebbs=nothing可以说是关闭掉：
# n/ v  b: s! d. i8 O1 @% u* Oset savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")
: }: X5 [) U) `) t8 d5 t$ g2 I0 S+ G! Z# H7 B* i; p

- A1 D! f7 b% ]/ |5、index.asp
  U& Y$ X4 G. L, H0 L. b; y源代码： ' h6 N+ n  ]' d3 {0 U) P4 V
<!--#include file="conn.asp"-->
" p2 \' f% L% \" y8 A% x# `<b><a href="say.asp">发表帖子</a></b><br><br>
6 v, O2 y. S: d: E) D, _/ @7 A8 z/ u<div align="center"> + v- R: I1 x* W* a# T
<center>
% R. ~6 Z* s3 T, [& N7 v<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26">
- ?! L/ c4 Y& D+ J6 v<tr> 8 r: B, Y% M, A6 p
<td width="17%"><b>作者</b></td>
% [& M) i! L! l  H0 r- i2 L<td width="83%"><b>主题</b></td>
+ X. _& c* m# j" _; B3 p</tr> ; L2 X; u. g( \* U, a( ?
</table>
- ~/ D' k7 O; |: _1 E$ G</center>
, ?' L4 b* u- j0 t</div><hr size="1">
7 R; k  ~) {, P) Q, v% X! d* T; ?% B<%i=1 2 F  E1 O6 h/ u: n7 U1 n! i
set showbbs=conn.execute("select*from bbs order by id desc")
, r. g) S3 F4 x7 L* w( \do while not showbbs.eof
& k- M4 O$ }0 p0 H( ^/ n; V& n2 [+ \%> / \! c1 d5 B4 _, E5 o/ R7 q
<div align="center">
! ?$ ]! I) \6 P) x( j2 n<center>
+ X" X. `: D6 t<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20">
( Q  F1 ~% c2 A; Z7 q! R& V<tr> 4 f9 J0 a7 Y) {
<td width="17%"><%=showbbs("name")%>　</td> * O/ n9 P8 Z2 E
<td width="83%">
  S3 M: z# c& A1 l" F9 D<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> 8 R; A9 v8 s7 D' R4 h: f
</tr> 4 }, [% \: T  ?5 p: h
</table>
* x. k; l& ^- Z- @7 Y* z- Y</center> : o3 F. r& A# J: Y7 W* o8 p
</div><hr size="1"> . \( d* P' p0 u: X& I) F. l' [5 W
<%i=i+1
% a) A5 ?  l- w8 z; `; W/ O# aif i>50 then exit do
7 J& q1 g5 s+ y$ Q! X# A/ B! rshowbbs.movenext . L6 |  s2 o% P* {7 b" D  ?. `
Loop
0 R- ~# O; J) H/ k" Lshowbbs.Close 5 ?& Q6 i6 r& B5 u6 X7 V& _7 A
set showbbs=nothing ) S& v% _1 B) Y& a6 n
%>
- Z7 b% f/ l% t8 a# C8 G, U/ N6 c. @% F) H# f3 ^% Z
这个文件就不一句一句的讲了
8 q2 V6 E- l& N- m: G1 {主要讲精华部分：
5 G) F8 Z4 `( A  B- Vset showbbs=conn.execute("select*from bbs order by id desc") 2 s. S4 B6 M( ^) z
意思是：向数据库中的bbs数据表查询数据，并以id排顺序， & [3 a3 l7 s. w: P- B  K& m
还有这么一句：<%=showbbs("name")%> & s+ R9 ^$ J- b0 s- t0 f. K
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs
: g: u7 H7 Y# M8 M8 f代码中的i=1和i=i+1 * f) X) f6 K" D7 m: h9 I) C
if i>50 then exit do 9 a1 H) D5 m4 t# b9 Q1 c
showbbs.movenext " Y6 v) ]2 D3 c$ Z% ~
Loop 3 a3 z+ p3 A* t; o( t
showbbs.Close
3 m& Z3 L$ H$ i: H1 }6 Jset showbbs=nothing 2 E0 f- u4 t' L( Q! g' F

! T# o% c; {0 P4 H) C! N4 S! }这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！
1 B; }3 J* U8 vif i>50 then exit do中的50可以修改 ) C& B* d4 U# _$ P
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄
9 Q1 \% f* m0 B; q还有一句很有用的： % n. R/ m* C$ ?0 f6 t$ ^% [
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a>
$ I1 I( A8 j* a0 ?/ H* T里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了，
# [- ?2 o8 x- B& J/ s; i5 ~等一下在show.asp文件中就有用了 8 E% R8 V5 r+ E3 v. B
8 t2 a1 p4 U3 M+ u6 ~
5、show.asp
3 r6 p, n+ F$ d5 ^; ?, c源代码：
) [3 Y. O% @; [# P
1 a8 G' e+ J# s/ n' ]+ @<!--#include file="conn.asp"--> 6 o4 }& r; q0 q$ J0 w/ l+ q
<%id=request.querystring("id")%> . g0 |% o5 W6 j+ L/ c# f8 g$ I
<%set show=conn.execute("select*from bbs where id="&id&"")%> & B# P. z+ D1 W
<a href="index.asp"> & g& k3 O8 O) O! r& Z
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1"> 3 Y3 ?; J3 S5 A( x! v
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180"> 9 G0 Q& c3 J* I
<tr>
" @" E, l4 a- K/ G<td width="21%" height="22"><b>作者：</b><%=show("name")%></td>
7 @+ ~$ j% Z2 R+ k<td width="79%" height="22"><b>主题：</b><%=show("title")%></td> : Y1 d/ B% p, u% d# o
</tr>
" _) r3 g" G6 z" |0 L2 m" p<tr> $ r& O3 o, _+ s/ L
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td> $ Z9 r* H% K6 e' ?
</tr> ; o; T0 t+ J( Z$ ^1 F5 f* u: Q9 ]/ M2 F
</table><%set show=nothing%> 6 r4 s  a( p1 ]
; T( c1 Z: q8 a  u! B3 c
劲语句---精华语句：
  {4 v8 c- j" @: l! l/ r9 N4 ~8 l  }id=request.querystring("id")   j* f9 e# y$ r5 Y* u
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句，
9 v1 M) S6 I$ V; R$ I4 Y' Jid=request.querystring("id")就是把地址栏中的id的值读取下来， . i7 @1 Q; w: C
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字， . b) ?# X2 i5 b: B# L/ m
所以show.asp使用id=request.querystring("id")语句把数字读取下来 8 V5 }. ]9 p& p+ \' H3 F  l, C8 I9 V
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"") ) N' C4 A5 F1 D+ t
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"
' r; a7 j- C3 _: ~% ~# g最后<%set show=nothing%> $ F! g1 m* I" ]( F# }( L
4 W) m4 G$ T  S
好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

紫藤花

好厉害啊