|
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢,其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛,自己的东西毕竟用起来爽吗。<br>. n/ E# P' u0 J$ h! r3 u
<br>! ^+ O0 V* G/ A5 H: Q
同时,再复杂的论坛的写成也离不开下面的基本步骤,大家仔细看了。 <br>
) c1 h; q3 X I4 ~& ?<br>
4 A9 F6 ?& A& _' Z7 d一、建立文件! <br>% Z9 a4 w. x% l# Z; h4 L2 C
最简单的论坛也要有几个必要的文件,就是: <br>
- l ?' J% b. ]0 `5 T; l; T<br>, k9 X/ _9 z1 p6 l( A H+ Q) W9 f
1、数据库,用来储存发表的帖子!-------命名为:bbs.mdb <br>* ~' K8 O, Q' @- Z2 n1 b7 e
<br>
# b: a2 x! T2 x: |& P2、有数据库就必须连接数据库,该文件用来连接数据库:----命名为:conn.asp <br>
: N) ^2 H, o, B+ `) S6 j2 _) ?<br>- Z" d$ H6 n# o. k
3、发表帖子的文件----命名为:say.asp <br>
2 s, V6 S. N) t! p<br>, O/ }/ s. G2 }
4、保存发表帖子内容的文件-----命名为:save.asp <br>
5 X4 G6 H# ]8 g<br>
/ ?1 r- f' f1 ]7 [5、显示帖子标题的文件------命名为:index.asp <br>
7 i8 L( v+ @: A) k, @, \5 C0 \- d<br># G" a2 I0 O/ \( E" c6 ?
6、显示帖子内容的文件,即点击标题后所进入的页面-----命名为:show.asp <br>
) j5 e! _2 Q4 [<br>- A7 A/ S+ f8 [ q3 h' G
建立文件是可以先建立文本文档,他的格式为"文件名.txt",我们只需把它改为"文件名.asp" <br>
' r S" m: @, T( u7 N<br>. l# G7 c& i- t7 r$ m
二、各文件的主要内容 <br>) M, m" a8 n& f$ F
<br>2 X: F9 K$ W* a2 \ P
1、bbs.mdb <br>4 |/ P8 B1 K1 ?4 r. N1 @
<br>
4 z4 z4 w- M1 Z$ \* B. A打开这个数据库,建立一个表,命名为bbs <br>5 F. b& c4 i8 F6 P/ E- ^
<br>1 m# z6 G: z+ \9 \$ s& G; i% u( K# z
该表中有几个字段: <br>, T' h7 d* I3 B: r* j: k6 o
<br>- B2 q3 t3 h T' {, k+ j! c, f( f# m. ?
id(自动给帖子编号),他的数据类型设为“自动编号” <br>. V+ l, W( }+ `. Q
<br>; |7 O: X2 ^; a/ Z- N% o
name(用来储存发表的作者),数据类型为“文本” <br>
* Z/ L* L E& H<br>
& d, d' n8 l% m I4 I/ ttitle(用来储存帖子的主题),数据类型为“文本” <br>
+ q! }0 [) Q) {( b2 f( a<br>
% V: ~3 A+ @5 Q$ l# L3 D( Jbody(用来储存帖子的内容),数据类型为“备注” <br>
0 p9 ^) K# U8 ^( Q9 ~<br>1 a# ]9 e+ y1 |' G0 H- \* K4 L8 j
2、conn.asp <br>
' l4 ?1 O4 o( A0 Y源代码为: <br>
$ u% d, T6 _8 l: x9 L6 r<% <br>$ S+ ?! D3 ~1 y7 C& M* U
Server.scriptTimeout="10" <br>
- E/ S7 H6 i/ Hconnstr="DBQ="+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" <br>0 P' A, P7 c; v, Q+ L* q! f
set conn=Server.CreateObject("ADODB.connection") <br>
& m4 i3 p% z, {% Kconn.open connstr <br> U Q1 j7 Q9 W; o6 P, p6 L }* F
%> <br>
* v) e8 H+ S! t0 l7 b: S$ I<br>
2 }7 J- S* n& |0 j2 h! }这个文件就是这样,代码内容大家就自己研究,这个我也不知道怎么说才好! <br>( i- p5 Y9 O( v4 |3 Y4 ]
<br>
% V' L) @+ m$ J9 R |3、say.asp <br>& A0 |: t; Z8 }# {" S$ l
<br>
6 o. V& V; m6 U# g& t- P源代码为: <br>2 I' [5 Z: w& p+ j8 l5 s
<form method="POST" action="save.asp"> <br>
5 \$ X- v1 F. k/ b' K2 o<p>大名:<input type="text" name="name" size="20"></p> <br>
O$ `: _5 p0 }1 h<p>标题:<input type="text" name="title" size="91"></p> <br>, n1 a: @) f4 S$ D
<p>内容:</p> <br>
, C4 _0 Q# ]! ]6 g i<p><textarea rows="11" name="body" cols="97"></textarea></p> <br>' ?1 X6 a) F5 {/ |) _
<p> </p> <br>
( {$ C( v) {8 O. A0 e: X* u<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p> <br>
9 m& n. d+ m$ U* M& B</form> <br>) p1 A+ {* G6 T* X0 ^- l
大家应该看得懂的,这个根本就是html语法,对的,根本就是,这个只是发表的界面 <br>
, Q- b2 w3 s! z1 P' R9 `' i不过要注意这一句<form method="POST" action="save.asp">,他把用户所填的内容发送至save.asp这个文件,下面就看save.asp这个文件吧! <br>/ O. K- ^$ w3 @8 _) O% ?
<br>& D2 a2 M3 @/ Z- c! `9 E
4、save.asp <br>3 p( a7 q p* n( J# n( n9 U: Z7 n
<br>) j; a/ o+ Z6 l7 d
源代码: <br>& q5 M6 y; T% Q; g
<!--#include file="conn.asp"--> <br>3 q8 e, u& I& L6 E9 r( I- R
<%name=Replace(Request.Form("name"),"'","''") <br>
+ w6 ~/ H5 P& s, Btitle=Replace(Request.Form("title"),"'","''") <br>, P) H6 H5 w3 C" j5 h& D @* w
body=Replace(Request.Form("body"),"'","''") <br>3 M. A+ y# s9 D) q" {1 F9 [- Y
%> <br>& X0 A6 N4 B( u3 l7 I. P
<%if name="" or title="" or body="" then%> <br>/ p! t$ |& Q3 D _) Y0 |6 L
请<a href="****:history.go(-1)">后退</a>填写完整资料,你才能发表帖子! <br>- C. s; A3 C: R; l
<%else%> <br>
8 `2 D. V9 e; X9 c6 s0 Q; a5 h<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%> <br>, h- `. X1 o) ~6 C! x1 S7 z
发表成功!<a href="index.asp">查看帖子</a> <br>/ D5 W; t4 k4 \$ s H5 ?
<%end if <br>4 p/ F. x, O3 R' B% ~! t% l2 W
set savebbs=nothing <br>
+ Y1 t q9 L5 J6 [* d$ e- l%> <br>
H9 m$ v4 c# r$ d" U<br>7 Y) J& X7 }' s: f1 X& S1 ~
第一句:<!--#include file="conn.asp"-->,意思是插入conn.asp文件,即与数据库进行连接! <br>
6 s9 G; n- @( ]5 W$ R7 ]/ \asp语句必须用<% %>这个格式包含起来,而插入文件的语句就不用, <br>
) h/ l$ R! W r) K" N% M5 p$ [接下来几句: <br>
5 N5 s# a! C: F. w2 Qname=Replace(Request.Form("name"),"'","''") <br>
2 g# S$ G! A" _; _( ktitle=Replace(Request.Form("title"),"'","''") <br>5 _" D8 s- A' B( m$ ?7 U1 j( t- e
body=Replace(Request.Form("body"),"'","''") <br>9 X$ B( H# ]( F; S* V
<br>3 S/ e& g2 y" M V; ^) T( `
“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据, <br>6 [& x4 X9 w& @1 }: S+ T: F5 {
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中, <br>
% U: p3 S; R) d4 t/ [( `如果你这样:“abc123=Replace(Request.Form("name"),"'","''")” <br>, E) ?$ ^) ^: M& @
就是把表单中名为name的文本框发来的数据储存在abc123变量中 <br>2 u3 c: I. R1 b3 X5 b
<br>0 I- q( ?* S) Z& _
接着:if name="" or title="" or body="" then <br>
: F' Q. U$ m$ g9 L8 k# Z判断name、title和body变量中是否没有填写内容,即为"",如果这样,就执行这一语句: <br>
8 W/ C' N( e8 g2 }2 Q9 U0 P“请<a href="****:history.go(-1)">后退</a>填写完整资料,你才能发表帖子!” <br>
! d c! A8 T% Z$ S该语句属于html语法,大家都看得懂的! <br>
0 t+ E7 l) ^& P: J2 m<br>: K( c( ?( t- E1 ^2 v+ S
"<%else%>"就是说“当if……then不成立(即是说所有内容都已经填写)”,就执行语句: <br>( q3 J0 @0 [- X$ ~6 I4 e9 X2 J$ u
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> <br>: l" i9 L' U+ j( @) \, v% ~8 X5 {
发表成功!<a href="index.asp">查看帖子</a>” <br>" L9 S; d: R( p
<br>9 m6 o9 [' v7 k# P% d/ D4 ]
"set save=conn.execute"属于固定的语句,不过savebbs可以自己修改,"="后面的就难解释了: <br>
) \6 L8 K6 n; T$ t) H& H9 Z3 jinsert into bbs(name,title,body)意思是向名为bbs的表(在建立数据库时已经建立的表) <br>
" j* T$ F6 k/ e) `$ ]; c中的name,title,body字段插入,插入什么呢?看接下的values('"&name&"','"&title&"','"&body&"')") <br>
, h) G8 r; f0 F1 |% M! R) Avalues是“值”的意思 <br>
4 d( H- J" y+ D: C就是插入向量name,title,body,向量用格式'"&name&"'表示 <br>
4 [/ R( f; G6 T9 h0 p1 M<br>3 p; Z# H+ ]5 g5 ^* p: q! L) [
最后:end if就是结束if……then <br>( T- ?$ T4 j+ H
set savebbs=nothing可以说是关闭掉: <br>
& G# ~; ^/ e, z2 \set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") <br>
7 ~% N" P/ j/ Z& w# q7 G<br>
* @3 G4 y# }. b( J* [<br>
) A4 `+ t( L6 R1 v) y3 r1 L; y, a8 z5、index.asp <br>
9 l; X. S7 K5 y7 u! Z0 X( M源代码: <br>
6 f: q @+ N: l/ V<!--#include file="conn.asp"--> <br>+ ?. j" Q: r% P/ b8 b
<b><a href="say.asp">发表帖子</a></b><br><br> <br>/ X1 s0 T7 f0 O' w. {: Z2 b1 }
<div align="center"> <br>
" x1 D% p% e- }, T<center> <br>
* k0 L- s+ u0 V; x& U<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26"> <br>6 H9 q% m p7 o* A% W, l& i
<tr> <br>
* e) |; S% F* `4 w+ L3 t" ?<td width="17%"><b>作者</b></td> <br>% R6 \4 J, d7 m/ L
<td width="83%"><b>主题</b></td> <br>0 W4 [7 n/ ~/ Z; U
</tr> <br>
$ z$ a+ d/ g+ U7 p1 k</table> <br>
5 J/ j5 i5 X- a0 R</center> <br>4 d9 M4 D- g1 O; n" s8 P' o; ?1 S
</div><hr size="1"> <br>
h: R8 n! L9 J F+ R5 v! I<%i=1 <br>1 `. }0 [- T: X m
set showbbs=conn.execute("select*from bbs order by id desc") <br>
* L1 ?3 q3 Y) Ddo while not showbbs.eof <br> ]% v, r+ y3 ~7 y) O* K
%> <br>
: G( r1 t; b1 D/ v+ j<div align="center"> <br>1 v- ~* b2 B) C2 K0 u
<center> <br>8 H2 c9 W# L8 D. d+ p
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20"> <br>0 |- ^3 |/ K3 k' U3 L6 s W) ?( o3 D/ X
<tr> <br>
$ z6 j7 Z5 t7 r2 B: Q. Y<td width="17%"><%=showbbs("name")%> </td> <br>
* ~9 e/ F1 e/ h8 ~' Q6 Y<td width="83%"> <br>
; M( P! n. ] J+ \) G4 {% y<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> <br> _( X* H: a# s7 L
</tr> <br>. H! Q5 O' x1 ?1 B, V0 C
</table> <br>
6 B4 F) q, E+ \' b4 L* Y# B; ]</center> <br>
% }. e* z) }6 M" o, X1 V0 @</div><hr size="1"> <br>
9 e) e0 |* R6 W$ `<%i=i+1 <br>
0 S( l. d# B$ o* y- m- ]if i>50 then exit do <br>
% G" F% N; J2 ]9 lshowbbs.movenext <br>* `; V" y& \8 r/ S" ]9 W$ d) T
Loop <br>! R' R. a1 q" [3 K7 ]) a: W
showbbs.Close <br>
( v' \# h! g; ^" _1 o3 f: Hset showbbs=nothing <br>
$ l4 _# d2 U4 \: J, R3 A1 L%> <br>: g; B% t# c8 a# x3 ^
<br>/ ^% h& ?% g8 C) U
这个文件就不一句一句的讲了 <br>
" C% U( X7 J' k z* }4 n% d; S主要讲精华部分: <br>
& C8 L1 D) }" Tset showbbs=conn.execute("select*from bbs order by id desc") <br>
6 G m; C" l6 D' H% y意思是:向数据库中的bbs数据表查询数据,并以id排顺序, <br>
8 |. u. E/ e/ \$ D: D还有这么一句:<%=showbbs("name")%> <br>* M/ a0 O& j* s1 @- j, J& ?
就是显示数据表中的name字段的数据,这里的showbbs就是set showbbs=……中的showbbs <br>
! Y* ? q8 }/ ]) v代码中的i=1和i=i+1 <br>2 @5 @, z( ]8 j; `" b
if i>50 then exit do <br>2 T, x' a5 c1 O _
showbbs.movenext <br>- S3 F( C. x! i9 ?' w
Loop <br>
7 H3 Y7 n8 { b1 h2 C# Wshowbbs.Close <br>0 W% R# d/ J) e: r% o
set showbbs=nothing <br> J0 X+ E; a8 Y
<br>
, u5 f) w; z! n3 i这几句属于循环语句,这里就不理他,理解了也不太好用,因为他只显示50张贴子! <br>* v1 W0 v+ _5 P
if i>50 then exit do中的50可以修改 <br>9 P9 i- H" R5 U6 S2 p( b
但我们做论坛必须把帖子分页,又因为分页这个语句太复杂,我想就不讲了,等这一个弄懂了才来弄 <br>
; K3 L/ D2 g. B- s* U还有一句很有用的: <br>
: J- K' F& e2 H<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a> <br>
7 ^1 }6 r5 |3 x: L& r1 v( {里面的超连接:show.asp?id=<%=showbbs("id")%>,注意:这里的超连接把帖子的id包含了, <br>
# L3 d+ g' q; B- p0 n等一下在show.asp文件中就有用了 <br>
" v- g) e# W. Q9 d1 X<br>
+ W7 e# O' d& ~$ p3 v1 |2 Z" N# M. J5 h5、show.asp <br>6 C5 f7 W# Z( a' }; m- Y' P1 X
源代码: <br>2 `( b: `, u$ y$ D" i& W
<br>8 a9 {. y# `8 r' k+ v7 }
<!--#include file="conn.asp"--> <br>
8 S9 y+ t8 |5 z; o. J<%id=request.querystring("id")%> <br>
$ a, ~+ O `6 c; D; y) @6 ]<%set show=conn.execute("select*from bbs where id="&id&"")%> <br>
' E' u+ g9 a' \3 @, A. d<a href="index.asp"> <br>& V* ^" V0 f1 e9 K: k
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1"> <br>* \5 y+ Z& T$ c. d3 ?1 Q T1 A+ Z
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180"> <br>
& Z0 f, R7 V2 M/ H<tr> <br>' t+ }# w' s3 o" x* v# }
<td width="21%" height="22"><b>作者:</b><%=show("name")%></td> <br>
9 ~7 c# N# k) C0 w; i; ~<td width="79%" height="22"><b>主题:</b><%=show("title")%></td> <br>
# {1 W2 D" ]* r1 y' |9 j</tr> <br>1 k. S e5 `! | r
<tr> <br>/ a3 P& Z$ e; R: N: k/ w0 n
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容:</b><%=show("body")%></td> <br>/ y% n: |7 \& j5 @2 C
</tr> <br>
" z0 W( s2 [4 J" N</table><%set show=nothing%> <br>' X" y$ t- V" R. m4 X t, s
<br>; N! o! K9 l4 c2 u. Q: \$ b. u
劲语句---精华语句: <br>4 y1 R4 O+ L5 K* J/ @4 o
id=request.querystring("id") <br>+ _) J/ o: D8 I9 A- Y( G: f h
在讲解index.asp文件的后面已经说到:show.asp?id=<%=showbbs("id")这一句, <br>
# C3 n6 A) b$ \) G! f2 G+ Qid=request.querystring("id")就是把地址栏中的id的值读取下来, <br>! w9 {4 ?% u a7 J0 W
因为index.asp文件中的超连接点击后,地址栏就为http://…………/show.asp?id=数字, <br>
; U* \) h0 n4 o& f9 ~0 O所以show.asp使用id=request.querystring("id")语句把数字读取下来 <br>
7 {* l; K# N6 ~+ {* F K于是接着使用:set show=conn.execute("select*from bbs where id="&id&"") <br>; ]4 H% V9 H% w- Q# J: G
向数据表查询id为这时读取下来的数字的帖子,即where id="&id&" <br>1 G7 _* H9 u, ]' G! `+ X I$ M
最后<%set show=nothing%> <br>2 h& _' R- x& i' ~, p. g
<br># p9 a$ ]+ o. [. w `# \
好了,一个简单的DIY论坛就这样完成了 |
|