5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西
真NB..佩服ing .....
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。. }4 ?2 P2 O2 ]. n/ }) j
; ~; n( {. X6 x8 t* ?7 c
同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。

一、建立文件！
最简单的论坛也要有几个必要的文件，就是：
! C/ y% B) b% f. w/ _, u. g
1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb " R. ?4 T  W% X  }  x

2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp
& ?9 P) I+ h4 S8 U7 p0 [* A& R
3、发表帖子的文件----命名为：say.asp 7 L; J" H' O; _% z7 e
( ^, C" b+ N. a, ?
4、保存发表帖子内容的文件-----命名为：save.asp

5、显示帖子标题的文件------命名为：index.asp - \4 b: \1 O2 k0 V+ P- b

6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp 9 n  I: M" R% S  U$ X/ @
( N! s9 L( d2 g
建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp" 0 e+ p/ S  s: v* u7 O" S$ q/ Q" g
7 g/ j! M2 c& @( p
二、各文件的主要内容 " B) \9 P. k* r$ h/ r# n

1、bbs.mdb
3 x3 L& g/ ~, c3 Z% G, x" c% h
打开这个数据库，建立一个表，命名为bbs

该表中有几个字段: . p7 p$ Z3 M9 f# r4 c5 L# v8 U
: h: X6 D/ }5 l
id(自动给帖子编号)，他的数据类型设为“自动编号” , O9 I6 s: |+ A, k0 J7 ~! ~

name(用来储存发表的作者)，数据类型为“文本”

title(用来储存帖子的主题)，数据类型为“文本”
# J# ^' E! G- H# l
body(用来储存帖子的内容)，数据类型为“备注” " n% |* o! b; k* w
. \0 s( w' H* g4 p; `# q
2、conn.asp
源代码为：
<%
Server.scriptTimeout="10" / {$ s7 a! g$ v8 s6 ~# F6 U
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection") ' p9 P3 u% T( A3 |6 L
conn.open connstr
%> * |0 [# e$ ]* K' H+ Q" I( S

这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ # \4 W7 k& q$ g8 o* ^0 X

3、say.asp 4 d& U: z, w6 J9 l7 B5 n( s6 q

源代码为：
<form method="POST" action="save.asp"> ' {) Q5 {- N9 {
<p>大名：<input type="text" name="name" size="20"></p>
<p>标题：<input type="text" name="title" size="91"></p> 4 U5 x7 P4 `4 F: d6 u# c3 O& Y# _
<p>内容：</p>
<p><textarea rows="11" name="body" cols="97"></textarea></p>   l2 C  U) c% U: W4 b8 j
<p>　</p> 6 o) L: F) P) i3 ^0 f' v& P
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p> + L' |$ B8 l, I; ]. J% T2 I
</form> 7 l+ x2 x+ h# _' o5 m; ]; [
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！

4、save.asp   F, P, R# s7 K+ l9 P: u% g" C: O
: p- t' q* Q0 D9 L( b! P
源代码： " j2 ~! d. g) w, f: @
 $ E) u1 w, \7 n, r; w: e" f
<%name=Replace(Request.Form("name"),"'","''") ! t3 W8 a" R' N7 L) @4 c
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''") : m5 f# g9 x) t# {' [6 s: a5 v9 p
%> . F9 p8 K8 M- }! @7 l" {6 z
<%if name="" or title="" or body="" then%> 9 V5 O  h. u  S2 q3 l% Q
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！ ' X6 \9 D5 _' ^4 o
<%else%> - m% z# M+ \  p
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a>
<%end if
set savebbs=nothing * m# }2 U4 [  W- t3 [+ O2 k& Z
%>

第一句：，意思是插入conn.asp文件，即与数据库进行连接！
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用，
接下来几句：
name=Replace(Request.Form("name"),"'","''") ) }7 x0 b! T1 e/ M. T' w7 |' S
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''") 9 u# @4 G7 {% S) A1 W$ i

“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据，
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中， - f, F5 h$ I" J5 z; Q' j, d: B
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")”
就是把表单中名为name的文本框发来的数据储存在abc123变量中 ' M3 @- o) o  o' E4 C3 ?
7 T  o) I  \% c0 K2 h: v# @
接着：if name="" or title="" or body="" then 2 S8 b2 E: J2 S# ~: [, N4 O
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句： 5 H) \' \$ G. G4 ~" b
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！” 6 g3 I2 @1 I* i
该语句属于html语法，大家都看得懂的！ 7 g6 _- f3 n6 |  ~9 g* U) C

"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句：
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> ' |* G: G# P% V  j
发表成功！<a href="index.asp">查看帖子</a>” 2 J  v1 w: a  q
+ A0 U2 G+ g* j' h
"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了：
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表） ) D! \5 d3 c, t' `$ e! k* D4 h
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')") 2 X6 H! T7 B2 `& V3 a# _
values是“值”的意思
就是插入向量name,title,body，向量用格式'"&name&"'表示 - f6 F  n$ \7 F* v$ l

最后：end if就是结束if……then ) y% P* I8 r& r' q
set savebbs=nothing可以说是关闭掉： 9 Q4 d, P/ |) Q6 z0 E3 f' v
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") 0 n- y5 Q& r" f0 k, d) V4 D0 v; G

5、index.asp : t9 O" H  ?3 }+ A: f$ s( v2 t
源代码：

<b><a href="say.asp">发表帖子</a></b><br><br>
<div align="center">
<center> 5 T- C# x! b, X$ j
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26">
<tr> ) [" A. Z5 W1 l& Y4 ]
<td width="17%"><b>作者</b></td>   ^& z, N( K1 n$ s3 I6 q
<td width="83%"><b>主题</b></td> 1 r  T+ ~% L9 F5 `" L: K; b0 ]' M
</tr> % v3 F7 _  ^" q5 o: }5 C* l7 j5 W
</table>   k; C8 F: Q9 s
</center>
</div><hr size="1">
<%i=1 % y5 R( O5 r' _. Q7 d
set showbbs=conn.execute("select*from bbs order by id desc") $ ?$ h9 n8 k& L" ?
do while not showbbs.eof ; i: S! {9 b2 x; y6 \" V6 t
%> ; v: ~- k) c$ `: V) S) I4 L! a! J7 _
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20"> & T7 e" b4 |: d$ Y5 g/ z
<tr>
<td width="17%"><%=showbbs("name")%>　</td>
<td width="83%"> ; \: r! X3 l7 ]2 _/ i* T! F
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> 6 x; q/ l* r/ Z& ?' `- x4 d1 V9 K
</tr>
</table>
</center>
</div><hr size="1"> ; C: V' g4 r. N
<%i=i+1
if i>50 then exit do 6 S- R! ]9 t! ]9 _  y, j' l. o% A
showbbs.movenext
Loop
showbbs.Close , e# B0 e: C) U3 s) _
set showbbs=nothing
%>

这个文件就不一句一句的讲了
主要讲精华部分：
set showbbs=conn.execute("select*from bbs order by id desc") 1 P2 B' \  u$ w% n5 C
意思是：向数据库中的bbs数据表查询数据，并以id排顺序， 6 |  u5 Z- s# \" y9 p3 [& c0 A( @
还有这么一句：<%=showbbs("name")%> 8 _3 s* E; q+ k$ b
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs
代码中的i=1和i=i+1
if i>50 then exit do
showbbs.movenext
Loop
showbbs.Close
set showbbs=nothing

这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！
if i>50 then exit do中的50可以修改
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄
还有一句很有用的：
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a> 7 E! i0 O( E5 u: G8 _
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了， - U8 u( W4 Y1 S4 L5 N2 N
等一下在show.asp文件中就有用了 5 D8 [* o& U  f9 F: ]& K
9 H0 P7 ~( C' x( E% W1 I2 Z
5、show.asp $ g" x3 U- B  V, ^* z
源代码： 6 K! @# S) a3 ?, |  I& j0 D: b
) L9 }" `5 f* M% {! y8 U  X( ?7 B7 Z
 " C. J' l# e+ o/ f/ H4 U5 m7 o" Y
<%id=request.querystring("id")%> # }* ?( ]5 p8 y( d  D- g; h  \
<%set show=conn.execute("select*from bbs where id="&id&"")%>
<a href="index.asp">
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180"> 5 j% W6 T3 S% c* B: f7 e
<tr>
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td> ! Y8 z# P3 R+ A9 e
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td> 6 _( R# i$ [7 d: O# T5 x
</tr>
<tr>
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td>
</tr> ' Y0 S+ d# \. {3 Z7 C- A
</table><%set show=nothing%>

劲语句---精华语句：
id=request.querystring("id")
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句，
id=request.querystring("id")就是把地址栏中的id的值读取下来， # U, s3 M( J$ Y4 g" s9 q+ G
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字， " j$ M; g" v$ Y; a0 f; }
所以show.asp使用id=request.querystring("id")语句把数字读取下来 ' G6 `4 `6 b! P0 @, |
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"")
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&" + s# k! n' w! c2 i6 E% y
最后<%set show=nothing%> ) f3 i3 E! H: r; f' p% ~
% r1 G! B  {- E6 v( p; E- b2 g
好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

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

紫藤花

新手上路

Rank: 1

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

2楼

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

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

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

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