5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西
真NB..佩服ing .....
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。
9 i) i/ Y! d8 z7 ]% f" y- q7 @- l
同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。 + L# c; b1 l3 r' J; a: q; t+ J' S
5 t) A' Z5 a, t8 C* p0 H
一、建立文件！
最简单的论坛也要有几个必要的文件，就是：

1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb
% t$ s+ k# I7 U' {+ X7 o
2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp ) U: m6 M; E7 P6 B6 `

3、发表帖子的文件----命名为：say.asp 3 K7 k/ Q3 p+ O. D' s0 l2 T1 P
* q$ [. z2 Z  C. ^$ y* j
4、保存发表帖子内容的文件-----命名为：save.asp
% B# ]5 v" _. }
5、显示帖子标题的文件------命名为：index.asp
5 w' n) F9 z6 [
6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp

建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp" 5 x1 T+ Z2 m: g+ f

二、各文件的主要内容 8 w. {+ ?. F. X% F8 _/ ]+ }5 Y

1、bbs.mdb

打开这个数据库，建立一个表，命名为bbs
/ A0 `% r2 v" R, V+ g7 _
该表中有几个字段: ' Z: e$ [+ q) W  y1 m: w+ M
( r% W$ m/ D  A) h* A8 Q; j
id(自动给帖子编号)，他的数据类型设为“自动编号”

name(用来储存发表的作者)，数据类型为“文本” , n- Q% v$ e1 o
. F" w; V) @8 k7 Q% v" f
title(用来储存帖子的主题)，数据类型为“文本”
: B# @  o$ G/ E2 O! O9 T- _( h
body(用来储存帖子的内容)，数据类型为“备注” 2 Y, r' A2 r2 A; A

2、conn.asp
源代码为：
<%
Server.scriptTimeout="10"
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection") ; V+ C0 n2 R; x6 a* X
conn.open connstr
%>
& b2 K+ O  u0 @) O0 v
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ % H, ?2 w" c" ?3 ~& V
1 v4 Y3 e: H/ ~9 }0 M/ R
3、say.asp ' q. s/ M- m5 l$ y( z7 J5 A& h' e4 J

源代码为：
<form method="POST" action="save.asp">
<p>大名：<input type="text" name="name" size="20"></p>
<p>标题：<input type="text" name="title" size="91"></p>
<p>内容：</p> . z# \# f8 N% ]1 N3 G
<p><textarea rows="11" name="body" cols="97"></textarea></p> / c4 X; Q) d1 H# b0 Q; w4 k
<p>　</p> 8 L# i; S7 A5 ]8 P) |- B
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p> 9 u" P& g/ {* D( h, `+ x/ a
</form>
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！ , f5 p+ ^1 v1 c( b4 }6 f$ J
6 C. N4 F4 L; Y7 }) w& N! Q+ Y
4、save.asp
7 Y2 o+ Z7 r8 U+ Y) M
源代码：
 . Y: Y9 _( M1 ~$ l0 O5 U1 ^
<%name=Replace(Request.Form("name"),"'","''") 4 {. m: a; q; q5 O
title=Replace(Request.Form("title"),"'","''") # Q# H) ^# h. k1 T7 b& I" |
body=Replace(Request.Form("body"),"'","''")
%> * L' R/ ^- W+ `5 v* r
<%if name="" or title="" or body="" then%> 2 Z6 M( l" O! ?" z7 `
请<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
set savebbs=nothing
%>
1 B( P6 X; u# n7 y* ?
第一句：，意思是插入conn.asp文件，即与数据库进行连接！ 4 T, ]" Z" s0 i& J
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用， ) i& Q6 T4 T, ^! f* F- i" f0 T
接下来几句：
name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''") 1 ^4 K+ {; m6 W

“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据，
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中，
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")” / P5 \+ v6 ^* R% B* h6 u3 e& q) h+ [
就是把表单中名为name的文本框发来的数据储存在abc123变量中
7 i# I% o* M" O$ z/ u* |
接着：if name="" or title="" or body="" then
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句：
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
该语句属于html语法，大家都看得懂的！   ]/ U/ @7 O7 g1 Z9 N

"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句： % W7 ?1 u7 Y0 P5 _% x
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> ) R$ i! I* ], f7 D; p* @- F
发表成功！<a href="index.asp">查看帖子</a>”
# Q8 m: L% u% P1 W8 X1 _7 F6 {1 d
"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了：
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表） % d: c6 s6 f2 G5 U0 s
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')") ! n0 E2 \% a$ D* |: O" O1 `
values是“值”的意思 8 p8 c7 S" @! s; u
就是插入向量name,title,body，向量用格式'"&name&"'表示

最后：end if就是结束if……then 0 N) N; Y9 G7 y7 j0 f1 T9 U( r# B" ]
set savebbs=nothing可以说是关闭掉：
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") " O8 F# v+ A5 _; X. }2 Z

5、index.asp
源代码： ) v) g4 |8 u/ ?: d* ^

<b><a href="say.asp">发表帖子</a></b><br><br>
<div align="center">
<center> 5 c% e5 ~( n0 K4 c! }: ]
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26"> 3 z6 [2 G7 w! U( B! G1 `, }! R
<tr> 5 J( L" c/ K, _7 ?9 v; [; f' e
<td width="17%"><b>作者</b></td> * S. S( Y  B- D
<td width="83%"><b>主题</b></td>
</tr>
</table>
</center> & C# @& c2 Z0 @
</div><hr size="1">   |, k! Z8 R+ N$ d4 E* I
<%i=1 : P0 W; S( K6 l7 |4 e! [$ c
set showbbs=conn.execute("select*from bbs order by id desc") + v, N1 f- y3 O/ `$ r
do while not showbbs.eof
%> & u8 H3 [6 T. A
<div align="center"> 6 y: x2 [) v5 z$ i! K/ R; M
<center> 4 j5 a& L6 c+ P; E
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20"> , [" y( B  c- H
<tr>
<td width="17%"><%=showbbs("name")%>　</td> . T/ q0 J& F* Q7 n6 A
<td width="83%"> " f  y: k- c/ g" N5 k
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td>
</tr>
</table> & Z2 h5 z9 x# F1 c& r7 k
</center> . d4 q/ `" i: f$ N3 |
</div><hr size="1">
<%i=i+1
if i>50 then exit do 8 I1 S& s1 M7 z* C
showbbs.movenext
Loop 4 o0 m6 \# Z$ h
showbbs.Close 9 [4 M/ w4 a; R6 ~1 `" V: V) U5 D
set showbbs=nothing
%> ' n' ~' U& S  Y$ O4 P

这个文件就不一句一句的讲了
主要讲精华部分：
set showbbs=conn.execute("select*from bbs order by id desc")   K7 _  x! V7 `* z
意思是：向数据库中的bbs数据表查询数据，并以id排顺序， 9 m) g) A( g1 }$ c9 Z7 D
还有这么一句：<%=showbbs("name")%> + ]: L. D# k2 l% W, z
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs
代码中的i=1和i=i+1 2 M. l9 G: s4 t" m7 ^
if i>50 then exit do 4 @% M; W3 N4 L8 _  E
showbbs.movenext 4 o0 h- {7 ~5 n& O5 D1 U
Loop 9 s9 \5 c& X4 m  a# i
showbbs.Close : o6 [3 U1 Z9 b. ?
set showbbs=nothing

这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！ 4 l: a0 G" H$ m2 P1 H, ]! Y- {
if i>50 then exit do中的50可以修改 3 a9 w; M, ~) w/ M! I9 {* s0 R: k
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄
还有一句很有用的：
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a> 2 D/ N4 M/ x: q% \) N' {
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了，
等一下在show.asp文件中就有用了 $ c4 z- s; \  V4 K0 `* ]' d' o
, `" S- S) s5 n' \. n4 ?
5、show.asp " w" \( V! p; b' J% W% Y+ U1 U  p# k
源代码： $ v" }1 V7 x5 m/ u( g5 Z

 ' z+ O3 C4 I0 k$ a2 h7 H5 Y
<%id=request.querystring("id")%>
<%set show=conn.execute("select*from bbs where id="&id&"")%>
<a href="index.asp"> , q2 x0 `$ |$ I+ X+ L! V
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1"> 1 T8 Q+ Q7 b( J2 t
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180"> 4 m( I' r: ]3 e
<tr>
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td>
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td>
</tr>
<tr>
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td> # b4 L2 \8 V! m& P
</tr>
</table><%set show=nothing%> 5 z/ z5 M  e9 P% X7 d( ]

劲语句---精华语句：
id=request.querystring("id") - u* f* K" m4 k6 A
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句， $ l( R9 E* O( o, l& X3 c2 V/ p
id=request.querystring("id")就是把地址栏中的id的值读取下来， 8 a  j3 x) n6 ]3 S. b+ F5 u% g; z- y
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字，
所以show.asp使用id=request.querystring("id")语句把数字读取下来 1 G1 l/ j/ \+ Z1 v- X
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"")
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"
最后<%set show=nothing%> 9 D$ `4 {  z" Y  `! m3 g& u& e, S

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

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

紫藤花

新手上路

Rank: 1

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

2楼

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

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

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

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