|
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢,其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛,自己的东西毕竟用起来爽吗。<br>
' V2 f8 |# P# q' D<br>; N" N; c+ F4 v; E% i$ g" [9 I0 J
同时,再复杂的论坛的写成也离不开下面的基本步骤,大家仔细看了。 <br>- A! U7 O) t& I
<br># l( ~# n- o4 d N$ H. d
一、建立文件! <br>
T- g- C" J4 g- R最简单的论坛也要有几个必要的文件,就是: <br>+ k5 B8 Q. W% B, t4 F% j6 F9 W
<br># a' m) x: P/ X; n0 e
1、数据库,用来储存发表的帖子!-------命名为:bbs.mdb <br>
# b2 I0 h) k; s5 \ \3 C<br>2 X1 g6 b; ^) v+ R$ L) h0 t
2、有数据库就必须连接数据库,该文件用来连接数据库:----命名为:conn.asp <br>
! @( g* C* W: L/ h<br>
% f7 ~5 Y; L; e5 a' o5 b$ o3、发表帖子的文件----命名为:say.asp <br>
0 E b7 A9 J9 B7 c$ h9 b<br>/ H m/ T& {* C) v
4、保存发表帖子内容的文件-----命名为:save.asp <br>
/ B! I* G# w. O7 E, U) Q<br>
& M$ O7 p: z1 B; C+ `5、显示帖子标题的文件------命名为:index.asp <br>+ m. `1 v( `: r" c0 y
<br>, ]5 I& s" [$ |8 t; M) V7 w8 |/ h; W
6、显示帖子内容的文件,即点击标题后所进入的页面-----命名为:show.asp <br>9 n1 ^. ^( N9 a4 p i
<br>
: ?! y0 J2 J: e9 O建立文件是可以先建立文本文档,他的格式为"文件名.txt",我们只需把它改为"文件名.asp" <br>
& t0 [+ O2 g6 j<br>
( u! t* m5 f0 @; y# s* M% ]二、各文件的主要内容 <br>! c, A0 y& j& u3 C' D
<br>1 }0 i7 u/ Y4 H3 x& }, s% [
1、bbs.mdb <br>
1 A+ I4 H' R' O' I<br>
( q% i$ O, m9 s; j! B0 U打开这个数据库,建立一个表,命名为bbs <br>
$ m2 V+ H5 }1 R$ B t* N* K( E<br>
* r0 I1 D! i+ i$ A5 n: i# h3 ~) n# L; _该表中有几个字段: <br>
$ m# v7 B' v2 @8 D0 ~<br>' I8 k% x" _1 F
id(自动给帖子编号),他的数据类型设为“自动编号” <br>
* q" y( W# |1 K% _# m<br>
9 P* g4 n1 ?2 s1 c! W( vname(用来储存发表的作者),数据类型为“文本” <br>
O# M6 O, M1 I; M<br>
) f) @1 V) c1 N" X9 C& k$ y( Jtitle(用来储存帖子的主题),数据类型为“文本” <br>
`+ o; j5 c4 S: F, s9 e<br>
8 ?0 n# F8 M, ^: Y( M3 U2 sbody(用来储存帖子的内容),数据类型为“备注” <br>; ~! r* T7 u* U& k
<br>; t+ S* i. I7 b# e6 D3 D
2、conn.asp <br>) E) G* X& B5 R. M
源代码为: <br>
. w$ [' o/ {6 N- G2 }$ u6 N6 U<% <br>6 _# Q: U: ?$ f8 g5 G/ C
Server.scriptTimeout="10" <br>
1 g* z% W j! P; N9 Pconnstr="DBQ="+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" <br>
" s0 r/ k( i. _* ?9 ?set conn=Server.CreateObject("ADODB.connection") <br>
7 Z6 X/ l5 e* u7 D! oconn.open connstr <br>& m# R- z7 K* c
%> <br>6 q' s+ f3 o" ~8 u
<br>7 M3 C3 m$ V" f$ _% M
这个文件就是这样,代码内容大家就自己研究,这个我也不知道怎么说才好! <br>
% l9 ?/ c- v1 p5 F" I- A) T+ f<br>% B4 Q- ^1 q! l, c
3、say.asp <br>* O/ b- E7 o- T. `* X
<br>
) l" _/ ]1 _0 l源代码为: <br># L7 Q; q1 r4 N0 s+ |
<form method="POST" action="save.asp"> <br>
+ Y7 c- B! m& l& ~# v6 ^7 O. K- y* f<p>大名:<input type="text" name="name" size="20"></p> <br>
& [9 P2 [/ f% S* y<p>标题:<input type="text" name="title" size="91"></p> <br>
. C {3 H4 R" @7 D& r2 t, @6 y<p>内容:</p> <br> Y5 z3 R( _2 N, g1 O
<p><textarea rows="11" name="body" cols="97"></textarea></p> <br>9 k; v& u7 |# S! H9 O- h8 d
<p> </p> <br>
! d9 }' z) e* y. q; A* e* c6 m<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p> <br>8 q6 Z. G @" ~6 K9 Q2 J
</form> <br>' f% i% B3 u. k$ q/ s4 n
大家应该看得懂的,这个根本就是html语法,对的,根本就是,这个只是发表的界面 <br>
0 b, s+ }0 X( q$ K- n不过要注意这一句<form method="POST" action="save.asp">,他把用户所填的内容发送至save.asp这个文件,下面就看save.asp这个文件吧! <br>
/ t9 e2 P: h! A# H<br>. ~8 `* s h4 L; ?& k
4、save.asp <br>
7 n. ?7 l, o3 h/ I4 p& X<br>6 }: ]* f1 k6 K: b6 N+ S
源代码: <br>
- v0 A9 o F/ G$ Y<!--#include file="conn.asp"--> <br>
3 T/ Z. b* k, g8 |+ t<%name=Replace(Request.Form("name"),"'","''") <br>% W4 u$ }" {7 T# j9 w) G3 _
title=Replace(Request.Form("title"),"'","''") <br>
( |$ l$ N' B+ ^ n1 t* B/ kbody=Replace(Request.Form("body"),"'","''") <br>! g: E" J3 Z7 h3 Z
%> <br>8 w! r; D. ?4 B+ q# x+ C! t( |
<%if name="" or title="" or body="" then%> <br>6 D# a* D" W2 ^. a
请<a href="****:history.go(-1)">后退</a>填写完整资料,你才能发表帖子! <br>
1 K8 K2 o) L, ]$ p* R% K<%else%> <br>) n$ {+ Y0 G6 ?: ~
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%> <br>
% u# [0 O3 J+ s1 q, P: f发表成功!<a href="index.asp">查看帖子</a> <br>3 w* {$ g: g. P- h
<%end if <br>
7 q ]4 d9 S3 E; S+ E1 pset savebbs=nothing <br>
6 E3 i# |& H6 C5 @9 y. @%> <br>
[, Q7 V; f6 x8 ]<br># B7 {0 }' t5 f7 g" s
第一句:<!--#include file="conn.asp"-->,意思是插入conn.asp文件,即与数据库进行连接! <br>
$ z4 i0 p( Q" [/ `asp语句必须用<% %>这个格式包含起来,而插入文件的语句就不用, <br>
9 C, c. C2 ~9 X0 e7 Q* a$ h接下来几句: <br>
8 F9 W9 m+ z8 B4 ~4 y) T. Nname=Replace(Request.Form("name"),"'","''") <br>
7 j, i; L" ~& n3 G, a0 x6 Etitle=Replace(Request.Form("title"),"'","''") <br>
, \% I# f1 G# b8 gbody=Replace(Request.Form("body"),"'","''") <br>
\* @/ w7 v2 O7 `. q. }0 D/ ^<br>
3 f# \) k& }, y4 ~, }. R“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据, <br>2 S! j( U( U/ }3 V) S1 U4 Y, v
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中, <br>3 V' _; c4 U8 w1 E. V% e5 g
如果你这样:“abc123=Replace(Request.Form("name"),"'","''")” <br>
8 k3 a6 S* f( F+ X/ i就是把表单中名为name的文本框发来的数据储存在abc123变量中 <br>
2 n( c, w6 o3 m9 ~( {<br>' ^4 O, l. E9 U# d# N
接着:if name="" or title="" or body="" then <br>' p% t; B8 x! V
判断name、title和body变量中是否没有填写内容,即为"",如果这样,就执行这一语句: <br>- z: i: ~4 i4 `
“请<a href="****:history.go(-1)">后退</a>填写完整资料,你才能发表帖子!” <br>- Q& R- U2 Y- X0 O( Q$ S
该语句属于html语法,大家都看得懂的! <br>3 q- h" L8 X9 X2 b9 O
<br>9 |# D) ~% T2 N9 ]' @3 i
"<%else%>"就是说“当if……then不成立(即是说所有内容都已经填写)”,就执行语句: <br>
8 q/ ]' o4 h% J3 Z“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> <br>9 q1 M: }3 x6 [! G. o! D; @
发表成功!<a href="index.asp">查看帖子</a>” <br>
+ m' U6 `* i5 l<br>8 N4 [1 ?! J5 f; o" \0 w) G, f$ G. k
"set save=conn.execute"属于固定的语句,不过savebbs可以自己修改,"="后面的就难解释了: <br>
: h3 {, G( p- I8 B1 k3 k% Dinsert into bbs(name,title,body)意思是向名为bbs的表(在建立数据库时已经建立的表) <br>
; ]% e5 C' f9 U1 K: @( f) V中的name,title,body字段插入,插入什么呢?看接下的values('"&name&"','"&title&"','"&body&"')") <br>
2 f. K- L: k! r0 wvalues是“值”的意思 <br> O% R8 d* t% p
就是插入向量name,title,body,向量用格式'"&name&"'表示 <br>
! P/ j5 I% F7 C. H" F<br>
/ c: \ u2 V8 J: k# A& h5 D) q最后:end if就是结束if……then <br>
6 l! G, G0 W4 c* W* K' ?) Wset savebbs=nothing可以说是关闭掉: <br>$ q' J! I0 i2 M
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") <br>! z% d. m+ `5 Z Q" n4 _/ r
<br># u+ Y, ~4 r: ], d9 M! [! }1 A
<br>+ x% q7 H& K7 T4 Y
5、index.asp <br>& V& L+ C; \9 h7 ~$ Y# X/ g
源代码: <br>, Y+ [5 H& d( a
<!--#include file="conn.asp"--> <br>
; k' D7 {1 Z5 y7 L<b><a href="say.asp">发表帖子</a></b><br><br> <br>0 x' y6 ^: `0 E
<div align="center"> <br>
# C) M3 z: k& J" H- Q& A<center> <br>% F4 Y$ D/ [, N2 R; E
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26"> <br>- u6 c' {" O. l( I0 g$ a# ~/ A
<tr> <br>
* P& [+ v9 r; d/ \) r. V2 t<td width="17%"><b>作者</b></td> <br>
( M" J8 q+ I0 M0 L<td width="83%"><b>主题</b></td> <br>1 r3 w; R% s% w; V9 R
</tr> <br>
5 B+ v m, c0 ~6 e</table> <br>
$ {* K" ?5 S a, ?) `' @' X</center> <br>
/ i2 o1 }! C4 X, R& V0 ~</div><hr size="1"> <br>0 K D* O2 y9 f6 q7 I- A3 }
<%i=1 <br>; x8 z% p0 X! a' Y6 l
set showbbs=conn.execute("select*from bbs order by id desc") <br>
7 ^8 K8 e4 ~; |2 M _9 m: cdo while not showbbs.eof <br>7 U+ S6 v1 g: F# N, H7 y" a
%> <br>
' W8 q7 b% ]0 E<div align="center"> <br>! \. X" w, y: ?
<center> <br>$ d# c5 B- i; |" H
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20"> <br>+ T/ b4 m5 B7 N* X
<tr> <br>3 t/ ^( C* a/ e2 z& Z* q+ e/ ~( a
<td width="17%"><%=showbbs("name")%> </td> <br>
3 z: R" k9 M: z2 A9 _8 r<td width="83%"> <br>
" y& z, V1 W2 P- S4 g0 d<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> <br>
) S, K% b' \; q3 w</tr> <br>
+ ` i, K6 }6 o</table> <br>; I" ^ M6 e" C. ?
</center> <br>5 y9 p# p; d) E! z5 Z; ^
</div><hr size="1"> <br>+ B [% {' h9 N2 d$ u( U4 E
<%i=i+1 <br>
' q! i6 q4 S6 _6 ?$ k, v8 Cif i>50 then exit do <br>) A2 j3 [/ O ]5 i
showbbs.movenext <br>. q# |! _) T" {" x& O+ W5 _
Loop <br>
7 A. u3 X& N6 ?* B0 v3 y0 J( l' tshowbbs.Close <br>
, H& b$ z$ _! ~$ l" Pset showbbs=nothing <br>
& _+ a6 h- V Y4 {%> <br>
* s, D8 B/ U) T1 ` `- b<br>
$ r7 L8 t x8 `0 a0 h6 j& U! Q: Z这个文件就不一句一句的讲了 <br>; f. P4 z& c( Y6 \
主要讲精华部分: <br>
; Q. Y/ x+ i# Lset showbbs=conn.execute("select*from bbs order by id desc") <br>
' o7 ]7 q0 |* s# E意思是:向数据库中的bbs数据表查询数据,并以id排顺序, <br>
" ?$ o2 o1 Q+ p还有这么一句:<%=showbbs("name")%> <br>
& N$ @" u' K+ f9 K3 B' S i% b& o就是显示数据表中的name字段的数据,这里的showbbs就是set showbbs=……中的showbbs <br>. _; A% \; T% k5 _, `$ z
代码中的i=1和i=i+1 <br>* x% K/ g; M+ q0 H
if i>50 then exit do <br>
. Z- r$ g2 a C% I6 Ishowbbs.movenext <br>2 T; o7 |7 X7 v( Z' ~0 x$ U
Loop <br>7 Q3 W( V) R. ]6 V- f; `+ X
showbbs.Close <br>
6 z! I; c& f6 \set showbbs=nothing <br>
2 P1 a2 J: a: _9 a9 z<br>1 C, V' Y0 L1 ~; l. R
这几句属于循环语句,这里就不理他,理解了也不太好用,因为他只显示50张贴子! <br>
8 p! H! s& ~. g$ Fif i>50 then exit do中的50可以修改 <br>
9 Y) H, D: s. r: [0 j# x- M/ F但我们做论坛必须把帖子分页,又因为分页这个语句太复杂,我想就不讲了,等这一个弄懂了才来弄 <br>
' [) [: ^! A9 P. T7 n, G还有一句很有用的: <br>7 T' J- X6 a1 ^! B( q5 v+ a2 d& g; H
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a> <br>
5 o+ d7 Y3 B* L' T6 j j! b: d里面的超连接:show.asp?id=<%=showbbs("id")%>,注意:这里的超连接把帖子的id包含了, <br> [* r. k& H x9 a
等一下在show.asp文件中就有用了 <br>
9 }* c5 A# ~6 a2 C! Q8 k1 a<br>
6 [9 n4 m! x; r" W% j5、show.asp <br>! h& v* v# @( ^: I# H
源代码: <br>
r& p9 P, X0 F9 P; z* M9 ^<br>2 ^, t) r/ f4 g5 m: }
<!--#include file="conn.asp"--> <br>
! m' C; g0 N+ Q3 U<%id=request.querystring("id")%> <br>& E, E* j% F$ b# ?4 f; ]
<%set show=conn.execute("select*from bbs where id="&id&"")%> <br>
$ q% K- B$ n8 {1 y7 G8 j8 f X3 z<a href="index.asp"> <br>* ^/ `2 z: n; m
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1"> <br>
$ S5 ^, z/ \3 B) y<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180"> <br>, [) p4 w8 z8 Z9 C
<tr> <br>/ ^* N! {! e3 I) {
<td width="21%" height="22"><b>作者:</b><%=show("name")%></td> <br>
7 F4 K0 I; a8 m, y: O<td width="79%" height="22"><b>主题:</b><%=show("title")%></td> <br>! X! b% O, f8 t" p' s7 n J+ w
</tr> <br>* z; S5 e1 f3 A) O" f
<tr> <br>
0 J: ^: k! I% m7 l0 l<td width="100%" colspan="2" height="158" valign="top"><b><br>内容:</b><%=show("body")%></td> <br>
. v2 Z0 C; v. f' O7 n- B</tr> <br>
% {4 s. L/ b8 p2 m. x; C1 c</table><%set show=nothing%> <br>* R+ h2 {# l* l$ v& I+ u7 h0 |
<br>9 e4 E4 ^6 B8 N8 j
劲语句---精华语句: <br>
6 m; R; L! X4 a/ H& N4 N! qid=request.querystring("id") <br>
% [. [; T9 e% w7 ~5 x+ {6 u5 R在讲解index.asp文件的后面已经说到:show.asp?id=<%=showbbs("id")这一句, <br>
2 o% O, ?( S) p$ n( ^8 Bid=request.querystring("id")就是把地址栏中的id的值读取下来, <br>
5 l; n' E7 L, N' j" e因为index.asp文件中的超连接点击后,地址栏就为http://…………/show.asp?id=数字, <br>
. f5 F: n3 E$ E0 i/ v所以show.asp使用id=request.querystring("id")语句把数字读取下来 <br>
7 l' K) F' Q& c于是接着使用:set show=conn.execute("select*from bbs where id="&id&"") <br>6 L" }( L& D7 J8 W+ E9 m% U
向数据表查询id为这时读取下来的数字的帖子,即where id="&id&" <br>
N" X0 q+ C9 k7 G/ r) Z最后<%set show=nothing%> <br>5 ~$ |. v6 H: ]0 w+ p6 A
<br>
2 I' ]: q! ^$ N8 D& q好了,一个简单的DIY论坛就这样完成了 |
|