5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西
真NB..佩服ing .....
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。
- D3 a+ J  u) C& W- n3 `
同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。 . I# Y2 ^5 I5 [% l

一、建立文件！
最简单的论坛也要有几个必要的文件，就是：

1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb 3 x  Q1 K$ S; v" b
( R! v7 }+ e% l9 i( z
2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp 2 Y! t6 b3 [) d

3、发表帖子的文件----命名为：say.asp
5 |$ ?2 Z% Z5 w& G( h& }( B
4、保存发表帖子内容的文件-----命名为：save.asp ! X3 d8 y; p) Q5 `

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

6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp , t, Q2 F6 ^2 C# @/ V
, \% l* P7 f/ R5 ^# u! w
建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp"
5 o: s8 u9 k% e" P' H+ _+ {) g
二、各文件的主要内容

1、bbs.mdb & z! [9 @+ o4 `

打开这个数据库，建立一个表，命名为bbs

该表中有几个字段: ! e5 U$ N' z# K' Z
+ r) K7 u! y. z* k/ W4 e
id(自动给帖子编号)，他的数据类型设为“自动编号”
0 R3 M3 A; J) e, A+ b
name(用来储存发表的作者)，数据类型为“文本” % q' |, s& ?, [2 f7 I

title(用来储存帖子的主题)，数据类型为“文本” 9 R: b* p. J0 T

body(用来储存帖子的内容)，数据类型为“备注” 2 U8 j+ v, g6 h; u
0 `0 j0 X3 j; ]# w; u
2、conn.asp
源代码为：
<%
Server.scriptTimeout="10" 0 d$ G7 }7 Y% @0 Z8 }! g
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 9 {4 N( @/ c+ @7 p+ z# t
set conn=Server.CreateObject("ADODB.connection") / N- @4 v  R, l4 \7 K  e
conn.open connstr
%> ! Z% ^* j  l3 X9 {% ]2 n8 v5 \
7 n0 T$ j3 s3 A
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！

3、say.asp
% C2 j* S* \: b5 F+ p& M% ^2 L$ S
源代码为： : T) m8 @4 f0 I0 u
<form method="POST" action="save.asp"> * c0 Y( l4 M$ F$ x
<p>大名：<input type="text" name="name" size="20"></p> ( r! m5 `. w! A. ?0 j+ g0 M
<p>标题：<input type="text" name="title" size="91"></p>
<p>内容：</p> 3 K) ]; F# K$ d8 m; U
<p><textarea rows="11" name="body" cols="97"></textarea></p> - n3 k0 h* L' }$ W- `2 y3 Z
<p>　</p>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p> 6 v, \! q4 L9 D& o
</form>
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面 , h% Z9 q) D3 {" P' }
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！
: R: I' H3 e9 ^) b0 e7 K
4、save.asp
9 L+ F1 J' D! k
源代码：
 4 D3 ~0 a+ N% e6 g
<%name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''") : `2 o# U, K4 w. ?$ U0 x- b+ h, H
%> 5 a8 E! ^# l! T1 T. x) r4 o
<%if name="" or title="" or body="" then%> ( O9 Z" r. c1 `4 ^
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！
<%else%>
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%> ) u( ~* g$ k  i5 O; S& I, N
发表成功！<a href="index.asp">查看帖子</a>
<%end if
set savebbs=nothing
%> % X" K6 n0 ^/ c

第一句：，意思是插入conn.asp文件，即与数据库进行连接！ 1 b, X3 [1 H+ Z- d0 Y) _
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用， . u( t, H2 b! ~# @- \, M
接下来几句：
name=Replace(Request.Form("name"),"'","''") , h& r  K$ y, d" J# f3 N$ q# d
title=Replace(Request.Form("title"),"'","''") 0 [4 M9 q4 H6 H; A) U, y8 T) H
body=Replace(Request.Form("body"),"'","''")

“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据， # |, |  M, D' N; L
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中， ! b* x; P% z9 g) x$ F  ^
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")”
就是把表单中名为name的文本框发来的数据储存在abc123变量中
7 |( J! r: t# P6 q
接着：if name="" or title="" or body="" then 7 @- V6 }0 h) x  m
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句： ; o- A3 O) B5 |) f9 Y) {
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
该语句属于html语法，大家都看得懂的！
$ s+ t4 f6 C, q, @( M
"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句： 9 U* d2 ^8 Z) y( J* ~/ n; ]. z
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a>”
9 V# M6 N2 @" o0 [: {% Z# _
"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了： / X- ^' r, x; p
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表）
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')")
values是“值”的意思
就是插入向量name,title,body，向量用格式'"&name&"'表示

最后：end if就是结束if……then , t  L* Y. b( q8 C# r
set savebbs=nothing可以说是关闭掉： 0 i' P% ~1 c; p8 `
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") . V  D1 \$ A# Y# |# W- t$ F
+ i/ J1 U2 s9 S6 y9 P7 M
/ m, ~9 e& s* E! c) j$ y& C0 f$ `) U3 j
5、index.asp ( J6 z3 v( F1 s' @7 u3 f$ n
源代码：
 + }: l" m$ L+ m! {8 g- y
<b><a href="say.asp">发表帖子</a></b><br><br>
<div align="center"> 0 F9 @5 N" J" I& Y: S& N* y
<center> 8 V# \/ b: B  `+ s! }6 M; F
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26"> 1 B1 e* x: x& \- N" ?
<tr> * B" d3 O* N( H: b, K3 n5 [
<td width="17%"><b>作者</b></td>
<td width="83%"><b>主题</b></td>
</tr>
</table>
</center>
</div><hr size="1">
<%i=1
set showbbs=conn.execute("select*from bbs order by id desc")
do while not showbbs.eof
%>
<div align="center"> % ^  e/ z" g0 X  }% ?; o
<center> ! g- s$ H: ?( f8 r" \
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20">
<tr> 1 }3 v. N( M( \7 F) W8 u' f
<td width="17%"><%=showbbs("name")%>　</td> ' K# u  G" Z3 W' D$ L
<td width="83%">
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> ; z3 `3 E. _1 b6 k& ]4 s4 V5 v
</tr> : b1 X5 \9 U$ B% o, l. g# ?7 h6 t
</table> . K6 R/ @9 [- k5 g0 w; F
</center>
</div><hr size="1">
<%i=i+1 6 r% Y: M$ S3 p0 G
if i>50 then exit do
showbbs.movenext
Loop
showbbs.Close
set showbbs=nothing 7 T# N  D! R8 g+ G* {
%> - {! o) V# J; c% G

这个文件就不一句一句的讲了 9 n$ L# v- h2 M& l+ T
主要讲精华部分：
set showbbs=conn.execute("select*from bbs order by id desc") 3 Q7 [, Z4 Z5 n( D+ y" i
意思是：向数据库中的bbs数据表查询数据，并以id排顺序，
还有这么一句：<%=showbbs("name")%>
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs
代码中的i=1和i=i+1 / [) y" O. P$ p$ n
if i>50 then exit do   G4 n; b7 D2 g' R8 t
showbbs.movenext
Loop
showbbs.Close
set showbbs=nothing ; d3 R4 t  X9 f. V# |) j$ X% H
# L" j/ ?: O7 ^( u( ]# u( m
这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！ $ ]' `1 Y( q5 G* W6 ]7 [# ~  J( v
if i>50 then exit do中的50可以修改
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄 3 }- f  C8 a% a  T
还有一句很有用的： % t$ Y/ x  w; ], k5 C/ Q6 m! r
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a>
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了，
等一下在show.asp文件中就有用了   S  [9 y# H) B, I0 i; Q" r

5、show.asp & ]% U7 I9 m" P8 Y3 o
源代码： $ \/ Q1 e, Z9 a( [1 z4 i

 ! r8 Q5 B; J1 ]# o: }+ A! {
<%id=request.querystring("id")%> * X; d; g! m4 V$ E2 P; t
<%set show=conn.execute("select*from bbs where id="&id&"")%>
<a href="index.asp"> 7 f  `( K+ s2 I5 ]
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1"> - ], j4 ?0 ~) m$ [+ L
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180">
<tr> 5 N) ]0 w0 K: e# q3 k3 ?5 a/ q1 q: s; `
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td> / D1 f3 d+ v1 _( s# S
<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>
</tr>
</table><%set show=nothing%>

劲语句---精华语句：
id=request.querystring("id") + q) m9 j0 P( ?( a5 e
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句，
id=request.querystring("id")就是把地址栏中的id的值读取下来， 3 p4 J  I% t) T. z
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字，
所以show.asp使用id=request.querystring("id")语句把数字读取下来
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"") . J! f: H7 ~4 l4 `3 Y; L% q  x
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&" 6 I# ^- M& K6 G
最后<%set show=nothing%>
, ?. E' b2 [1 B
好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

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

紫藤花

新手上路

Rank: 1

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

2楼

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

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

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

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