5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西5 {9 O5 E' p" a1 f3 g( V& }
真NB..佩服ing .....  V* H. z  V9 e+ w. P- M+ u6 c
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。2 X) l' p4 a4 O  w; r

同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。
1 y$ \5 U! U9 h. g6 S$ X; `
一、建立文件！
最简单的论坛也要有几个必要的文件，就是：

1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb

2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp   l: \8 t. B, T5 v. V9 K/ B
  K1 c% ~' }, a0 i
3、发表帖子的文件----命名为：say.asp / u' C! H, ^$ l! X' B9 K1 j/ Q% F
) z. j  \& t8 l, [$ X0 W" w8 W% d' e
4、保存发表帖子内容的文件-----命名为：save.asp

5、显示帖子标题的文件------命名为：index.asp 0 p% B1 }7 {% O

6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp 8 g& u6 N+ }+ F$ _: K; Y
; `! b0 m! [6 _2 Y% r
建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp" 9 Z$ Y# E$ }- `+ @

二、各文件的主要内容

1、bbs.mdb ' m4 e+ ]! X; o9 c

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

该表中有几个字段:
# @* _) n( A5 M8 m( n7 ?
id(自动给帖子编号)，他的数据类型设为“自动编号”

name(用来储存发表的作者)，数据类型为“文本”
5 `* i" K7 R, H- v
title(用来储存帖子的主题)，数据类型为“文本” ( m) g& u* s+ C) l4 M$ K

body(用来储存帖子的内容)，数据类型为“备注” / T2 p/ V5 N# ]0 t9 H) Q$ G9 n

2、conn.asp
源代码为： 9 }0 V' l  e- p5 W
<% * c& F, f& |1 U+ e' x
Server.scriptTimeout="10"
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" : i. A/ Q2 V  A% O2 D) g% |
set conn=Server.CreateObject("ADODB.connection") 3 d" {/ T: w9 k# i2 G
conn.open connstr ; b% w- I* |8 I: _1 s5 P6 O4 W. J
%>   N( p- n; a8 ^1 j6 \

这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ ! t; k' V' r( m: U
5 f( W* w/ }, g4 L
3、say.asp ! N0 N" U0 O) I3 n" C- H0 f
8 J2 _: ?0 p5 N* y
源代码为：
<form method="POST" action="save.asp"> / a4 ~5 Y9 Y1 [
<p>大名：<input type="text" name="name" size="20"></p>
<p>标题：<input type="text" name="title" size="91"></p>
<p>内容：</p> 5 H% ?0 F( M5 Z. j8 u' Z% C
<p><textarea rows="11" name="body" cols="97"></textarea></p> ! C2 N! J# F3 n' k2 a7 c
<p>　</p>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p> & E8 y& l) \  p$ I6 [2 a7 n2 h
</form> % G% a7 L3 h1 d# r* m
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！
; u$ E% R3 j2 J$ {* W9 l
4、save.asp

源代码：   g. M" A: ]% P
 3 i. S) F5 C2 z2 A1 p$ L
<%name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''") . g4 ~5 Y  A( }& j4 Q3 K% c# G
body=Replace(Request.Form("body"),"'","''") 7 v- W9 T7 x7 g; b$ Q
%>
<%if name="" or title="" or body="" then%> ( J+ w1 v. _9 e" i  \( e- L3 D( T! Z
请<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 0 w$ E5 {8 _3 G) X' j
set savebbs=nothing : [1 V4 |) Q3 N3 ^; G& Y9 [
%>
+ @( J; Z& N, K; p& e- q
第一句：，意思是插入conn.asp文件，即与数据库进行连接！
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用， & B' |0 b1 ^% K
接下来几句：
name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''")

“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据，   n* b: k' @5 B* E4 y  Z' }% D6 H/ i
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中，
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")”
就是把表单中名为name的文本框发来的数据储存在abc123变量中 ) _) u' e+ }0 d  z/ j! W3 S2 j
" p0 h9 A5 {0 |
接着：if name="" or title="" or body="" then
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句：
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！” + ]3 f# v4 c5 I* k0 s, O  d8 z5 f
该语句属于html语法，大家都看得懂的！
. i1 D9 ]( V' m, H& l( b' E( v
"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句：
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> 9 w- F+ b: E( ]0 n* ]7 N
发表成功！<a href="index.asp">查看帖子</a>”
- F* {+ z: O9 m7 n  O
"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了： 7 `+ u5 l7 M  i( `1 s1 C
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表）
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')") 1 X; f/ f) W+ |
values是“值”的意思 0 D- @' L5 F1 H+ K0 Q8 i6 Q
就是插入向量name,title,body，向量用格式'"&name&"'表示 7 N/ \1 O# M4 y( e$ F

最后：end if就是结束if……then ; H8 t1 `  B4 T( x, n
set savebbs=nothing可以说是关闭掉：
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") * X* m0 W$ O% S% \
& X; @; m$ n( o, Q% C+ `/ A$ u

5、index.asp
源代码： ; I, F: A! w- t( U

<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">   v) f8 y, q' }
<tr> 2 r+ S8 [( s; S* [4 M7 ?
<td width="17%"><b>作者</b></td>
<td width="83%"><b>主题</b></td> 7 H! X/ _% `* o) H% {
</tr> 3 u  o5 p* Z4 x$ w4 c* t: M, X
</table> $ ^6 o7 R1 ]3 {* T( l! h2 s" ^
</center> ( C& b5 A6 g3 n; _3 T# ?2 D9 I* s
</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">
<center> / Y$ r. j3 e* D! H9 Z! }3 s) I' W
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20">
<tr>
<td width="17%"><%=showbbs("name")%>　</td>
<td width="83%"> ; h1 D  [7 S0 v
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> " }4 @3 H+ x7 A* Q# e" U# D
</tr>
</table>
</center> ) M# I. e* }: C5 S/ v+ s/ A
</div><hr size="1"> ! e! o+ A# s  |
<%i=i+1 3 s3 v! N0 D# w5 D& Z4 c! `2 z: p
if i>50 then exit do 9 L- H3 Y( s9 q0 v5 P
showbbs.movenext
Loop 4 v, E3 R8 N$ f9 _  H9 I8 r
showbbs.Close ' g9 d: W* u" z1 p( m$ {4 F$ \
set showbbs=nothing / v6 H5 I& E8 h9 j
%> 6 ?4 c* [! _* O8 A

这个文件就不一句一句的讲了
主要讲精华部分：
set showbbs=conn.execute("select*from bbs order by id desc") ; D4 z) y1 x( L; F* c- J
意思是：向数据库中的bbs数据表查询数据，并以id排顺序， 7 ~, c7 p7 [0 c- K) @
还有这么一句：<%=showbbs("name")%> 2 |- n  `2 A0 @) K
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs
代码中的i=1和i=i+1 0 T9 ~  I/ }$ O+ j
if i>50 then exit do
showbbs.movenext : o! J" k5 q9 c0 I
Loop
showbbs.Close ) [$ r) t2 n' _8 f. w2 ]  Z
set showbbs=nothing 0 h+ T1 T: A+ J% y8 U$ {
" u1 u9 r6 }  d; @! T
这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！ - M2 f3 N+ }' q$ v0 q# j
if i>50 then exit do中的50可以修改 $ x7 j# E: |' r# f5 j! _
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄 2 n5 g: [. L& E
还有一句很有用的：
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a> ; g2 i4 ?, K. U0 o
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了，
等一下在show.asp文件中就有用了 3 K# x' R, @% l3 _8 T& p2 F

5、show.asp
源代码：
( w9 b9 c/ r) g8 c: k# `; J" W
 # L$ D. H1 I. ]
<%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"> 5 w7 m, v0 |8 k
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180"> 3 C9 L# b- A) f. a
<tr>
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td>
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td> ) d( _# Q$ e6 t2 i+ ^
</tr>
<tr> , {7 q3 x- p% j% B, M7 z
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td> 8 m% ?" P, t& x4 H" k
</tr> 3 }2 M5 L+ f, R. _
</table><%set show=nothing%>
9 H& J2 E8 E1 K7 ]3 [) V! o
劲语句---精华语句： ' n3 c, e% y% c& b
id=request.querystring("id") 6 I' V) y/ V0 T( d5 y4 S7 f+ C
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句， 7 C& \+ w; [+ |& F7 t, u- R8 m
id=request.querystring("id")就是把地址栏中的id的值读取下来， ) W/ I% ^+ \" w& O" L8 P
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字， - W5 t& u( `- v' u! F; Q
所以show.asp使用id=request.querystring("id")语句把数字读取下来 $ ~9 l: m* ]/ i/ e
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"")
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&" 0 u$ U8 t4 B. q- u: F
最后<%set show=nothing%> 1 N0 L: P1 |; Z( ?! Z$ O
* |( q+ W5 N9 t  A) q6 k
好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

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

紫藤花

新手上路

Rank: 1

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

2楼

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

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

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

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