5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西
真NB..佩服ing .....
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。

同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。
! x! f8 U3 Z1 E. ?' a
一、建立文件！ ) F; g# J# u8 r3 O8 M  V! _. e
最简单的论坛也要有几个必要的文件，就是：
$ Z  w  r0 Y  F4 i- m
1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb
# ?% e3 [# y5 |* S' U0 ~. p
2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp 2 E  N* F9 n  \5 i
" K7 N- ]9 e5 i6 J4 r! l  {" x) u3 Y
3、发表帖子的文件----命名为：say.asp

4、保存发表帖子内容的文件-----命名为：save.asp 6 P7 W4 H4 x! @7 C5 _% e

5、显示帖子标题的文件------命名为：index.asp
" F0 B5 D) U+ ?" e
6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp
0 }* k5 l6 G' r2 }7 g! m; S' b6 }
建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp"
9 a% M, L! w- I5 ~& C; K! D8 q
二、各文件的主要内容 5 k3 _) g1 q" M( ?3 \

1、bbs.mdb . h$ A$ e0 I  L8 q$ G
6 A# a# S# E3 y4 ?/ a
打开这个数据库，建立一个表，命名为bbs ( A, ~: Y- h% K( M( \) m4 V9 j  a
: s' q$ D! I4 Y6 c' S. b+ h3 L$ a
该表中有几个字段: - J# A5 L/ |  b9 N$ r: \

id(自动给帖子编号)，他的数据类型设为“自动编号”

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

title(用来储存帖子的主题)，数据类型为“文本”
3 \) a2 c1 i* y/ z3 j9 D
body(用来储存帖子的内容)，数据类型为“备注”
9 H/ {2 f7 e* p2 x5 X& h
2、conn.asp
源代码为： 2 i3 o/ k0 Q% o( t$ A
<% ' K" M* |5 I& \: B
Server.scriptTimeout="10" - \% L/ K3 X# P) T
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection")
conn.open connstr # H6 Q' C) n" L% P8 g
%>
( d) g* K3 e2 Q( z4 |
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ ! ]" j2 q4 d3 C& x9 R( P1 x: s0 o; e

3、say.asp & d4 D! I( k+ K0 @$ M% x4 p

源代码为：
<form method="POST" action="save.asp">
<p>大名：<input type="text" name="name" size="20"></p> 9 m9 @& J3 g( e
<p>标题：<input type="text" name="title" size="91"></p>
<p>内容：</p>
<p><textarea rows="11" name="body" cols="97"></textarea></p> $ V% J, p' e& a; Z$ F
<p>　</p>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p> 5 G+ z& k2 J- m, f  ?* \" M
</form> ) ^* [. a( j6 i6 W+ c4 T% g, \
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面 ! x6 L0 t0 v) t5 n
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！

4、save.asp $ c0 u1 S! p+ t$ w

源代码： ) z; m/ f- |3 k3 b+ b

<%name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''") " c+ [* p( M5 q% w5 d7 _
body=Replace(Request.Form("body"),"'","''")
%>
<%if name="" or title="" or body="" then%> 3 Z+ V6 [2 ~* R& W& L% k$ e
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！
<%else%> * X+ e. D  M$ e# N+ @& G0 g9 A
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%> 6 A1 J; e- _$ y0 e# l
发表成功！<a href="index.asp">查看帖子</a> ; V' d% k. m3 L4 ?0 f* |+ @
<%end if 5 p0 t8 G1 Y' @: D$ X, d
set savebbs=nothing
%> * P% w4 T7 \. @0 [! c) T# |$ H
3 M9 |5 O1 p% e2 A
第一句：，意思是插入conn.asp文件，即与数据库进行连接！
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用，
接下来几句：
name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''") - K& m! Y; n+ i7 j; D1 H
body=Replace(Request.Form("body"),"'","''") 8 M( X! {  ]( U; K. A5 d

“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据， 3 G1 K( q) D/ A. J  T7 g
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中， , I5 h# M0 r2 _6 a) E8 M
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")” : |& N1 l0 w. @& G9 n
就是把表单中名为name的文本框发来的数据储存在abc123变量中
4 B  i$ s. Q: Q" e8 r2 [
接着：if name="" or title="" or body="" then % I  ~6 A. I7 R9 W3 j. E
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句： 3 ?# F3 S- |- _/ ]6 Q
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
该语句属于html语法，大家都看得懂的！

"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句：
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> 0 N% Q& U' `% `  q9 J' `1 M5 Z1 Q  P
发表成功！<a href="index.asp">查看帖子</a>”
' G7 s& ^9 z- O* z
"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了： 7 @0 C+ H* f, p' j- ~
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表）
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')")
values是“值”的意思   ~0 i" s& j% \- A' a5 O. s% w+ F
就是插入向量name,title,body，向量用格式'"&name&"'表示 + \( i8 E( b5 D
2 q/ Z  V# X$ @# ?
最后：end if就是结束if……then * ?( K' V5 m5 G7 G' }8 n" ?0 ?
set savebbs=nothing可以说是关闭掉：
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") 3 N1 m. I8 y! A/ J
7 v4 f$ L* w  W1 r, I' l' b9 U

5、index.asp
源代码：
 & a" q5 W6 P: ?+ y! G8 ~
<b><a href="say.asp">发表帖子</a></b><br><br>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26"> 4 y4 M2 S4 B9 m* o  |# F
<tr> , _* M& c( u, z1 M+ m; }
<td width="17%"><b>作者</b></td>
<td width="83%"><b>主题</b></td> 9 H1 p: }) s  W/ R
</tr>
</table> / d9 s# {7 l- q0 ~( t
</center> . M" b( {2 y3 }. @! g
</div><hr size="1">
<%i=1 + y# m8 a1 i6 e& |+ V7 a$ d) d
set showbbs=conn.execute("select*from bbs order by id desc")
do while not showbbs.eof 6 S) R0 Y  P) w$ t) @
%> - ]; j$ T: X' z" e" B& F) g7 y
<div align="center"> & P. D, s  C0 e5 j
<center> , T; Y5 g2 x: t( y2 |! R
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20"> . {5 d9 Q# s. }0 h) W. s
<tr>
<td width="17%"><%=showbbs("name")%>　</td>
<td width="83%">
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> # n0 ~% F9 ~8 D2 O! A4 e5 N0 S8 c
</tr> 7 ?0 V0 @6 t% @3 {& D. ]
</table> 0 A; u5 m: R7 s; P
</center> % r7 T6 u$ U; D' k% L' }
</div><hr size="1"> + k& e0 [+ l- A6 k  l2 t- H
<%i=i+1
if i>50 then exit do 6 F' s7 g# {$ e( P8 I/ g9 a0 q
showbbs.movenext
Loop ! H# ]4 W4 N' Q1 K' ^
showbbs.Close 3 {) a  v7 H. F  U' h4 Y( M
set showbbs=nothing 0 F5 V* [- ~1 h' M; g/ ^$ L1 C$ d9 f" W
%>

这个文件就不一句一句的讲了
主要讲精华部分：
set showbbs=conn.execute("select*from bbs order by id desc")
意思是：向数据库中的bbs数据表查询数据，并以id排顺序，
还有这么一句：<%=showbbs("name")%> & l! C# b+ g; }/ U9 ~6 k
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs $ a0 y0 }* g+ {' b& t
代码中的i=1和i=i+1 & }8 Z: o( s/ z8 [/ L; T
if i>50 then exit do 1 G7 [: G6 a/ o; K- |% C
showbbs.movenext 7 B$ I6 S/ c5 G0 S- `- s
Loop
showbbs.Close
set showbbs=nothing

这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！ 8 Q6 ~3 }' f2 S5 H: h4 H) h8 ?
if i>50 then exit do中的50可以修改
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄 % T+ w1 R- L% a# x" H
还有一句很有用的： + M; Y6 R' @* X% y* l. X7 B
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a>
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了，
等一下在show.asp文件中就有用了 3 f$ w: R/ Y2 Y. p

5、show.asp 0 B) k, w: T3 l- ^4 X2 P
源代码： % ^; C& f! `/ y2 _% Z


<%id=request.querystring("id")%>
<%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"> ! G0 ^, z5 @4 m  o( W7 V& q6 n1 i* ?2 l
<tr>
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td> # o3 g2 O+ ]' W2 ^2 U
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td> - {$ E! N+ [! r3 Y9 e- ]& [
</tr> 2 z5 Y. b0 O- q, M# [# m' I
<tr> 3 ^9 X' Q, k2 R9 O0 K; G" r6 y: Y- Z: W
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td>
</tr>   h0 A  O3 F& d: q
</table><%set show=nothing%> 1 {: r9 d+ v4 N' \
/ }5 l4 O0 I6 K
劲语句---精华语句： : Q0 ]$ B! Q) O" J) S; e
id=request.querystring("id")
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句，
id=request.querystring("id")就是把地址栏中的id的值读取下来， 8 H" r) I/ v# f% f  l9 \. w
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字， ; P% ^" }$ e, ]/ J) |
所以show.asp使用id=request.querystring("id")语句把数字读取下来 ! h( S7 n% Q# i& o# n, I
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"") & r8 h4 Y- m; R$ g& c9 Z) y
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&" 3 J& G. c1 j+ f5 h; W% v, N
最后<%set show=nothing%>
# E2 E1 r9 K8 |4 }0 m, Z
好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

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

紫藤花

新手上路

Rank: 1

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

2楼

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

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

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

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