|
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢,其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛,自己的东西毕竟用起来爽吗。<br>
) v* F' X5 C3 P; {: q<br>0 E( Q8 R4 ]& T5 D8 |2 s1 F0 @! X
同时,再复杂的论坛的写成也离不开下面的基本步骤,大家仔细看了。 <br>
3 H5 l, r2 }) Y( K' h<br>
$ a# T9 G2 B1 |5 H* l7 S2 i; M一、建立文件! <br>
1 O8 c0 @$ Z. j最简单的论坛也要有几个必要的文件,就是: <br>
/ ~. T' H) i8 e<br>
0 u8 k& P; h3 C+ y) }0 b1、数据库,用来储存发表的帖子!-------命名为:bbs.mdb <br>
5 ^" g: X4 i% E/ b<br>
' K# i9 e% x' F) g6 x7 f( E( G0 g2、有数据库就必须连接数据库,该文件用来连接数据库:----命名为:conn.asp <br>
, V/ b. @8 m+ c5 z' p& u* b<br>
6 _4 J; F y# W: f2 g3、发表帖子的文件----命名为:say.asp <br>
% K9 E! ~8 c, h0 \3 ?<br>+ g# K3 f" Y) g- m/ P. r9 L
4、保存发表帖子内容的文件-----命名为:save.asp <br>
1 e7 U( \/ X" H! p( Y1 p<br>3 Z$ g) {& x3 K, R% A- Z; W
5、显示帖子标题的文件------命名为:index.asp <br>& \- |/ }5 Z4 g: h
<br>
. {5 V( x+ I4 }1 w+ h% I6、显示帖子内容的文件,即点击标题后所进入的页面-----命名为:show.asp <br>
7 Q0 R$ v# z% u6 s" c; f<br>
* I) l2 o% Q- a* X# a建立文件是可以先建立文本文档,他的格式为"文件名.txt",我们只需把它改为"文件名.asp" <br>
1 g* {4 s6 _5 E. E9 g<br>
% }& \* j2 m) |1 m4 d" j* o二、各文件的主要内容 <br>
/ ~ ~4 a3 ]9 ?* M* a: C<br>; ]$ ^2 W' u+ k ]. J# r' g) a2 ?5 p
1、bbs.mdb <br>; l1 B$ a$ W5 q( T
<br>
( n. c0 [* ~5 [$ A% u8 ]4 `打开这个数据库,建立一个表,命名为bbs <br>
4 ^9 A# M) _5 x! ]1 D' R$ G<br>
6 l& q- @6 D+ a该表中有几个字段: <br>
& W; U) ^; T2 E+ ^$ K: X4 s<br>! {; v5 l+ P9 v% r2 e$ g& j/ Q T
id(自动给帖子编号),他的数据类型设为“自动编号” <br>
7 n" q( c% D, i/ a8 |) t/ @<br>& n8 E3 h. D* v. D8 x, ~
name(用来储存发表的作者),数据类型为“文本” <br>7 K2 z" H6 Z& l
<br>* L2 i8 x! B: x
title(用来储存帖子的主题),数据类型为“文本” <br>( p2 P& V5 o, u5 `; T
<br>
- ]0 G8 X0 g7 Xbody(用来储存帖子的内容),数据类型为“备注” <br>
$ U8 v$ y( d1 {. q$ e: U; Q. A<br>
. Y) t7 _& H# Z" p# ~9 c/ B1 A2、conn.asp <br>
/ e5 A* A7 M9 d( K源代码为: <br>
" ?" @4 p- M! m0 y- ]- G<% <br>/ B' i/ N3 K* b
Server.scriptTimeout="10" <br>
# `% M4 b: N. `1 u. ^3 \: Vconnstr="DBQ="+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" <br>
. H7 g: J) G0 X" M( sset conn=Server.CreateObject("ADODB.connection") <br>6 ~; g+ ]8 U) }- m
conn.open connstr <br> `- ~( e, E2 i/ S/ }
%> <br>
: W: a+ w+ y L* i+ f! C0 a3 w$ p<br>+ Z# ^5 b6 b7 _8 L6 r
这个文件就是这样,代码内容大家就自己研究,这个我也不知道怎么说才好! <br>+ d' B* `5 [5 |, q9 Y4 Y
<br>
1 R. P. M" e& N1 J$ r+ I# m, l3、say.asp <br>" i/ g2 t1 B' b+ e9 a2 ^$ c, s3 i+ _/ W
<br>
& }4 e' a/ @# N8 @) }源代码为: <br>
2 J; W3 B5 _" K6 `! Q: ]<form method="POST" action="save.asp"> <br>6 i, {' t9 a @$ b' t/ F
<p>大名:<input type="text" name="name" size="20"></p> <br>
( Z6 S# y6 }6 |7 p2 a$ O<p>标题:<input type="text" name="title" size="91"></p> <br>
* r; k i- d# m* A, L% z<p>内容:</p> <br>
- S2 l4 t" B+ y) [0 P<p><textarea rows="11" name="body" cols="97"></textarea></p> <br>7 s; L4 N q! K; D* }3 g+ v! {
<p> </p> <br>
9 ^% H7 m5 u, Y5 u) W5 p<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p> <br>0 ^5 n6 D; _ ~; E! a
</form> <br>- J- i( \2 @6 t) l" R$ ]
大家应该看得懂的,这个根本就是html语法,对的,根本就是,这个只是发表的界面 <br>
+ J2 S, A9 E4 N0 h$ N不过要注意这一句<form method="POST" action="save.asp">,他把用户所填的内容发送至save.asp这个文件,下面就看save.asp这个文件吧! <br>
0 I+ S w. V; w+ b) d" P( p. ]<br>
! o; S) S0 u7 W( `; f4、save.asp <br>
+ y3 o. U8 Y4 w<br>. d$ m7 ~7 a v
源代码: <br>
/ L# ]: e2 q" W3 S5 J6 _<!--#include file="conn.asp"--> <br>. X, C3 J: m; e5 L
<%name=Replace(Request.Form("name"),"'","''") <br>
9 V/ j9 l; J; c( L8 ktitle=Replace(Request.Form("title"),"'","''") <br>/ |& W: v5 c3 o* B$ H$ T. X
body=Replace(Request.Form("body"),"'","''") <br>
7 Y2 z5 P N5 g( T* h6 t$ h+ q%> <br>
6 n) T) X2 I( k: b$ b8 K<%if name="" or title="" or body="" then%> <br>5 M+ J8 v$ F; n/ }; G
请<a href="****:history.go(-1)">后退</a>填写完整资料,你才能发表帖子! <br>: n r+ H% R9 ^/ m- r ]! J
<%else%> <br>' [; R# x( Z" o
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%> <br>* e; U1 {+ t( ]- j2 D
发表成功!<a href="index.asp">查看帖子</a> <br>
/ o8 P! ^6 ]. \; G) e2 Q<%end if <br># p& D, |* J8 Z
set savebbs=nothing <br>
' D* @+ J. v' R. Z! R1 M5 U%> <br>
% z% h! `8 e }7 C6 o9 I: U<br>' G) N8 k7 c* I; I3 c2 V
第一句:<!--#include file="conn.asp"-->,意思是插入conn.asp文件,即与数据库进行连接! <br>8 |9 j d8 S u/ A! J6 w
asp语句必须用<% %>这个格式包含起来,而插入文件的语句就不用, <br>7 M; o Q8 L3 `" O
接下来几句: <br>( R; l3 o# r' C! M' h7 V2 }
name=Replace(Request.Form("name"),"'","''") <br>3 B% B/ T1 b0 |3 M: E& z! l7 A
title=Replace(Request.Form("title"),"'","''") <br>
8 @9 F- ?( `5 |& dbody=Replace(Request.Form("body"),"'","''") <br>) ]9 T5 ?* o0 D* i* D0 x
<br>
. ?. J5 M: ~) n7 D; H% y" @“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据, <br>
5 O; C; H: s a+ f2 i而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中, <br>1 K6 s$ Z+ W% v: k6 l: d
如果你这样:“abc123=Replace(Request.Form("name"),"'","''")” <br>
1 h. R6 _# h5 e/ p- m) d就是把表单中名为name的文本框发来的数据储存在abc123变量中 <br>1 z8 |' i/ ~$ {7 @9 R
<br>- [& Z0 I$ u+ u. x, C1 E3 J
接着:if name="" or title="" or body="" then <br>
5 P0 n, Q4 S" ^/ f2 O+ v6 T' o1 z判断name、title和body变量中是否没有填写内容,即为"",如果这样,就执行这一语句: <br>7 T: r& |" T8 u z m
“请<a href="****:history.go(-1)">后退</a>填写完整资料,你才能发表帖子!” <br>7 g4 C$ j+ J! [/ U) F8 I s p/ `
该语句属于html语法,大家都看得懂的! <br>
; f' O; ~9 @, W' ^- ^3 o<br>
/ g; Y" b9 o5 c) h, I"<%else%>"就是说“当if……then不成立(即是说所有内容都已经填写)”,就执行语句: <br>
8 y0 j; \% @* A) W7 v( }“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> <br>
+ @( L% a1 E' _4 J' e发表成功!<a href="index.asp">查看帖子</a>” <br>
$ P5 m, v) y% p- D<br>+ h7 G I* ?" X* }# Z1 z, m5 f
"set save=conn.execute"属于固定的语句,不过savebbs可以自己修改,"="后面的就难解释了: <br>7 o }! Q# M9 { z
insert into bbs(name,title,body)意思是向名为bbs的表(在建立数据库时已经建立的表) <br>
/ _3 x# {0 q7 @" X/ @6 S6 G中的name,title,body字段插入,插入什么呢?看接下的values('"&name&"','"&title&"','"&body&"')") <br>
0 j1 M" m, I- G& T4 r/ {; ?4 u7 tvalues是“值”的意思 <br>* D) R+ m3 m2 A3 I! Z
就是插入向量name,title,body,向量用格式'"&name&"'表示 <br>, y* j+ k6 d, G2 B3 B* ]7 C
<br>- ~/ n- ?) w! ^
最后:end if就是结束if……then <br>
0 |' K' f+ x, Cset savebbs=nothing可以说是关闭掉: <br>
5 y) s! y; [- ~6 xset savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") <br>
0 T% X: C+ Z2 _3 J# D<br>
1 l4 {8 k( P) H1 {7 |% M<br>
9 k+ ?5 V/ w1 U# C9 ?5、index.asp <br>
! j$ x0 n6 Z9 `8 H源代码: <br>
& C3 Y& o) c; \, e<!--#include file="conn.asp"--> <br>: E9 o4 H" V! t) V4 Q) w. ]: l: z
<b><a href="say.asp">发表帖子</a></b><br><br> <br>. a6 r3 ?* l- m- h* M/ C$ ^
<div align="center"> <br>! B9 A; F0 H# b+ B- }4 i
<center> <br>/ \$ L1 i, O% B! F8 }' t
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26"> <br>
! _' z: _. X" j% x* k! s' D# o) {<tr> <br>5 x2 K9 Q9 g9 M
<td width="17%"><b>作者</b></td> <br>7 O0 O, M u; T( O, N3 d" K" f3 @
<td width="83%"><b>主题</b></td> <br>) V( P0 o8 {" c: _! l
</tr> <br>
* s" d( M! k8 g5 y: _</table> <br>
0 @6 v8 l. z, p" ^ _</center> <br>) B5 y0 r* O* |7 S- q$ w; b% G( @- f
</div><hr size="1"> <br>
7 p! B+ [2 U7 g! L. x# y0 b<%i=1 <br>
7 h4 r( O0 i7 n/ rset showbbs=conn.execute("select*from bbs order by id desc") <br>! A9 H" x5 @( J5 r6 Z
do while not showbbs.eof <br>
, U( T7 y, s* z%> <br>8 {0 O5 Z* I0 t- o
<div align="center"> <br>! k9 [7 k, J8 Z2 K) b
<center> <br>
. T; j/ j! f7 P" M9 X/ D6 ^+ b) p' W+ |<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20"> <br>" \2 t2 S$ [3 ], N9 b
<tr> <br>
( r; u% J0 p; z+ D# T8 W! m<td width="17%"><%=showbbs("name")%> </td> <br>- v) S0 _$ k u
<td width="83%"> <br>
3 M# x" K& M6 D6 ?" g. Q<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> <br>
4 c* o7 g1 R! `5 Q* j) W</tr> <br>
9 x( s4 Q& H3 G1 e! X3 H% W' y</table> <br>( M2 U) K' P1 m0 z
</center> <br>( g0 @3 H ?6 k; v( H
</div><hr size="1"> <br>
1 }: ~" A/ ~# {- j ?$ v<%i=i+1 <br>" p( y4 `5 g7 i, u
if i>50 then exit do <br>- q( \% o8 i: Z N
showbbs.movenext <br>8 t' a3 j0 H1 d2 J5 f u6 I
Loop <br>
0 [8 W$ |- V1 p9 q7 @4 T$ G) kshowbbs.Close <br>4 f0 v7 z; n8 `: v& b
set showbbs=nothing <br>& p7 c2 p0 i/ z. F
%> <br>
( D, g0 B0 q. X<br>
3 m# z0 U! Q( B+ J这个文件就不一句一句的讲了 <br>
* ^ r/ f8 d$ @$ z: o主要讲精华部分: <br>) g& l, ^2 e# n( o {
set showbbs=conn.execute("select*from bbs order by id desc") <br>; r9 _2 ?) H! P- t1 R
意思是:向数据库中的bbs数据表查询数据,并以id排顺序, <br>
% b! L' [$ ^# F! k) g" i还有这么一句:<%=showbbs("name")%> <br>5 r" N! o8 ~) t0 W5 E6 E
就是显示数据表中的name字段的数据,这里的showbbs就是set showbbs=……中的showbbs <br>1 _8 k" ~( r8 V) I5 [
代码中的i=1和i=i+1 <br>" N8 }3 t+ L. f( j% S
if i>50 then exit do <br>
: a- z! k Z- T, ashowbbs.movenext <br>
2 U/ K+ M: H8 w6 t) L. }' j4 NLoop <br>
5 R: p) L9 N% g* Eshowbbs.Close <br>
+ l' k+ T G" f( B4 S6 qset showbbs=nothing <br>
4 X: ?7 g+ a, \& X<br>
) }3 c) r$ ^& k+ b, ~这几句属于循环语句,这里就不理他,理解了也不太好用,因为他只显示50张贴子! <br>
1 b5 H$ G4 [3 B7 ?2 U/ ?) w {! zif i>50 then exit do中的50可以修改 <br>
) F% i) @" O8 p7 A/ P6 H但我们做论坛必须把帖子分页,又因为分页这个语句太复杂,我想就不讲了,等这一个弄懂了才来弄 <br>: ?' {7 @* L1 h- @ I
还有一句很有用的: <br>1 | i; B/ o0 y( X9 j, L
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a> <br>0 e6 v/ ^! s7 y1 u/ _5 K# Y* L
里面的超连接:show.asp?id=<%=showbbs("id")%>,注意:这里的超连接把帖子的id包含了, <br>/ E* F2 p. j% {+ m. Q
等一下在show.asp文件中就有用了 <br># Q- C8 Q4 S8 B: O- v2 {5 f
<br>
' T0 b: r8 ^0 z; s; E7 ^1 X5、show.asp <br>+ c8 h( @/ B! k
源代码: <br>
3 o5 m( O. W# K! w/ U5 F5 K<br>
5 v' `! ?. u( J2 G* q; {; t, s2 b<!--#include file="conn.asp"--> <br>$ c, s- G3 j4 e6 ]6 o) O u0 N
<%id=request.querystring("id")%> <br>
) `( k( x/ y5 f$ }) U; _<%set show=conn.execute("select*from bbs where id="&id&"")%> <br>, H |) |0 G6 u% ~ X
<a href="index.asp"> <br>. E( _+ }$ n% i) w$ K
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1"> <br>0 }, E) r. ~ A
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180"> <br>
5 F% o, K' f6 K- X& S( X<tr> <br>
: ]" E3 A# S( T<td width="21%" height="22"><b>作者:</b><%=show("name")%></td> <br>
6 U" J5 ]# C" {! X<td width="79%" height="22"><b>主题:</b><%=show("title")%></td> <br>
+ C- e: h% s' s9 L- }</tr> <br>
4 b6 A' C2 M. d7 M; C' ~8 F<tr> <br>
2 z6 E1 }7 U8 H. o7 g7 [<td width="100%" colspan="2" height="158" valign="top"><b><br>内容:</b><%=show("body")%></td> <br>$ _) e& j$ A" }% l4 i' U
</tr> <br>
5 f. G$ I+ m! X</table><%set show=nothing%> <br>% r8 s* n3 R) P; I% u- E1 Z
<br>
h$ z7 m) i* p0 A2 l& U劲语句---精华语句: <br>
; G/ N7 I s! v: W" L; Zid=request.querystring("id") <br>
$ A" T9 k& A9 u# W& p在讲解index.asp文件的后面已经说到:show.asp?id=<%=showbbs("id")这一句, <br>
, [, R6 l+ k5 d' S- L' Mid=request.querystring("id")就是把地址栏中的id的值读取下来, <br>" C3 n( y8 j% U% x) J3 h# L
因为index.asp文件中的超连接点击后,地址栏就为http://…………/show.asp?id=数字, <br>/ U2 M. O+ H3 I/ h, H, I
所以show.asp使用id=request.querystring("id")语句把数字读取下来 <br>& a* y5 J4 @; J* `
于是接着使用:set show=conn.execute("select*from bbs where id="&id&"") <br>) u+ R) [5 ?* I5 d$ h
向数据表查询id为这时读取下来的数字的帖子,即where id="&id&" <br>
% ^2 G( _5 w8 W' B0 O2 u* _最后<%set show=nothing%> <br>; X; o, x+ @4 B6 Q7 \
<br>
2 s1 l# x. W3 ]# R$ L: R好了,一个简单的DIY论坛就这样完成了 |
|