5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西
真NB..佩服ing .....
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。! ~8 I$ a: F/ B8 U3 x
  r# ^  z- G: q+ w) t6 |2 o5 E
同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。 $ y# v% L5 [3 {

一、建立文件！
最简单的论坛也要有几个必要的文件，就是：
( B% \4 N9 a- j  n# c
1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb # A& V7 I# K3 S" I: H, l9 |6 j

2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp

3、发表帖子的文件----命名为：say.asp & v& L$ l, @. u' k) I
) k+ C: L2 m8 a9 x4 L  _; }; b7 ]' c
4、保存发表帖子内容的文件-----命名为：save.asp

5、显示帖子标题的文件------命名为：index.asp ) f: Z( _) t# g8 d

6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp 5 V. f, K/ x7 a8 a& {* ?/ i8 |" S

建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp"
3 p% E( Z1 ]5 y6 ?
二、各文件的主要内容

1、bbs.mdb
6 g  }$ n% q" j9 Y1 f
打开这个数据库，建立一个表，命名为bbs
* F# c) P' |4 _
该表中有几个字段: # b" }' y9 u: P! u0 J
3 O" `: ~/ p! a! F" e! y& ^
id(自动给帖子编号)，他的数据类型设为“自动编号”
- [5 X8 A( ?5 @
name(用来储存发表的作者)，数据类型为“文本”

title(用来储存帖子的主题)，数据类型为“文本”
9 g: T* p3 k6 l# L6 C
body(用来储存帖子的内容)，数据类型为“备注”   x/ d. g9 N4 K

2、conn.asp
源代码为： , A# R6 s' X; w7 R; Q) K, h
<%
Server.scriptTimeout="10" 7 N  t- T6 R; m, u, W
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" # U* F3 @4 G7 a5 ~9 b5 ?0 Z
set conn=Server.CreateObject("ADODB.connection")
conn.open connstr
%> 1 o, _; J$ X9 B; B# f
' w& A: g, t6 t% f
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ # F! d& M7 ]3 Y/ R
+ {2 M$ r: i* F* s
3、say.asp , Y- U0 r2 n3 \3 Z

源代码为：
<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>
<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> ! p: d9 D! `3 ~# `
</form>
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！ 0 l- l: E5 u. H7 S6 m

4、save.asp

源代码： % w4 V0 S- h6 _+ a
 1 j  o1 M) b2 z4 a9 D, e1 n
<%name=Replace(Request.Form("name"),"'","''") ! O# o6 M1 ~+ f! G1 M4 r- z/ ~
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''") ) b2 N3 q2 z& _+ M" v1 i
%> / P! Z6 b; g& s9 {+ ?7 V" f
<%if name="" or title="" or body="" then%>
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！ ' k6 v7 x% w! a+ h; q5 P
<%else%> 4 z7 ~0 ^6 g. y4 n9 k
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a> & i0 j1 }6 z7 h, k
<%end if
set savebbs=nothing 9 e5 T, O, b$ s: e' K% [' |. W
%> 3 z& H% {- ?+ @+ i: {

第一句：，意思是插入conn.asp文件，即与数据库进行连接！
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用， 9 y* ~4 D4 C( B. |2 i# _+ X! d) W% \/ v
接下来几句：
name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''") : v- z& @/ _8 w
body=Replace(Request.Form("body"),"'","''")
# N4 R6 C5 J, s" e6 q8 k* {9 I
“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据，
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中， 4 a- C' J; E+ ^; e2 r
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")” * M% ]1 P4 _' v1 X& K
就是把表单中名为name的文本框发来的数据储存在abc123变量中

接着：if name="" or title="" or body="" then
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句： * Y0 {2 A# k9 K8 Y1 K0 o, p7 T5 t
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
该语句属于html语法，大家都看得懂的！
0 u( n  I9 B. ~/ p2 q: s& }/ ^1 K& a2 E, P
"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句：
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a>”
; G% m! L: [! d
"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了： 7 k9 u+ z* y# e5 d, N9 g0 d
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表） ' U+ Y+ f3 H* o
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')")
values是“值”的意思 . l/ _* R0 M9 m
就是插入向量name,title,body，向量用格式'"&name&"'表示

最后：end if就是结束if……then
set savebbs=nothing可以说是关闭掉：
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") 9 I) ]6 j6 g1 w7 F1 ?# g* z) e
, r3 e9 y: D4 |# {' k$ P

5、index.asp
源代码：
 ) I$ K0 O+ W( H( a6 f
<b><a href="say.asp">发表帖子</a></b><br><br> ( T: |0 F* I7 V
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26"> , Q0 l! m' ?! i' ?
<tr>
<td width="17%"><b>作者</b></td> # n0 ?8 R6 s% l$ g; I: Y* g
<td width="83%"><b>主题</b></td> 0 k/ x- [. ?2 j' C& Q( u* q- t2 c
</tr>
</table> 7 n; y% ?$ n) W! s3 Z2 N0 V  n
</center> 5 A& m  b+ g3 N  o8 U4 ^
</div><hr size="1"> & U& A! R  N: U% V
<%i=1 ) n) z# W. F0 C2 p
set showbbs=conn.execute("select*from bbs order by id desc")
do while not showbbs.eof
%>
<div align="center">
<center> 1 l8 |% ]& T- g1 ^. I# i
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20">
<tr> / k" ~8 v; A, @0 L
<td width="17%"><%=showbbs("name")%>　</td>
<td width="83%"> $ K9 n; ^1 F( {5 n
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> % g) K$ J) n" i% t" r+ A% b1 W: @: M
</tr>
</table> ( Y7 n7 i# c5 b: z% |
</center>
</div><hr size="1"> 3 w$ C) C3 C) U3 s! H! B
<%i=i+1 4 d5 X1 k+ q2 K% n; }) B) T
if i>50 then exit do " C9 p# ?2 [2 x1 \2 L' I
showbbs.movenext
Loop
showbbs.Close
set showbbs=nothing . ?" H7 ?8 T" j6 `' ]- y) R
%> & W6 p' c+ n: _8 a4 B1 W1 C- r

这个文件就不一句一句的讲了
主要讲精华部分： , k- z; E' @! @8 d6 N- W
set showbbs=conn.execute("select*from bbs order by id desc")
意思是：向数据库中的bbs数据表查询数据，并以id排顺序，
还有这么一句：<%=showbbs("name")%>
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs
代码中的i=1和i=i+1
if i>50 then exit do
showbbs.movenext
Loop , w5 b( S4 o' g5 C6 t: }& }6 K
showbbs.Close
set showbbs=nothing * j6 \; Y$ }9 x. z7 ]6 O, G( R1 W! ?
; |( m6 \% P- s3 v, U
这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！ ' E& H2 v" ^9 K" l) @3 L3 y* j! z
if i>50 then exit do中的50可以修改
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄
还有一句很有用的：
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a> * M& Y; _+ u6 X( L1 t2 K6 j; m
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了，
等一下在show.asp文件中就有用了   g/ W0 ]: @' f8 h; t

5、show.asp 4 a8 o9 F" S9 t; J9 a
源代码：
0 _: t" Q7 U2 K$ A/ A
 7 V0 @! t+ [* T6 m4 c
<%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"> . t% `- N9 q# Z$ B# z3 ^4 d
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180"> $ j: F. @+ r4 V2 J3 O2 {7 Y0 ~" F, p
<tr> 1 L# x: y) `$ x2 D. R
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td> * G; R8 G# g) S$ D
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td>
</tr> 4 y3 \! s8 v8 _8 {# o0 _3 @
<tr> 3 K. B1 @: y# J
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td>
</tr> 6 H0 Y" b  {0 F& v1 l) i
</table><%set show=nothing%> $ _9 z) m4 n0 M2 v) D2 n

劲语句---精华语句： 6 |3 y7 e, I' o- `5 V7 x8 @
id=request.querystring("id") - {+ s: W  j4 R% q1 a
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句， ( f/ E" E8 m/ Q: u8 A5 L: k. V: b' v- K
id=request.querystring("id")就是把地址栏中的id的值读取下来， 6 Y0 B1 B6 Z; A0 f, n+ F
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字，
所以show.asp使用id=request.querystring("id")语句把数字读取下来 & E* _: Z  @/ s) \1 |2 A
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"")
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"
最后<%set show=nothing%> # e- i9 g% r# u, S# A" C

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

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

紫藤花

新手上路

Rank: 1

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

2楼

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

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

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

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