5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西
真NB..佩服ing .....
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。( r' J3 {; v0 z) Z, B& o
5 R7 d  o5 F' T! t. I, j+ ~' }
同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。

一、建立文件！
最简单的论坛也要有几个必要的文件，就是：

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

2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp 7 Y. w; K) b, }2 Y6 s3 r2 F

3、发表帖子的文件----命名为：say.asp + {3 Z, r1 D( a. Y7 P! _

4、保存发表帖子内容的文件-----命名为：save.asp
' Z6 E; H9 ?3 t, [3 l
5、显示帖子标题的文件------命名为：index.asp 9 J. R* A# \3 ~1 T9 F  m
( m2 m" \% P# l# }" G) L
6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp 6 K: x# `! ?0 B8 e7 L2 T7 j/ e. X6 w: L

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

二、各文件的主要内容

1、bbs.mdb 5 x2 E1 i7 X( C( `  P

打开这个数据库，建立一个表，命名为bbs : W4 \; }: N' Y+ `1 D; [1 H, z

该表中有几个字段: 9 l. n/ r" ]0 W; V; [) M/ c6 u

id(自动给帖子编号)，他的数据类型设为“自动编号” ! R2 I$ D3 e8 N5 V  B2 }2 L

name(用来储存发表的作者)，数据类型为“文本” 6 L* z# W! _; S. m

title(用来储存帖子的主题)，数据类型为“文本” 2 E$ v+ @& j) u2 L5 a
( E0 v; E% h: S$ R
body(用来储存帖子的内容)，数据类型为“备注” + e+ h/ e! q5 r2 C  M6 u- b

2、conn.asp / q% W7 y! x. `% ?* E$ m
源代码为： 3 U- `$ q5 X( o# L! m
<%
Server.scriptTimeout="10" . |( W# E. i& d% k0 I4 e
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection") 6 E+ F* s' t. q+ I7 P; [( h+ ~
conn.open connstr
%>
9 z3 K- u* v, w; a
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ ( \9 G5 R7 U2 O+ g' u; Y
  _, K4 W" W5 d& W9 n& G
3、say.asp - W5 @# \5 \. Y8 ?; z

源代码为： ' d* F! ?% \' g$ k4 A& T
<form method="POST" action="save.asp"> - p4 m0 j4 n- [. w% V7 N2 V
<p>大名：<input type="text" name="name" size="20"></p> 8 h) ?7 b) }2 v$ o( Y1 m
<p>标题：<input type="text" name="title" size="91"></p> ' p$ g+ }/ @' m  X$ b4 L8 i
<p>内容：</p> - p+ n; w9 V' l) b' _+ b5 P
<p><textarea rows="11" name="body" cols="97"></textarea></p>
<p>　</p> ' B4 t2 U9 w2 J2 Y: ~
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p> ' Y/ Q0 e8 L: X; p; H) I2 V( M
</form>
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！ 7 N& o5 ]% m+ d- ?$ m
' n" b+ p5 j- ^- [) Y4 E$ E
4、save.asp

源代码：

<%name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''") ' z4 j  L7 \) a( P8 f3 J, p5 n6 P
body=Replace(Request.Form("body"),"'","''")
%>
<%if name="" or title="" or body="" then%> - R" ~+ h( f! E9 k7 _
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！
<%else%> 6 q4 w0 J1 Q9 @  F$ L; t/ f
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a> ! b6 U* e9 W9 ]. h& h
<%end if
set savebbs=nothing
%> 6 z: ]# i) K) a
% j, r4 h- l( S
第一句：，意思是插入conn.asp文件，即与数据库进行连接！
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用， / B8 |8 K) K+ {) v4 j. i
接下来几句： 0 {1 M% i# Z3 Y1 L. u- k; z
name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''") % V. @3 E  d2 Z9 V( Z, S: U
body=Replace(Request.Form("body"),"'","''") % ~- w) W% v- u
% d& S( V- u1 T
“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据，
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中， ' k9 {! Z" H& `$ Q
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")” ' z' G" D/ P5 Q* K8 q0 k
就是把表单中名为name的文本框发来的数据储存在abc123变量中 ! A) c/ x) Q; T% P
) k3 B- O1 U3 t1 e& \/ R
接着：if name="" or title="" or body="" then
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句： ) h7 h* J7 C' u: n$ m
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！” & S7 O. m/ c" q  Z/ S  ~
该语句属于html语法，大家都看得懂的！

"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句：
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> , N4 I. B( M% e1 k9 _- J3 D
发表成功！<a href="index.asp">查看帖子</a>” - v# f$ G. ]; N' r

"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了：
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表）
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')") ( d0 H; O* Z( S5 H! S! K
values是“值”的意思
就是插入向量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&"')") : J" @9 M( v8 l) {

5、index.asp 3 @1 R' e5 q; `- v, x0 g2 x0 V
源代码：

<b><a href="say.asp">发表帖子</a></b><br><br> 0 _: h! ^& X) i. D
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26">
<tr>
<td width="17%"><b>作者</b></td> 5 l5 K" h; X2 _/ }2 K% X' X) m9 b1 X
<td width="83%"><b>主题</b></td> % X  m. M! s0 p, X* w! z
</tr> % C$ f! Q& m1 ?/ F5 f2 J2 i% \* U
</table> / P' f5 @8 T/ d3 r1 _
</center> ) m, r2 [; ?/ r2 P
</div><hr size="1"> # h- L( O" g1 m2 a
<%i=1 / f) t1 I& H+ P# R
set showbbs=conn.execute("select*from bbs order by id desc") % a4 L: l$ @# X( j: ?) w. \
do while not showbbs.eof
%>   Q( L: A% T$ S1 ^
<div align="center"> ' l. T4 b1 R$ b5 t& y9 l
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20"> & R  S4 @* ?3 D+ K- k  t
<tr>
<td width="17%"><%=showbbs("name")%>　</td>
<td width="83%">   ~9 c; x  d% j
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> * P9 ]2 Q0 z2 H" S6 r
</tr>
</table>
</center>
</div><hr size="1"> - B3 }" X6 O% {4 x8 t
<%i=i+1
if i>50 then exit do * A# t$ S. ]+ @, p' R$ ^
showbbs.movenext
Loop , Q; |5 Z0 v& ^/ Y2 Z
showbbs.Close # W5 _* J+ i1 R  e/ W5 G# \; P
set showbbs=nothing " c1 G6 \7 ]) x0 D
%> & C: v9 s$ o/ A  v, k

这个文件就不一句一句的讲了
主要讲精华部分：
set showbbs=conn.execute("select*from bbs order by id desc")
意思是：向数据库中的bbs数据表查询数据，并以id排顺序， 7 A( E4 z, ]# x7 K0 A5 ^+ Z
还有这么一句：<%=showbbs("name")%>
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs - h" y6 m3 q8 h/ _' ]4 X( E" ?
代码中的i=1和i=i+1 5 [( G7 j! |6 j" x" l. a( X; b; Q# r4 t
if i>50 then exit do ! A2 v8 R5 N- L7 H& Y; J) u; i( [
showbbs.movenext ( |( S! q, E. l+ n* u/ M+ a7 E
Loop ( h* X: d# A- V2 \( O# d# o
showbbs.Close
set showbbs=nothing ( S& ~3 \5 c0 }8 a1 e& \
) U  P/ U/ ~5 u
这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！ ) q5 V; B8 u3 U9 K- L, ?
if i>50 then exit do中的50可以修改 + R( W! g4 f6 M! s
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄 " f1 D) ^! G6 B
还有一句很有用的： 8 o4 h0 N+ G  r) ~! }
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a>
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了，
等一下在show.asp文件中就有用了
* Q* N% N1 @1 x1 n: c% Y% e/ c
5、show.asp
源代码：
7 V% c" d$ S" {* A1 d6 w9 d$ }
 / ^, o5 ?6 w  a& w$ l8 K4 b
<%id=request.querystring("id")%>
<%set show=conn.execute("select*from bbs where id="&id&"")%>
<a href="index.asp"> 9 N. g, a) ]  q+ u1 u2 d8 c
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1"> $ }& N3 j, V2 B1 U5 b0 U
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180">
<tr>
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td> 5 a6 Y+ i' n2 e! B# g+ `
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td> 4 s- Y+ F' N& D" D% N
</tr>
<tr>
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td>
</tr>   b# H7 W1 d1 @% J
</table><%set show=nothing%> % v+ ?) a* [7 _
& D. ?# L6 R2 M0 Y8 E5 E7 H
劲语句---精华语句： ' k5 N; ]- f$ N! h+ W. Q
id=request.querystring("id")
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句， . y8 f' p5 a; [& D; y$ c
id=request.querystring("id")就是把地址栏中的id的值读取下来，
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字，
所以show.asp使用id=request.querystring("id")语句把数字读取下来 . Z+ ?) `4 h8 L+ _$ N, j
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"")
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"
最后<%set show=nothing%> 8 s0 w; K/ ^: o: [
4 S) T2 o, O. x# e
好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

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

紫藤花

新手上路

Rank: 1

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

2楼

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

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

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

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