5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西8 ?4 `/ C) D1 O+ }5 ]6 @4 f9 u2 J
真NB..佩服ing .....+ V. n& u: E8 f% K6 y- _, _$ R
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。& t- _  V5 _6 w& m8 O/ d! B
- ?) G6 j& v9 f  P
同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。 - A( Q0 u  g. x; [  x
4 q3 G" D' j( K  C
一、建立文件！ ( C; ?$ y  }( `1 v0 W" P
最简单的论坛也要有几个必要的文件，就是： ( d" x6 ^: I' p- l4 R+ Z3 |

1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb 9 p+ }/ k, x+ c3 I1 ?+ N

2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp
5 u- V; e( S! c3 x  B) u. y
3、发表帖子的文件----命名为：say.asp ' v- ]$ u) d' ]; @* b5 F
1 D. ^4 j, @# W) o, J4 ^, C3 Y7 o
4、保存发表帖子内容的文件-----命名为：save.asp 3 \  _5 o  P- x8 q
. b4 |2 a# }  r- v
5、显示帖子标题的文件------命名为：index.asp

6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp / W8 t8 Q2 M, N5 M
$ u0 n* X2 r- \% A, s5 e
建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp"
  y. ]: I- g& ?5 z
二、各文件的主要内容 ) w2 Y- C; s% m9 S* ~
! x7 {5 p/ x$ E# R! x
1、bbs.mdb ( `# P& x/ Z/ A+ `& p
. r" ^& W" j9 U- A( [! ~* J6 f2 D. G& k
打开这个数据库，建立一个表，命名为bbs
  F9 A$ s' u* O
该表中有几个字段:

id(自动给帖子编号)，他的数据类型设为“自动编号” 6 c3 Y0 B# u# @; _
9 t: B; J& [9 @% B6 f8 L6 A
name(用来储存发表的作者)，数据类型为“文本” ; S) a: l# G2 X; O+ i% O
! e0 x! r2 I7 L5 V+ W( B4 J
title(用来储存帖子的主题)，数据类型为“文本”
6 b9 K9 ?8 K- t1 l) O; u& d' |
body(用来储存帖子的内容)，数据类型为“备注” $ l" i' g, m/ ?/ j9 {5 g  M
0 r# `( i  y/ d8 ~) D
2、conn.asp ' Y, D; Z$ C  X6 `
源代码为：
<%
Server.scriptTimeout="10"
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection") . Z" n+ x' o( P
conn.open connstr
%> * x; n. q, E/ x1 V/ @8 Z; R/ x# H7 m
7 R0 D9 S( }) @; r/ ^3 a( P( x
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ ' l* \9 _9 Z. Q5 s$ @  u

3、say.asp 0 T# D* ~; d( @5 X) _
0 w% Q# m/ Y" h
源代码为： 0 m8 e1 H; N% [- \0 x0 J1 \: e
<form method="POST" action="save.asp"> / h0 l( `2 V0 t2 o
<p>大名：<input type="text" name="name" size="20"></p>
<p>标题：<input type="text" name="title" size="91"></p>
<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> . O2 r0 t7 b7 _
</form>
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！

4、save.asp 1 U4 D+ `( o' v
4 s" M# `* S: P% l, u. @
源代码：
 # [1 N6 b7 B; W
<%name=Replace(Request.Form("name"),"'","''")   R: r8 ?4 o  T6 I! x+ X  R
title=Replace(Request.Form("title"),"'","''") / s0 _$ g" L, a; b$ d6 B
body=Replace(Request.Form("body"),"'","''") " W: p) \! x, N/ {
%> $ A  e& `4 w2 S" @
<%if name="" or title="" or body="" then%>
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！ . |: J9 E+ z$ t1 G, ^* i( Z3 |3 I4 @, H
<%else%>
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a>
<%end if
set savebbs=nothing ! F4 w' r. l0 x3 @& k  j" e5 t" C4 B1 o  s
%>
, \! l8 h1 ?" j: w  G
第一句：，意思是插入conn.asp文件，即与数据库进行连接！
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用，
接下来几句：
name=Replace(Request.Form("name"),"'","''") $ @# y' `) |$ x) }* u5 o* O
title=Replace(Request.Form("title"),"'","''") / R" E4 x" H# [. F! I
body=Replace(Request.Form("body"),"'","''")

“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据，
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中， , c  s4 m( A+ J' Y0 y
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")”   M* e3 q- @  m9 \7 \% b+ \
就是把表单中名为name的文本框发来的数据储存在abc123变量中 + J  t/ ?; w# k$ p7 W
: l1 \; }7 O2 |; e: S
接着：if name="" or title="" or body="" then
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句： ' ^, ?9 e% o" N9 c" |5 X( R
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”   j; \1 q) E% U: W- ~
该语句属于html语法，大家都看得懂的！ 6 z5 P" d* v; f, v  S4 Q) ?

"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句：
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a>”
7 M3 t; V# z6 c8 \  k
"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了： ! `0 m. M' K6 V, @8 G
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表） ; t1 q" B$ i$ t! P2 c
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')")
values是“值”的意思
就是插入向量name,title,body，向量用格式'"&name&"'表示

最后：end if就是结束if……then
set savebbs=nothing可以说是关闭掉： 6 {, c0 N* ?# j& G( D
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") $ B# a5 j1 C2 p5 b+ ?# Z2 L* d
, r" R2 T) ~% k  p1 G9 p3 v0 z

5、index.asp
源代码：

<b><a href="say.asp">发表帖子</a></b><br><br> 7 T8 ~! D3 U3 ^
<div align="center"> ) ~" {  d$ \& X" q; k# F: T) _
<center> 5 n+ k( P/ u# b: {8 X
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26"> , B6 A- Q) B: X0 l# r, T
<tr> 1 v0 }8 r) B) E
<td width="17%"><b>作者</b></td>
<td width="83%"><b>主题</b></td>
</tr> % h1 c; O5 [2 p; Q! ?- a' I
</table> 5 b1 r% ^" B6 t9 x* O9 Q- r
</center>
</div><hr size="1">
<%i=1
set showbbs=conn.execute("select*from bbs order by id desc") % R8 G, P  q: P; E' a" }' X
do while not showbbs.eof & n3 q% l3 C& z6 w, ?: q2 X0 m! a1 O
%> 0 E5 X2 A+ t) Z1 v- ?' ~/ ~
<div align="center"> # s) m6 T2 k) ^& Z! G; q
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20"> , b& }7 _+ B+ O1 C! W. b5 s
<tr> 5 r4 i: S. z* f1 D9 C
<td width="17%"><%=showbbs("name")%>　</td> 7 C2 v* A; m4 \* a: U2 p) t2 {$ a/ b
<td width="83%">
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> * G/ C" V( E$ u* @7 h! T
</tr> : i+ q7 g5 Q+ c
</table> 9 E* H  \. D7 Y- A
</center>
</div><hr size="1"> $ l5 h- `# r9 `/ \$ }* ?8 e
<%i=i+1 ) F; g0 g* ~: C) S  k% M
if i>50 then exit do ; r% i7 Y: z( S
showbbs.movenext
Loop 9 {: q" m( p+ Z, y/ Z
showbbs.Close
set showbbs=nothing
%>

这个文件就不一句一句的讲了 2 A! {4 G. Y2 @. v, N+ O! f
主要讲精华部分：
set showbbs=conn.execute("select*from bbs order by id desc")
意思是：向数据库中的bbs数据表查询数据，并以id排顺序，
还有这么一句：<%=showbbs("name")%> , V! ~  S) G9 b3 h6 K7 ?
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs
代码中的i=1和i=i+1
if i>50 then exit do
showbbs.movenext
Loop 3 f6 P; d+ K2 V) u0 ?7 u5 a' ?
showbbs.Close
set showbbs=nothing

这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！ : r. x+ a7 R* t3 M
if i>50 then exit do中的50可以修改 / @3 @) M7 w1 y+ ]" j
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄 . K9 M% B! Y) p, W
还有一句很有用的： 3 m. Z, H) B0 N; A. A5 l
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a>
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了，
等一下在show.asp文件中就有用了
6 P4 U5 R  z2 ~. b
5、show.asp * F# u  J& y/ L: i7 ]  }1 q
源代码：

 6 e! Y* m8 ]: a
<%id=request.querystring("id")%> - T$ p3 ^: t. G8 B. |! r
<%set show=conn.execute("select*from bbs where id="&id&"")%> : ]: y1 g- m( f6 e
<a href="index.asp"> 6 v0 y. v  ~( C  x6 p6 K' c+ Z" o
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1">   {5 t# W2 c  `4 l" s; d. n" O
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180"> ; v: ~9 v; a' P, q* ]( h. v
<tr> 0 ^  y" ^' `4 e# J8 w7 I5 Y7 u
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td>   E# R: `* R1 r
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td> ( H) i6 M7 V, I" S) L0 W6 w
</tr> + k# R9 R) _* a3 Y
<tr>
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td>
</tr>   C, q$ ^: N$ Q/ N* _, ~$ B9 Y
</table><%set show=nothing%>

劲语句---精华语句：
id=request.querystring("id")
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句， . k* D: Y  V+ f' r! x
id=request.querystring("id")就是把地址栏中的id的值读取下来， & r; j! e" |+ D7 I
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字， ! O. d" Q4 T7 E: f
所以show.asp使用id=request.querystring("id")语句把数字读取下来
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"")
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&" " ?; o3 |8 }8 W8 \) _
最后<%set show=nothing%> 5 g# R1 l$ E1 d

好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

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

紫藤花

新手上路

Rank: 1

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

2楼

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

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

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

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