5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西
真NB..佩服ing .....& L7 z1 l  g4 ^! P
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。/ G3 `" {/ O- m) R/ M7 @6 q4 E: R

同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。 $ _9 k( O2 Y: o; u

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

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

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

3、发表帖子的文件----命名为：say.asp
# U. m5 T' b1 E& R; G. T: f
4、保存发表帖子内容的文件-----命名为：save.asp 1 k3 z2 G! ?4 Q! D

5、显示帖子标题的文件------命名为：index.asp , l0 P  V" ]& I

6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp - [1 i& R4 H  ^% U

建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp"
' q4 J( o/ ]6 \# v
二、各文件的主要内容 ) K4 Q. d& m: r5 k  C: k* g

1、bbs.mdb # T/ D3 b; l' z6 I
5 k: Y6 F9 h) }% ?1 l9 y: ^
打开这个数据库，建立一个表，命名为bbs
' a( o) K- T6 l1 J& I9 g
该表中有几个字段:

id(自动给帖子编号)，他的数据类型设为“自动编号” % O+ y5 H, s  s; f) G6 u6 h

name(用来储存发表的作者)，数据类型为“文本”
% G' a1 k2 T1 U7 Q. ]# @
title(用来储存帖子的主题)，数据类型为“文本”
6 u7 K& F; s% l3 L
body(用来储存帖子的内容)，数据类型为“备注” 9 ?# B0 n$ V( H: ]7 C

2、conn.asp
源代码为：
<%
Server.scriptTimeout="10" 7 D4 {3 E1 Q* o: y( k) h
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection") 3 c6 F5 V$ a% p  V  K
conn.open connstr 1 m# R; d/ r; _1 u- U
%>
$ ]. @* O& F5 ]! j, v6 G4 h' I
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ - n; W2 ~7 J4 y6 ^* P  C3 P

3、say.asp
% s4 {6 J5 T0 \! ?
源代码为： # u7 r4 t. \! v% g
<form method="POST" action="save.asp"> ! D+ [4 A( l' E" R' T
<p>大名：<input type="text" name="name" size="20"></p>
<p>标题：<input type="text" name="title" size="91"></p> + s0 R) D4 r/ z. o3 G; V
<p>内容：</p> - V$ z( `5 h" [6 x7 g; ~1 K6 |
<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>
</form>
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面 & W+ j6 o' D& ^7 u' O, n- d
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！ ; @* v* t1 E# f) e/ \
$ \4 M4 o# H" t! C* i
4、save.asp ; \. v3 a& ]/ H, j0 w

源代码： ! j6 f' j' }2 }, M* M/ T- @5 I8 D
 ( \: {6 X: `* H; y" N& _5 X
<%name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''") . h. }4 S" S; _
%> + r: _( }4 J' R2 h. Y( y: A
<%if name="" or title="" or body="" then%>
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！ / K) J; S6 f1 h9 K0 k2 ~
<%else%>
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%> ! Z$ K5 w; W' H% W
发表成功！<a href="index.asp">查看帖子</a>
<%end if $ c9 X8 J! n3 A( q# e
set savebbs=nothing
%>

第一句：，意思是插入conn.asp文件，即与数据库进行连接！
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用， " n& N; e  x; _' ~' F; p- y1 h5 J
接下来几句：
name=Replace(Request.Form("name"),"'","''") " F" j8 v2 O: g- w* @  J
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''") 8 C; C: D5 x3 E
. r' `* L7 T! W
“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据，
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中， & l) c. W4 m" w& `+ ?
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")” " @' p2 Q6 z/ S
就是把表单中名为name的文本框发来的数据储存在abc123变量中 0 {) {" Y1 O, B

接着：if name="" or title="" or body="" then
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句：
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
该语句属于html语法，大家都看得懂的！ : W* j! r3 `  {2 Q
9 a) J4 e* C- O7 j& H0 o( t
"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句：
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> - P" N; ^3 [" l3 ]
发表成功！<a href="index.asp">查看帖子</a>”
+ P: Q, U5 h9 Z$ i9 y4 b
"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了： : V/ f1 M0 t; u* D
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表）
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')") + o) H: v) O1 `6 W8 i2 M4 I: Y
values是“值”的意思
就是插入向量name,title,body，向量用格式'"&name&"'表示 5 k/ S0 D9 R( J7 g( J8 v: ]
1 l1 }; h0 z& }; a& R
最后：end if就是结束if……then . c# `8 h! ^/ ~$ i9 T3 b% K
set savebbs=nothing可以说是关闭掉： 5 Z  U3 F+ [* a# E) ^' u9 y
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") , _& n) c3 Q' ~% z
  `* n: n& ^, m/ G0 h0 m  _

5、index.asp ' J, X7 }; I$ g* n
源代码： % m# H) a" k+ f& X+ \6 @. W
 # y' ~# T5 y  ]3 A( {
<b><a href="say.asp">发表帖子</a></b><br><br> ! e* ^4 D2 b+ j8 C# c, M
<div align="center"> ( j- h0 T8 R% y3 s. ~. r
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26">
<tr> 8 f  j  p# V" Z$ O1 j+ k
<td width="17%"><b>作者</b></td>
<td width="83%"><b>主题</b></td>
</tr>
</table>
</center>
</div><hr size="1">
<%i=1 5 x% i4 K% }" o6 M. a' I) `* y! X
set showbbs=conn.execute("select*from bbs order by id desc")
do while not showbbs.eof " C& A8 l9 y# _+ ~, s) Q. `/ z+ q
%>
<div align="center">
<center> 3 x( X) `% O, o# n
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20"> 4 O& }% P& ^9 T6 k+ L9 A; N" A
<tr> 7 a5 @0 Q4 e; s( x
<td width="17%"><%=showbbs("name")%>　</td> * Z) @$ ?/ @* p: {( C( G: I( S
<td width="83%"> 5 `! @: ~3 F# {+ t3 a1 a0 C1 h$ e
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> ( E) |+ {* U" m, W
</tr> 1 k8 O  a9 m3 H$ p) B7 M0 e
</table>
</center> 2 m! X- g* f. V; b3 S/ Z& d  C
</div><hr size="1">
<%i=i+1
if i>50 then exit do
showbbs.movenext 3 x% n/ k& l! A: E% C# s
Loop
showbbs.Close " J: D* y+ @1 E  e
set showbbs=nothing
%> 4 M9 ], \1 U1 N, j
  F$ D; |: p' M; c  w/ y8 j9 k
这个文件就不一句一句的讲了 + a/ |; M* d. ^7 v0 W# ?# \4 N
主要讲精华部分： 8 X3 s6 B% l2 X4 U8 b# u; u
set showbbs=conn.execute("select*from bbs order by id desc")
意思是：向数据库中的bbs数据表查询数据，并以id排顺序，
还有这么一句：<%=showbbs("name")%> 3 G% @# J, C  b; j; ^  [
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs * R- t$ v, w. }$ O; q
代码中的i=1和i=i+1 6 J6 w6 M8 P3 m
if i>50 then exit do 0 e- V+ Z/ W* o( c
showbbs.movenext 4 Z5 E! f7 P2 E. H
Loop 3 Q3 {' f! L. Z
showbbs.Close
set showbbs=nothing
) q4 J5 E% Q) _, b! V! y6 K
这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！ : ]' N5 G2 u& F& S
if i>50 then exit do中的50可以修改
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄 ) ?0 D) @3 ?: e
还有一句很有用的： % X6 P7 [7 {( P
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a>
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了， ; t9 V" o/ p2 v" [
等一下在show.asp文件中就有用了
6 ], v' N0 }4 ^7 f8 f
5、show.asp & H6 ^. W3 R+ ^6 _
源代码：
; X7 e% K- y' c; j7 x$ `/ o
 % T8 o3 _3 }8 ?8 s/ ]7 R. r: F* o
<%id=request.querystring("id")%>
<%set show=conn.execute("select*from bbs where id="&id&"")%>
<a href="index.asp"> 4 u1 N$ G$ u6 \* m4 K
<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"> ; e4 F6 H- I* _" p- d3 ?
<tr>
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td>
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td>
</tr> 9 p8 t! z7 Y+ W
<tr>
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td>
</tr> : r3 _  z& k' A2 P2 }
</table><%set show=nothing%> 1 ^3 n& K4 q6 r+ Y8 r% @
0 a: }3 f: T% O; W4 Q
劲语句---精华语句：
id=request.querystring("id") : W# r6 `7 |3 _: M4 i  A, ?
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句，
id=request.querystring("id")就是把地址栏中的id的值读取下来，
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字，
所以show.asp使用id=request.querystring("id")语句把数字读取下来 6 ]% W" I& [, ^/ _+ J7 ?- L' h# \
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"")
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"
最后<%set show=nothing%> . n9 p2 ]$ O9 U* C8 G1 d3 ^( K  i
9 R6 e. J0 F( c' ?0 ]
好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

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

紫藤花

新手上路

Rank: 1

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

2楼

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

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

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

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