5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西
真NB..佩服ing .....) j( o; R. U6 {5 ^: m
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。# Z5 `% W. |3 V. s  A" r' q
& l" n6 Q% `. }% p/ I' ]$ S3 q
同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。   H9 u7 G4 Y: y8 t

一、建立文件！ - j* Y% m6 F7 B3 z4 K
最简单的论坛也要有几个必要的文件，就是：
6 [* @4 G! t% L0 p4 ~4 |" ]
1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb 3 P1 S8 O4 P, q1 A: a# U9 v

2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp . P  j6 A$ h' B; l
3 N$ U! D. Z$ a) s- }9 k( Q& m
3、发表帖子的文件----命名为：say.asp
: C! a( ~6 A8 I+ R" W( o0 e& ]
4、保存发表帖子内容的文件-----命名为：save.asp * j1 }) E& F; I* D
1 Z* B" S. b/ U7 l$ i3 u
5、显示帖子标题的文件------命名为：index.asp
% C! c* M$ R, B
6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp 4 r- l$ n6 l, D1 X6 `

建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp"

二、各文件的主要内容
7 a: Q5 A# R2 \" ?& f
1、bbs.mdb

打开这个数据库，建立一个表，命名为bbs $ J2 a8 z+ ~  q' U+ e# S1 F' ?' K

该表中有几个字段:

id(自动给帖子编号)，他的数据类型设为“自动编号”
& i  {* H% A, _- L% V; x* v
name(用来储存发表的作者)，数据类型为“文本”
9 S" X% T2 W0 w1 A# ?2 a5 E8 A$ }
title(用来储存帖子的主题)，数据类型为“文本” 9 K2 w0 m0 `2 @# V- c: c

body(用来储存帖子的内容)，数据类型为“备注” , i; i4 x! S! V% E

2、conn.asp
源代码为： 5 v! d0 f9 @4 o
<%
Server.scriptTimeout="10"
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" ; p& X, k* D5 \0 l* q, Q( S' {% K
set conn=Server.CreateObject("ADODB.connection") 7 P( g0 _$ L! S; I! p
conn.open connstr 2 J: k8 o% R( G; k6 a# x5 v
%> 8 e% x4 W" [' J3 L, m
4 ^( h6 }7 X6 D1 Z( `) L
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！

3、say.asp
5 G! {4 C5 u) y4 H2 q
源代码为：
<form method="POST" action="save.asp">
<p>大名：<input type="text" name="name" size="20"></p> " o1 y2 v" u  c7 M( z
<p>标题：<input type="text" name="title" size="91"></p>
<p>内容：</p>
<p><textarea rows="11" name="body" cols="97"></textarea></p> ( l/ I# f' B" P( q+ c
<p>　</p>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form>
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！ * ^: S: V, v5 r1 ]7 }* n

4、save.asp

源代码：

<%name=Replace(Request.Form("name"),"'","''") # i$ O* d! h7 \7 L  r+ ~) Y
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''")
%> % ~$ e8 w/ C8 l' p, F$ F/ w
<%if name="" or title="" or body="" then%>   q! m; A7 l! Z3 k4 G2 u' K" R
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！ 2 [0 M4 G5 T! z  w% E4 s2 n
<%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
%> 5 P0 v7 b. Q0 W/ M
1 T! W8 P2 L0 Q; R1 z6 _
第一句：，意思是插入conn.asp文件，即与数据库进行连接！ % N% i3 p1 G0 j  W4 E# C( t5 O2 H
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用， ' G# ]6 F& ]7 E9 g& k( H" d
接下来几句： - s. a/ b2 ^* T# I* |: M, T
name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''") / i9 y. B7 l: Z8 k
body=Replace(Request.Form("body"),"'","''") 2 G  c! G' b, ^6 y$ k: L8 {

“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据， 7 V- G+ Z# T& P
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中，
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")” & W1 U5 g. w$ E. p8 j
就是把表单中名为name的文本框发来的数据储存在abc123变量中

接着：if name="" or title="" or body="" then : a" m+ t* B: c& X9 d
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句： $ j: A# a0 B( ]& x5 k) Y7 ^
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
该语句属于html语法，大家都看得懂的！

"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句：
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> / e& A; x  o) Q0 J. A$ u  x" x" V: v
发表成功！<a href="index.asp">查看帖子</a>”
5 G+ g8 M! {3 g' V
"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了： , S* E! l8 [* }! n: i6 h) L
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表） / u) \- b7 [' _* Z0 ~
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')") : U/ v, B! }9 E( @
values是“值”的意思
就是插入向量name,title,body，向量用格式'"&name&"'表示 5 t/ C4 j# A. a& N3 D
3 t, i5 F) Z9 d3 p  g+ _4 D5 ^/ D- S; a
最后：end if就是结束if……then ' n* G, M$ S0 P7 z! E( O0 n
set savebbs=nothing可以说是关闭掉：
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") 4 d; n; R# m8 k, d$ Y

: q0 j0 k! w/ [) u
5、index.asp ( x# i4 A8 r! Z
源代码：

<b><a href="say.asp">发表帖子</a></b><br><br>
<div align="center"> + y' ^/ v5 B5 i
<center> + U1 Q& r; w: O
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26"> & r* b6 t# z8 O' g6 v) r8 U
<tr>
<td width="17%"><b>作者</b></td> 4 j$ `4 Q5 O0 I3 H" z. ?
<td width="83%"><b>主题</b></td> 4 q2 i4 N: h- o
</tr> 2 O6 Z% ^: w1 l1 o8 C
</table>   J2 k% H' c+ K# R+ J
</center>
</div><hr size="1"> 5 u& _/ a6 P! r6 f
<%i=1 : m0 E! E0 Z0 a# \9 r9 ~* J
set showbbs=conn.execute("select*from bbs order by id desc")
do while not showbbs.eof
%> & s# i: e2 o# Q$ E& h
<div align="center"> 1 ?5 Q) ]4 C% F7 l/ a. f: c
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20"> 1 E0 `/ `) `; ~% n/ C" s
<tr>
<td width="17%"><%=showbbs("name")%>　</td> ) S" m7 ?6 Z9 v$ a( i
<td width="83%">
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> : t* ~0 P- j) [; w! W
</tr> , `3 C6 P8 j4 B4 n. D
</table>
</center>
</div><hr size="1">
<%i=i+1 0 c. q5 o; q; c5 U4 y- R( e
if i>50 then exit do
showbbs.movenext 7 Y( L( U6 b* \. Z( \; V
Loop
showbbs.Close
set showbbs=nothing
%> 0 x1 P4 q! b9 h) m

这个文件就不一句一句的讲了 0 b5 K( c3 O1 k
主要讲精华部分： ! V' r; o# L7 L3 O' {1 C
set showbbs=conn.execute("select*from bbs order by id desc") % a' v9 d1 g& x
意思是：向数据库中的bbs数据表查询数据，并以id排顺序，
还有这么一句：<%=showbbs("name")%>
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs
代码中的i=1和i=i+1
if i>50 then exit do 8 _( P1 b, [3 T9 M. d) N
showbbs.movenext 4 A. f7 r3 Z; a
Loop * @/ z( D+ U" s( |
showbbs.Close
set showbbs=nothing & g2 E+ R0 ]- l! b4 ~0 y

这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！ $ H0 r5 U) p+ {
if i>50 then exit do中的50可以修改
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄 7 |/ I8 a( R% h
还有一句很有用的：
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a>
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了， 7 B9 d$ k9 q) `8 m% Q# p7 h
等一下在show.asp文件中就有用了

5、show.asp * {/ b* T# |% W6 D2 Y" j% y1 m
源代码： # t5 d! @/ P3 z9 g, j; ]
/ J6 s3 u; L9 \2 C7 w" k9 l
 . Y& p" Y* ^* Q/ e9 I! r- j
<%id=request.querystring("id")%> ! r, y4 V7 d, j, z; P
<%set show=conn.execute("select*from bbs where id="&id&"")%> ' \0 S" [9 s; @, ]
<a href="index.asp"> , c' t& K. T3 A4 C/ p
<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"> $ j7 d0 E. P! k5 D- f- _$ h. s! p4 S
<tr> - `+ K$ K- s6 F( T( m/ w( R
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td>
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td>
</tr> / f. ^( A4 [+ k
<tr>
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td> ( j6 D0 A# l! [& s. F
</tr>
</table><%set show=nothing%> ! _0 s6 |" a2 u( O" R: i

劲语句---精华语句：
id=request.querystring("id") / n6 W0 o0 ]! R4 j
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句，
id=request.querystring("id")就是把地址栏中的id的值读取下来，
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字，
所以show.asp使用id=request.querystring("id")语句把数字读取下来
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"")
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"
最后<%set show=nothing%> $ P. c( F3 q5 p5 V) n
" N( K; I- U( z1 c2 k- B9 u4 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 分享给朋友]