5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西
真NB..佩服ing .....7 F! M' \  H5 r& ~3 I2 f, |
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。* Y, j  F* J/ H3 G/ t' W
; g0 y% w8 W: v9 b# u+ ?7 V9 E
同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。
, E5 O( K2 \* J. D
一、建立文件！
最简单的论坛也要有几个必要的文件，就是： # j' C3 @6 J; E, n& w6 j

1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb % q* T, @9 H8 I! S

2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp % r4 B; T1 I' J5 T/ T6 ]

3、发表帖子的文件----命名为：say.asp ( P1 f" p2 L& o! g/ |" q; h) ^8 I% D
/ j# L# ?  @& n* f5 L  n
4、保存发表帖子内容的文件-----命名为：save.asp
5 n( }0 E! z0 s4 |; P  l' P
5、显示帖子标题的文件------命名为：index.asp
. O7 s+ i7 t. W, w
6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp
; W8 B  |# K2 j2 J8 V1 r
建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp"
. l% [8 u6 D+ T6 i
二、各文件的主要内容 6 P% U* Q) M8 O2 l$ L7 a

1、bbs.mdb

打开这个数据库，建立一个表，命名为bbs

该表中有几个字段: ; P1 x/ i7 S1 H6 m- B; k
. A# T" k4 ~& C; k+ `
id(自动给帖子编号)，他的数据类型设为“自动编号”

name(用来储存发表的作者)，数据类型为“文本”

title(用来储存帖子的主题)，数据类型为“文本” 7 T* y6 I( v) `1 a; ?5 |) e
3 T8 L& H; }) t: L. O
body(用来储存帖子的内容)，数据类型为“备注”
  k: a7 j' d6 J6 G& p2 x" o9 `0 N
2、conn.asp
源代码为： : Y6 q7 N( e2 o8 f0 D0 v# s
<% # O0 U  Q! T+ b% |9 m7 ^
Server.scriptTimeout="10"
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection")
conn.open connstr $ S# N) _0 ~" `5 g  H0 }5 o
%> 9 k! R9 U( u7 K0 N5 o+ z

这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ / _$ m5 {3 C; e( ~9 {
% A. z3 z) B0 q/ R8 y0 R
3、say.asp

源代码为： / j3 f' `; }6 Y+ U9 ^$ f, X
<form method="POST" action="save.asp"> ; L, |; ?6 ?% o. s5 g: Q  B" {# R
<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> ; S% p5 h9 R3 _
<p>　</p> 2 k# X' ]9 a; j* d1 n! S0 C
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form> 0 k5 l1 n" Q3 V& O+ E* I
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面 8 B7 O% ~3 c7 }9 ~; L. o3 ^
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！

4、save.asp $ y/ M( {* `+ o& \; p1 V4 f' Z
6 a7 E) H. J; d1 D: q
源代码：
 1 m+ w# i1 ?  ?0 z' q& [
<%name=Replace(Request.Form("name"),"'","''") " {* ~, X9 y, N' ?3 j' P3 ]3 g
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''") : i5 v9 S  {6 S: d% j
%>
<%if name="" or title="" or body="" then%>
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！ ( u  h  \0 ?" N8 V$ P6 I% p4 f  V
<%else%> 1 z7 s" v% j; c8 C  C% ]" Q* o# h
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a> + O. V$ T8 @( `& y- R
<%end if * F9 c) x) L! ^: ?8 i6 D* f
set savebbs=nothing
%> $ c" T. o$ J# t
+ g* l2 i9 v' q9 l
第一句：，意思是插入conn.asp文件，即与数据库进行连接！
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用， 8 |# B" ^$ i; u! |2 q
接下来几句：
name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''")
3 }3 [. f) R" k  A4 U5 S
“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据， " D2 V! D, C7 S! C  `- a5 b5 X
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中，
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")” 0 [+ q2 r  a0 A' z/ c2 d
就是把表单中名为name的文本框发来的数据储存在abc123变量中
1 j% h/ L+ t6 B4 U5 |, A/ C& q
接着：if name="" or title="" or body="" then
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句：
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
该语句属于html语法，大家都看得懂的！

"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句： 7 N: r6 \$ ?& W6 r9 d6 E7 ^
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a>” ( z" N4 W( Z- C! O

"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了：
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表）
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')") + U  v. M/ c9 _
values是“值”的意思
就是插入向量name,title,body，向量用格式'"&name&"'表示
, ^6 g9 H' w1 d" m& o
最后：end if就是结束if……then
set savebbs=nothing可以说是关闭掉：
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") ( j8 H( q& `6 W, A3 z& x$ N9 h

( j* a  E0 W5 X# r
5、index.asp
源代码： * K! O1 g) a9 H' G

<b><a href="say.asp">发表帖子</a></b><br><br> " d2 q+ j7 t2 c
<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>
<td width="83%"><b>主题</b></td> ( e' w9 q: J/ q! k
</tr> 3 {4 e5 X" i4 I7 [- k
</table> 7 _9 N4 ~# S- B, F/ Z  m, G
</center> 4 M5 \! }$ z  _4 a8 a. q0 J0 K
</div><hr size="1"> * n) w% s% F1 B( S- D- l. F% D! d, ]  Y
<%i=1
set showbbs=conn.execute("select*from bbs order by id desc") 9 s# |2 f! Q3 X  ~
do while not showbbs.eof
%> 5 F; O+ X! n& |+ c8 V
<div align="center"> $ P$ _% ?1 ?. S: e; G
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20">
<tr>
<td width="17%"><%=showbbs("name")%>　</td>
<td width="83%">
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td>
</tr>
</table> + X1 J4 g) J8 E+ m
</center> 4 @. @, u* F  r
</div><hr size="1"> ( ~  N( i7 `6 J9 M. J1 p& n+ E
<%i=i+1 8 P. K3 k! d: I' g3 M  d5 ~
if i>50 then exit do 1 v5 }5 m& r; p; \* ~' S
showbbs.movenext + ?- k- _+ D) M/ Z  c' S: g9 W) T
Loop $ c- W1 m1 I' R
showbbs.Close
set showbbs=nothing
%> ! K5 Z0 L6 E1 t% Q& u9 k. r- }

这个文件就不一句一句的讲了
主要讲精华部分：
set showbbs=conn.execute("select*from bbs order by id desc") & f) i9 z' f8 x; _& U: @3 s& x) O
意思是：向数据库中的bbs数据表查询数据，并以id排顺序， $ T# Q0 e1 a) u. d0 x
还有这么一句：<%=showbbs("name")%> ' S) G1 X; L! y( z& r$ M
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs # c$ z1 q4 R4 ]( O" H  {
代码中的i=1和i=i+1 , q/ h3 s0 c# N1 K6 I- |
if i>50 then exit do
showbbs.movenext
Loop
showbbs.Close
set showbbs=nothing 1 o0 P' v7 z& H9 S- w

这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！ ' n. G3 I+ v9 `9 l
if i>50 then exit do中的50可以修改
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄 " E  ]' b/ ~! q2 ?. P
还有一句很有用的： 6 S9 B( z6 J0 T$ Q* e
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a> 4 S) p: ]' ]3 W/ T" D# \
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了， 2 x. v" Z' e( N  X! \' O  r/ ?0 M3 Z# X
等一下在show.asp文件中就有用了
, B% d  A6 k/ w$ A, z5 b, x, f
5、show.asp ' s( |" C/ U; q# |5 i
源代码：
# B) J: p5 N- W0 a: z0 C1 ~4 Z

<%id=request.querystring("id")%>
<%set show=conn.execute("select*from bbs where id="&id&"")%> . v- c1 k' h+ z" U4 E8 N
<a href="index.asp"> 4 ^3 y; K) j5 w9 d
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1"> 9 _3 W# d3 I* @
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180"> 2 m9 {; l7 r5 F4 ]0 g3 C
<tr> 2 y% U+ }+ W) l4 o' B8 _3 }( `
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td> 4 e! }$ {/ K- ?% K/ ?
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td> $ j& f& V2 Q7 k8 J6 d7 D
</tr> ' o- H" j$ K0 ]3 M* c& K) E1 m
<tr>
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td>
</tr>
</table><%set show=nothing%>

劲语句---精华语句： $ ^# j  J, _/ z# j( ]$ ~- t
id=request.querystring("id")
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句， . |5 @& n1 J" M
id=request.querystring("id")就是把地址栏中的id的值读取下来，
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字， 5 G3 W+ `: l% e: w
所以show.asp使用id=request.querystring("id")语句把数字读取下来
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"")
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"
最后<%set show=nothing%> ' k( r9 b2 Z, R
( P/ d/ ^, t9 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 分享给朋友]