5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西
真NB..佩服ing .....0 j( v8 y* d: Z: K0 s% ~) u
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。
% S1 U- w8 X9 v2 x+ c
同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。
4 Q# z, y  x4 p& j' O( r5 b; l2 d
一、建立文件！
最简单的论坛也要有几个必要的文件，就是：

1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb
; o3 c( s2 _) J& O' \1 _
2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp - d8 T( D; T9 y. d, I% N1 B% w

3、发表帖子的文件----命名为：say.asp $ u) x# H2 ~! O" l1 g

4、保存发表帖子内容的文件-----命名为：save.asp 7 }$ Z& ~4 \, P& T: y

5、显示帖子标题的文件------命名为：index.asp $ C4 V* S  w; r

6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp ! V* O! }6 F- B, }8 k
( n/ Y, ?; p$ w1 x! }/ O% F' O. x# K
建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp"
( k# p& r8 m2 S7 }) q2 b
二、各文件的主要内容

1、bbs.mdb & r! c; \, R* j6 h) T5 P

打开这个数据库，建立一个表，命名为bbs * ^2 X* L" {$ R6 c+ v& R9 D
9 \/ x& ]. \8 V6 Z9 ^9 E
该表中有几个字段:

id(自动给帖子编号)，他的数据类型设为“自动编号”
0 _7 t) @, r1 \" H1 h; W
name(用来储存发表的作者)，数据类型为“文本” ; e9 I9 B. G4 O
- W' v) X8 R/ x* Y
title(用来储存帖子的主题)，数据类型为“文本”
% t& o% k; U, M- K/ |% q: Y
body(用来储存帖子的内容)，数据类型为“备注”
5 u' Y" [1 _0 t
2、conn.asp / ^0 _9 @, \" N1 ?9 o0 t5 ]
源代码为：   [4 ?' A1 o8 f# J, d" k
<% ' F3 U$ |* F, H( J
Server.scriptTimeout="10"
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection") . I% I  m9 w2 v( @+ u0 V
conn.open connstr $ x, [. L6 N% m% H3 |
%>
2 z& B' g, `+ x% A
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！

3、say.asp
; P& ?) ]/ H  [
源代码为：
<form method="POST" action="save.asp"> 0 ^* a2 `8 _4 E) T) A1 p4 D
<p>大名：<input type="text" name="name" size="20"></p> 0 m/ i3 U/ v/ H, b4 F) I, ]
<p>标题：<input type="text" name="title" size="91"></p> ( o& Y& y  S' y
<p>内容：</p>
<p><textarea rows="11" name="body" cols="97"></textarea></p>
<p>　</p>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form> $ S' e5 p9 m; Y! R1 @
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面 $ z) s* Z( e0 W! j
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！ ) J3 J. I* O- ~6 B+ U1 e" C/ T4 u

4、save.asp

源代码：
 6 x$ E; |  a; G% Q% P2 w" j" H
<%name=Replace(Request.Form("name"),"'","''") . ?) x0 d, A2 N- b) ^' q& a5 R& k
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''") 1 @! F- R. V' g
%> 0 ~* Q( Y! Q$ M% r
<%if name="" or title="" or body="" then%> 8 r+ Z% `; Z9 r) K
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！
<%else%>
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a>
<%end if 8 F' I1 e  F8 y0 y
set savebbs=nothing
%>
3 h3 B6 V7 ?- M" Y& h
第一句：，意思是插入conn.asp文件，即与数据库进行连接！
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用， & }! n, q8 j  d3 F
接下来几句：
name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''") / V4 j% Q  w4 L1 c. c2 K
body=Replace(Request.Form("body"),"'","''") ( a# v: U! C' }: u6 x

“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据，
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中， 1 F5 j" ^/ g2 ?0 j6 c9 h
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")” 0 M. A; b, y/ i3 P) K
就是把表单中名为name的文本框发来的数据储存在abc123变量中
$ L9 s$ {6 T$ n
接着：if name="" or title="" or body="" then 7 \* a% j& M3 A; g; d
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句： 4 M! s, s# G% @4 o/ ]* Q! D
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！” ( ^" z  k- `- E0 P
该语句属于html语法，大家都看得懂的！
6 m8 W: ?& M6 X3 _
"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句： ! l/ |5 @( [) H& O( i
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a>” - U# v3 F* C. @8 u1 l" R4 i+ m5 d, H
- m2 X. B" O5 C/ y5 b$ t! K; P
"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了：
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表） 9 {( k+ q% a& _2 n4 i: ^' u9 X) p
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')") ' Y& H7 y  c. j: b9 D4 _
values是“值”的意思   R; q' u4 Q$ Y2 ^; m; Y4 `
就是插入向量name,title,body，向量用格式'"&name&"'表示 ; W0 p1 a) K% Z  f
1 b/ W: s) z* Z$ t
最后：end if就是结束if……then
set savebbs=nothing可以说是关闭掉：
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") 4 R" h* n$ m; x, {6 ~; ?9 i

5、index.asp 2 A. }6 h, u; K
源代码： / M4 B& g6 h7 l6 Z0 Y3 f* ?+ A

<b><a href="say.asp">发表帖子</a></b><br><br> % x" o4 }- ^( C0 n- W3 P
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26">
<tr> 7 i: P& ^* }0 M$ r. j
<td width="17%"><b>作者</b></td> : N, n/ i3 F6 x" M
<td width="83%"><b>主题</b></td> ; u$ }0 `/ n( X) B
</tr> ! X( w" {9 M' R, }8 c
</table> ! }! E, Y( i& ~+ D4 e, L, l
</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"> 7 l4 M& L3 @8 Q: {% }
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20"> . r; [' i7 y( G) @3 A
<tr>
<td width="17%"><%=showbbs("name")%>　</td> & e. C2 a4 p* v5 u/ {0 k8 W! C
<td width="83%">
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td>
</tr>
</table> 6 \" G6 v' J: U4 y/ }1 b/ c
</center> $ J  i* M4 |# x6 g' C# {" l$ p
</div><hr size="1">
<%i=i+1 + |5 C! i; ?  g- w5 L3 B6 c, Z
if i>50 then exit do
showbbs.movenext
Loop " D  c  P1 U) F  ]8 p( [
showbbs.Close + A/ v3 A2 e/ j5 h( d* J
set showbbs=nothing
%>
% [/ t) u9 r5 ^
这个文件就不一句一句的讲了
主要讲精华部分： ) d1 q' D2 s: @& h9 n# T2 V: A
set showbbs=conn.execute("select*from bbs order by id desc") / u' B" U0 j9 B
意思是：向数据库中的bbs数据表查询数据，并以id排顺序， % Z* l- m( |+ U5 x2 ^& T1 j
还有这么一句：<%=showbbs("name")%> " J( S  x  P# s2 s
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs 5 _1 r: {3 [$ A+ t7 l& ~! f; g
代码中的i=1和i=i+1 ! m2 a- \5 x% g3 X$ P
if i>50 then exit do 0 H( u; k) n, y; @7 p/ c% m; O
showbbs.movenext 1 r9 |% `8 B: }* n
Loop
showbbs.Close ' b+ f5 E, k: `; a
set showbbs=nothing : Y' n( @. o& J8 o0 E8 d9 T
% V0 D8 n7 G# V1 z. [2 D, b
这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！
if i>50 then exit do中的50可以修改 / d; G4 n, t* M  S
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄
还有一句很有用的：
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a>
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了，
等一下在show.asp文件中就有用了 * ^9 K+ ], ^  h$ d* j
5 N$ v+ e$ A+ S3 Y6 b( {
5、show.asp / e7 ^4 B! }: R& Y
源代码：
5 n( z1 s, O- }2 a5 W+ u

<%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">   B0 r! D0 m. `1 h3 D: q
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180">
<tr>
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td>
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td>
</tr> 8 W+ Y% T0 \5 @9 q# V9 Z- l: _9 G
<tr> 3 ]2 j7 i7 r0 x" B/ J, j2 y
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td> ! u) c4 D; w: `5 |% }+ C
</tr> : I* p, ?% @- ?- x7 D0 l/ \
</table><%set show=nothing%> # A2 U* a6 J" C1 b
, M$ j% e, P6 l4 H
劲语句---精华语句： 7 b/ G0 H3 f6 E# h
id=request.querystring("id")
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句，
id=request.querystring("id")就是把地址栏中的id的值读取下来，
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字，   C5 a5 m- n8 R8 X" W- g8 V
所以show.asp使用id=request.querystring("id")语句把数字读取下来
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"") * A+ t% H) h) @, `  x3 R6 x
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&" 5 ^6 y  l, D# u0 D  a
最后<%set show=nothing%> , B6 N& e) e) d* X
, {$ [# U4 Y# j! o8 o% c/ d2 x4 s& ~* e
好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

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

紫藤花

新手上路

Rank: 1

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

2楼

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

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

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

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