5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西7 h4 S0 G( j; [6 c
真NB..佩服ing .....9 H3 P* ^4 R0 L/ Q: O7 l
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。% Y" U' o9 C5 b5 w; b. l) w3 e
) p1 I. w  o+ o$ w4 l
同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。 # X9 r: D2 L5 G, J- E" c4 C; @+ _
/ f/ C1 E) [+ i0 ^; j- u( @
一、建立文件！
最简单的论坛也要有几个必要的文件，就是： 8 h! S& a4 ]4 [6 w3 J; }9 d

1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb

2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp   g3 \7 O. C0 k! G7 _

3、发表帖子的文件----命名为：say.asp
7 P6 |. a% d4 U$ M" O6 G+ L
4、保存发表帖子内容的文件-----命名为：save.asp

5、显示帖子标题的文件------命名为：index.asp

6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp 5 e+ n6 h+ ?0 \+ X0 x) f9 i
( T, z% i5 r6 Z# r
建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp" 9 p* Z  @( c. N! f  N+ P
7 X. `% Z- y; g
二、各文件的主要内容 1 E$ M  n; V3 N/ u- w7 D* g

1、bbs.mdb
2 h8 u0 }* r' m- \5 ^5 X
打开这个数据库，建立一个表，命名为bbs
& v; J' W* a" W$ N
该表中有几个字段:
' X6 P8 Q. K5 K
id(自动给帖子编号)，他的数据类型设为“自动编号” 7 n0 A5 M3 P% l# J2 D/ F

name(用来储存发表的作者)，数据类型为“文本” $ T1 q, V, P# L- h7 f9 z3 j" s
4 ?. ]; v2 c% ?  t
title(用来储存帖子的主题)，数据类型为“文本”
; R6 B+ E; p' i# o
body(用来储存帖子的内容)，数据类型为“备注” 5 q, z4 ^2 L- [/ W# C+ p; k1 R
2 ^5 [: H4 ?+ K, ~5 R- v7 G& Q$ Z
2、conn.asp % S2 F, ?* n* f; H
源代码为：
<%
Server.scriptTimeout="10"
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection") ( I: _; L+ g7 j5 B& I
conn.open connstr # c: ]6 k, f+ F6 j4 G
%> , c" O- x, l4 X4 B2 _) k# P
# h6 o! y) K& r
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ - l2 i+ D5 `3 z+ c2 I1 U& t+ H  b

3、say.asp ; W" x  X% k7 ?1 {1 j; ~4 v  F

源代码为： - K$ v  c4 ?% d8 T8 m- o8 i
<form method="POST" action="save.asp">
<p>大名：<input type="text" name="name" size="20"></p>
<p>标题：<input type="text" name="title" size="91"></p> 8 x9 a0 i# U$ r$ u2 m  W6 X
<p>内容：</p>
<p><textarea rows="11" name="body" cols="97"></textarea></p> ( W# O4 @5 `7 q+ |+ F# H" j
<p>　</p>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p> 6 c# h9 K/ C: w1 @5 a; W
</form> 6 `, e. Y) a0 P- [5 d  }8 {
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面 - Z6 H8 e' \) ^: o- q; ^" a3 M
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！

4、save.asp
2 `- Q0 F& }4 n/ f5 @( F. U
源代码：

<%name=Replace(Request.Form("name"),"'","''") 7 Z4 ?$ `& h& e8 I8 S: |
title=Replace(Request.Form("title"),"'","''") : @" O/ r9 C9 H  F. g! e& E) J' f- F
body=Replace(Request.Form("body"),"'","''") ! S% Y. s! d/ S. I
%>
<%if name="" or title="" or body="" then%> ' _  q& A" Z9 S2 x
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！ : Y) h( X8 \: ]0 Z2 s. G
<%else%> # w8 k7 H) l* [( f, Y
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%> # j3 w. e4 N0 ]! Y) D
发表成功！<a href="index.asp">查看帖子</a> 8 ]! f+ \- |$ i; U% ]/ P1 ?+ Q
<%end if 6 `: n' O& j. ^) F9 P" T" M( J
set savebbs=nothing $ u0 `$ _4 u" ?; d9 O
%> 2 u2 C2 E) ~+ \% G. I! A
" I+ X: }7 V$ Z2 Z( W
第一句：，意思是插入conn.asp文件，即与数据库进行连接！
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用， # z1 k$ k0 K! O" _
接下来几句： " `- K  k) B  f  t; ^8 j% N* s4 y
name=Replace(Request.Form("name"),"'","''") : d% _( H3 ?- @* d9 n& o
title=Replace(Request.Form("title"),"'","''") ! `+ _) g  F: R6 g
body=Replace(Request.Form("body"),"'","''") ( i% `# _2 x6 p4 a  h# i
" r$ S" k2 @+ w8 f
“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据， / Y+ a8 F9 F( P! Z, g# A, a3 |6 r& J
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中，
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")”
就是把表单中名为name的文本框发来的数据储存在abc123变量中 4 E6 Y6 q& u& k, L# T% V" [
5 q2 W- F& |6 i
接着：if name="" or title="" or body="" then ) J& j9 g. [1 |5 J# e5 |+ C
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句： 7 N/ r8 N  f: c- n9 m* F
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！” 6 o1 s0 Y. }, N; S7 l6 R8 t* f
该语句属于html语法，大家都看得懂的！ " j# g5 a5 R: y' U; W
; `) E8 ~# q; e6 g% F7 \
"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句：   ]) ?6 Q+ q1 J6 N& u7 @+ I
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> ) e7 m& _) x& ]& a
发表成功！<a href="index.asp">查看帖子</a>”

"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了： ; {5 M) ^- W( R% }
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表） ) U% R" \5 S2 J0 Q: G- x
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')")
values是“值”的意思 3 u) v% }+ F5 O0 u
就是插入向量name,title,body，向量用格式'"&name&"'表示
: v2 @$ t$ }# [# H  L& }
最后：end if就是结束if……then 4 n7 P  s* H+ }7 A
set savebbs=nothing可以说是关闭掉： 9 L) }+ G' l& ^* }! F
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") , D; v1 z( i( ]/ |
5 e0 L$ F* Y% w% r. k* D. |# ^9 L
; ]; f' D. M& x! `  D
5、index.asp
源代码： / ~. x! h' r" m  l3 L( s- T
 . P; W% D' \5 |* M* M
<b><a href="say.asp">发表帖子</a></b><br><br> 4 {. E5 g6 f8 k& d- b
<div align="center">
<center> 0 q* w) v" V5 r& |/ P, Z
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26">
<tr>
<td width="17%"><b>作者</b></td> ) q2 n  ~+ @6 ^" W- S
<td width="83%"><b>主题</b></td> 9 w5 d; D. B: r
</tr>
</table>
</center>
</div><hr size="1"> 4 L2 u% b1 u- P' G4 [& S- A& l
<%i=1 / ~. |" d; I4 ]8 ^" W6 a; ^
set showbbs=conn.execute("select*from bbs order by id desc")
do while not showbbs.eof
%>
<div align="center"> 3 P* l" v6 c& s0 t4 D% S
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20"> 7 m( r; d) V* Q
<tr>
<td width="17%"><%=showbbs("name")%>　</td> 7 I% O5 T, s* k& W, e5 W6 g- t
<td width="83%"> ) x, b/ y% I$ j8 j0 D' n- s
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> " F) e# y- G# \( }1 Y3 W! ~3 X
</tr> / A' m  G8 A9 |+ [
</table> # q2 a+ H0 j' _& M8 u
</center> ( e( V( c6 o0 m8 j! C
</div><hr size="1"> " ]! _: ?( K; N; b+ ~+ q3 }# i
<%i=i+1
if i>50 then exit do
showbbs.movenext
Loop
showbbs.Close   S& t' z/ h5 v
set showbbs=nothing ( i5 O  ]& p( K: B3 ~- ?
%>

这个文件就不一句一句的讲了 # O% t/ {6 B( t
主要讲精华部分： 8 u3 q* E3 E# u2 X, O/ t
set showbbs=conn.execute("select*from bbs order by id desc")
意思是：向数据库中的bbs数据表查询数据，并以id排顺序，
还有这么一句：<%=showbbs("name")%> 7 g; `( k2 T6 m/ @
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs 8 ?0 n$ G+ K  K) P1 y6 M/ G  L
代码中的i=1和i=i+1
if i>50 then exit do * {; l2 Q, x# ~* K) [0 P, h4 R
showbbs.movenext " M2 j1 U9 [) `4 }
Loop
showbbs.Close
set showbbs=nothing

这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！
if i>50 then exit do中的50可以修改 " q0 ]" {; i# g; l# d3 L
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄
还有一句很有用的： 0 U) f7 u9 C2 }. `6 K9 ]
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a>
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了， ' k/ Z8 t* e5 J
等一下在show.asp文件中就有用了 9 _! c+ `9 W  X2 ?2 k

5、show.asp : s; b2 Y# ?9 D5 f
源代码：
9 a. D2 m0 y* y6 c' W6 Y8 {
 - z# _4 ^; L+ C1 |8 R
<%id=request.querystring("id")%>
<%set show=conn.execute("select*from bbs where id="&id&"")%> 0 U  i( _" S7 F) f7 X
<a href="index.asp"> . G1 O/ d' {4 c: B
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1"> * n2 J  S: i% n4 U: ?
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180"> & h3 Z$ H6 A3 T& g# z
<tr> 1 g+ V" }! F; n; ^
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td>
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td>
</tr>
<tr>
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td> 6 k% ^: i4 ]4 m" |: [8 m* N' ^
</tr>
</table><%set show=nothing%> : u9 u: b: L5 ~3 m: {

劲语句---精华语句：
id=request.querystring("id")
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句， 2 j/ f" |  C4 q- q, p$ N, G9 L; A
id=request.querystring("id")就是把地址栏中的id的值读取下来，   T; S/ B% N+ D: i% N
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字， 5 j' ]) K4 Z; e% U0 U8 A
所以show.asp使用id=request.querystring("id")语句把数字读取下来
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"") 0 j; O9 w! u4 P3 q( Y" y
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"
最后<%set show=nothing%>
9 l, }. z  C. @- N; R$ p8 L) P
好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

捌玖网络 89w.org----致力于站长学习交流

紫藤花

新手上路

Rank: 1

UID: 102
帖子: 10
精华: 0
积分: 49
金币: 12
威望: 0
贡献: 0

2楼

发表于 2007-12-25 18:07 | 只看该作者

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]