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

admin

学ASP朋友的。。给大家分享个好东西
8 X7 s, o* d* g" @0 ]  X+ t真NB..佩服ing .....8 C% ?! s( g6 ?; O2 f! P2 H/ [9 m. Q
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。
- _8 b8 d7 e8 a- u0 a+ U, i( O6 l  k) o* T
同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。
6 F/ e7 \+ O  Z2 M# M6 P
+ @) S  }1 ]" w7 P一、建立文件！ 4 \/ U5 V* V) v$ Y$ p7 ]# r9 J/ ]: g
最简单的论坛也要有几个必要的文件，就是：
- M  W" g& v8 U/ C; q1 z7 |/ m& m6 v
1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb
* e# }* j. k" C. E
' b* [$ W% q7 t2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp 9 p, {2 h* T0 g  S9 P  N% b
2 L' t  l: U7 U. c9 N2 y: p
3、发表帖子的文件----命名为：say.asp
1 p" K3 d/ z5 W2 n& ?. F/ S! C' A  i' e! ~1 O. k3 N
4、保存发表帖子内容的文件-----命名为：save.asp ; f& \9 `2 g4 o4 o

/ i% `1 ^- A  C& m5、显示帖子标题的文件------命名为：index.asp 4 B6 Y5 `* T0 E( h6 ^6 E
* H/ p& x3 Z, S6 o1 F4 g5 y
6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp
: m+ K3 Y0 E2 s5 H1 r0 x( y( M' p. G9 u/ w
建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp"
' P3 |' \7 l+ ^7 n( M" s9 m5 Z) x6 l. l! ]0 u5 u8 }, }% E* f/ G
二、各文件的主要内容 ( o( m$ m4 R2 Y  N0 C  v; ?
5 Z5 J2 F5 b( r5 H
1、bbs.mdb
+ E, W! X3 Z! }2 u0 g# m3 z7 o& ]" W& D
打开这个数据库，建立一个表，命名为bbs . r" `: ~3 j2 y9 l
9 I/ y$ s* r6 ?7 H4 J) f, O+ p
该表中有几个字段:
# o. N5 N9 U4 P& T0 P" C8 a! {$ N2 @% J, s/ F* M2 P' Q) ^/ I3 C
id(自动给帖子编号)，他的数据类型设为“自动编号” % h$ P3 O) f8 ?% I6 B& G8 X
7 z: L/ w" n* x
name(用来储存发表的作者)，数据类型为“文本”
* [2 X3 n$ q, t+ M8 |) b- m" [
, d7 Z7 ~/ }; ?$ F3 V: Q7 j! O  etitle(用来储存帖子的主题)，数据类型为“文本” ; t  ~8 I/ s' O8 W2 d2 r
! q* j3 P8 v2 ^9 D- e) C
body(用来储存帖子的内容)，数据类型为“备注”
( ^- e" H) J; _5 d4 y4 ^
+ C: f; G& q. r  I0 c2、conn.asp
, C( R8 z' U/ X+ w  |6 D源代码为： 1 D; y) |. k* j$ F; l  w4 m
<% % m4 Q, w6 y  K8 j; O
Server.scriptTimeout="10" 5 v7 N5 _# \' Z9 ~
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
/ G; v& d- U6 Vset conn=Server.CreateObject("ADODB.connection") - u  A: Y  l3 Y) ?! z( }
conn.open connstr ( Y+ P& \2 x9 N2 Y
%> 2 k( N! t5 J7 }# H3 `( m; X
" p$ f" a  s& [* h
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ ) \! d9 i0 Y: Z
9 V# i; A. H( U( C
3、say.asp
+ T/ E1 b7 S3 h& `3 [' W, D9 z  J% \6 ?, ]" w
源代码为：
# k6 j7 \0 m' y) z<form method="POST" action="save.asp"> ; }4 I) ]2 f0 Q/ q, _% W5 `
<p>大名：<input type="text" name="name" size="20"></p> ( p- l8 u" _( [
<p>标题：<input type="text" name="title" size="91"></p>
* U+ X. }4 R1 ~& \0 F<p>内容：</p> ) o5 D$ W3 S1 o# K9 x% e/ g' u
<p><textarea rows="11" name="body" cols="97"></textarea></p> 3 o6 K; d$ q9 ^% e/ w- _! `
<p>　</p> ) g/ ]0 m6 ~# k& M- N
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
8 _8 h$ F- U0 y) h5 X8 S; K: w</form>
8 A  k% T; o8 R' [" `大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面 : R8 s9 x' M/ Y( I1 f
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！
2 {& a! m: S7 Y" L& N2 i- G% d3 T' h( ^4 @  J- V# }
4、save.asp 2 d- q! K; ]; k0 n+ D/ Z; {

7 z' {% i: k  }, L源代码： - S5 A6 ]. j+ Y. C
<!--#include file="conn.asp"--> * K4 K' a2 G7 q+ z1 R8 v/ D
<%name=Replace(Request.Form("name"),"'","''")   ]& y  G: D2 ]. t, q: g
title=Replace(Request.Form("title"),"'","''")
: L+ B7 y5 g. v! N6 A8 Qbody=Replace(Request.Form("body"),"'","''") ( b% ?1 u6 d& n: o( ]& t
%> / m3 a( d3 e3 V2 W9 d- k
<%if name="" or title="" or body="" then%> 9 Q1 T! W  q: k0 k3 r5 g/ Y
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！
- k5 {: \- f4 X$ l6 ^6 L<%else%> $ R9 C4 X7 J; x- s1 E/ H* Z/ o* Z
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%>
9 {  O: F" i4 {6 p- R, F$ f发表成功！<a href="index.asp">查看帖子</a> / T7 v2 M% {( J7 N  ]3 ~$ l. U( v
<%end if
6 ?' u" m( a9 r- V( {$ Wset savebbs=nothing
) K) f5 L' c% t, b3 }# y%>
- M+ w1 E/ `- F9 q) o! o  q- }3 w5 y/ P7 u, c) y% L
第一句：<!--#include file="conn.asp"-->，意思是插入conn.asp文件，即与数据库进行连接！ ) t  x1 K6 v: E6 t9 |; t
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用，
9 p6 |) l3 w- ^3 E' ~5 Z接下来几句： ; u& x/ C3 e6 y0 x  y
name=Replace(Request.Form("name"),"'","''")
4 C+ h1 P& j9 L2 Ctitle=Replace(Request.Form("title"),"'","''")
. B" U6 a6 R# G5 v5 W) w" n- zbody=Replace(Request.Form("body"),"'","''") / D0 k& O: ~5 d' F8 P: Y  {, J1 X2 d, y

  u& C1 S& F+ [7 T! v8 P“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据， / E, T+ i' X% e
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中， % _. Z! z& E3 R" q! ^
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")” % x3 p2 u) x9 s0 Y! |9 _7 Z  X" V
就是把表单中名为name的文本框发来的数据储存在abc123变量中
, k8 K" A' e4 b$ B1 h4 w8 V1 C! w4 u5 Z
接着：if name="" or title="" or body="" then
' q4 c) p4 ^7 x判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句： ' U! H) D/ e6 c2 `  ]3 u- u
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
3 q- r& [" z  b) B6 S% u- v该语句属于html语法，大家都看得懂的！
1 Z, K- i% B5 M! f3 ^) l8 q$ ~# W: [, J3 l
"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句：
: u) J# r& b+ J4 a* T% u“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> 2 j7 m& F- ?# f0 H8 W( b
发表成功！<a href="index.asp">查看帖子</a>” 2 [! w" r- Z4 p; y- x# S7 T' D+ r

# t1 y+ u& ]+ s( D4 a"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了： 3 S# E- X" G6 L
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表） % i2 G' S3 _! p9 k9 q- s
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')") & h9 O' {0 b$ e: M. X8 o
values是“值”的意思 - [9 N/ T6 ^4 r* G
就是插入向量name,title,body，向量用格式'"&name&"'表示 / \3 P6 k+ i* \( w% v

/ R" T5 f( _6 B; O6 r9 w' p最后：end if就是结束if……then
- R2 H, M( {' @* s) [- Vset savebbs=nothing可以说是关闭掉： ' C& L( A  {* V# k
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") # n. b7 j. F/ r
! m# Y: l9 z4 Z+ L7 e: l/ o" v
/ O3 M* s6 Y. [$ S) n- E9 F/ z' o
5、index.asp ) q; S, x) l+ l9 }7 F" u: {# P
源代码： : S8 `: X7 o7 g! s3 y2 {
<!--#include file="conn.asp"--> % ?' A& c4 `! T+ k5 M" T% G
<b><a href="say.asp">发表帖子</a></b><br><br> ; z; o& ?% \" t' \% U3 O" D
<div align="center"> # T9 l, q8 a4 E- y: p% h- l
<center> # R5 {; W4 o4 Z5 m- s
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26"> % ?  ], c! `- K$ @
<tr>
2 W' j1 i0 F4 L9 _1 u# Z" \5 B<td width="17%"><b>作者</b></td>
* I5 y" w$ \3 q* M9 K) r: U<td width="83%"><b>主题</b></td> ( Z3 z2 c! h+ {  Q* ~8 A
</tr> ; t) v! ]$ [' ^+ E
</table>
# H! h7 y2 D: g8 y4 |  {" H6 m</center> " x4 ^1 \7 _( ~, }% a; L2 |! f
</div><hr size="1"> $ s; `* y- @) Y+ I2 W
<%i=1
: y0 Z2 V. A. Pset showbbs=conn.execute("select*from bbs order by id desc") : G1 A6 Y8 P: s' d' Z5 |
do while not showbbs.eof
2 B5 c+ b+ t; e%>
/ t* g9 l  C* t) m! k& c" B% H/ X<div align="center"> / h/ h5 q3 y; B
<center> : _2 E) T. W' A  [. @5 K) r/ B1 Q
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20">
) i% d$ _$ Z% H3 L<tr> * F% D/ m* Y% A) K9 G
<td width="17%"><%=showbbs("name")%>　</td> 6 F% T$ k' w! O9 F$ ^/ p+ K! ^
<td width="83%">
& G$ }* }% _6 c$ z<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td>
- n5 x2 ?4 K/ R) q" D. a& X</tr>
! g  h* }' I9 }% {" M+ ?1 b5 k</table>
$ R1 G. O% D/ p0 @1 B</center> $ M, t4 Q2 Z& T- G6 A
</div><hr size="1">
8 O$ v+ z% ^( ~4 O/ t0 O6 @<%i=i+1 ' t3 g3 x) {+ M/ d
if i>50 then exit do
0 q2 G1 t! A/ Y. ?6 ~* \% Kshowbbs.movenext
( t8 E: ^* a; I( s2 h2 N8 _Loop
+ J+ Z! y. U' |. t. V6 p8 P0 Tshowbbs.Close 5 J6 d1 K$ o0 v( b
set showbbs=nothing
. S# ~- a0 P% d1 a) o" x9 }%> 3 R$ U, M/ _* c$ G# X8 m3 G
: w/ g: @% L/ _1 J
这个文件就不一句一句的讲了 1 Q0 i# A( U+ N5 S# Z( J3 |
主要讲精华部分：
6 Y8 O+ w; p7 Y( X1 D* d" Wset showbbs=conn.execute("select*from bbs order by id desc") 3 X, W1 \( ?' t. ~; ~+ h
意思是：向数据库中的bbs数据表查询数据，并以id排顺序， & p+ ]4 D9 q# o* v( ~
还有这么一句：<%=showbbs("name")%> + p" h3 F$ L) ?$ M
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs
! A9 w/ h; p) J, n& B1 q, F" f代码中的i=1和i=i+1 ) r- ]: p/ Z) H8 b# K* Q! T! k8 T7 p
if i>50 then exit do
* m4 a1 ]; S3 b6 }showbbs.movenext
; k/ k8 N; |2 B- m3 c4 |Loop
  h: x1 T/ p0 L$ V1 X" S4 kshowbbs.Close 1 O- Z, T. w% F
set showbbs=nothing 3 w5 ?. h$ }( h, N5 p
# h. Y5 L- u6 s" x
这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！ 5 |# L; c4 M! H# V# E
if i>50 then exit do中的50可以修改 1 g; H/ m$ x8 B- d+ V( ]* d
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄 % W: K' ~8 a# X8 w! F  d! u) W- O; X
还有一句很有用的：
  C6 P) O; q/ x/ \. F- P. ^0 U4 M<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a>
! b9 p. O/ w+ ?6 U2 z' e2 i里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了， : H5 z) i1 J4 _" r% H9 X
等一下在show.asp文件中就有用了 2 K' C7 f' F2 |2 ^7 V

9 j# y7 j& _9 l" z# S5、show.asp * ~( `8 I  `- e
源代码： ' m; z$ L  W' _% m) Z1 q

9 A. Y: m- x: A+ G: a<!--#include file="conn.asp"-->
0 O/ J# N' L6 g% ~1 y<%id=request.querystring("id")%>
- d7 ^0 R  f8 v' `1 J) j# c" j# U+ t<%set show=conn.execute("select*from bbs where id="&id&"")%>
, {4 S" E# _& Q" o. l/ b: h- _<a href="index.asp"> 2 z  [8 j6 V) @* }
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1"> 6 `% T# f6 s. t( k+ {# v2 a
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180">
2 v% v) _  i1 S<tr>
+ a! e: m* H: W$ D0 [3 g! l3 P<td width="21%" height="22"><b>作者：</b><%=show("name")%></td> 5 \- C$ t9 A) K2 j( y
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td> & q% P/ u' n/ R1 X3 S: S& v
</tr>
$ v; m& g2 b6 @" T; r<tr> 1 M# d4 ?* _. t6 \0 k9 p
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td> + v. D5 p7 g. j; T
</tr>
. Q+ S' ^; ~! \5 W4 p# v" h1 i</table><%set show=nothing%> : i/ N/ ^' [" U( c

" x0 ]. u* {' U& i( c6 e劲语句---精华语句：   L) c5 N% [6 a, C6 J
id=request.querystring("id") 1 ?0 w* p: w& p/ F
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句，
5 o1 |5 d& K( o2 @% R4 Lid=request.querystring("id")就是把地址栏中的id的值读取下来， ) E/ E* S: ^- Z4 s+ I( a' T
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字， ) z8 R' m& ]. B( O. t
所以show.asp使用id=request.querystring("id")语句把数字读取下来 9 O+ r  R  x+ e* U# t/ N1 g$ _" H
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"")
3 I# f9 q- }- R$ P0 D" \4 b向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"
, P- s+ a) H* U& L' f. z3 w. `0 p最后<%set show=nothing%>
+ m# y2 U1 C5 v# @; N6 ~! g
$ ^1 M5 Q( A7 _" w$ b好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

紫藤花

好厉害啊