5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西) S( h) N% E. D' z/ H6 `6 R2 a! ?
真NB..佩服ing .....
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。8 B) m' [2 o' J0 J3 ^; c
' Q9 e/ G" V$ `  k: b( E
同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。 8 Y6 ~& T3 i, O" ]

一、建立文件！
最简单的论坛也要有几个必要的文件，就是：
& V0 l& ]6 a. T$ y6 ^
1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb 1 p0 _# O. }% K; D. Z. T$ K
' Y7 \2 e0 y  V9 U! k" A4 A' h
2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp * `: j3 ]0 L3 A( I2 ]. ?

3、发表帖子的文件----命名为：say.asp
& e8 F! p9 z( H- \* U: r# j
4、保存发表帖子内容的文件-----命名为：save.asp ) }" C' j: \) L' S  J7 u

5、显示帖子标题的文件------命名为：index.asp ! i  Z( y6 e( S4 K& ^

6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp 7 a. {! C, U' H1 a2 h! ?2 C& e

建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp" * E; C5 `; ]" T4 L2 B2 T1 L

二、各文件的主要内容

1、bbs.mdb
0 F  m' P& r6 P. v' W
打开这个数据库，建立一个表，命名为bbs
0 m1 T$ X- v$ A8 o! J
该表中有几个字段:
  K: I, L) ]. [
id(自动给帖子编号)，他的数据类型设为“自动编号”

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

title(用来储存帖子的主题)，数据类型为“文本” 0 t, Q1 a2 o4 M, u4 B
7 k# s) [6 j* b$ B9 M
body(用来储存帖子的内容)，数据类型为“备注” % @" W/ N, t+ j, U" j0 T; V

2、conn.asp
源代码为： 2 j! q9 ]1 q: l! c
<%
Server.scriptTimeout="10"
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" . @- ^5 n7 P& Y
set conn=Server.CreateObject("ADODB.connection")
conn.open connstr $ f' B( @5 @+ l2 @# h6 m
%>
8 V! ^5 V) j- m
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ 4 z* a+ X5 J' R1 Y9 N

3、say.asp 8 S' j( r* ?( p% u
8 x( @& o- G  E. `
源代码为：
<form method="POST" action="save.asp"> . W: ?9 j5 S* Q$ z0 b, t0 y9 U
<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> : n% m/ U- |) l' X
<p>　</p> 6 H/ v( v& A. f9 d" E- [' N; N
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p> # ^& ?* O: ~/ B
</form>
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面 , }  e1 S. g6 H  E3 T
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！
# _/ G2 ^% q2 ?- x& v8 E
4、save.asp
6 e1 t% V/ x0 I$ I. A- u9 j
源代码：
 * }& ~4 d" b" H
<%name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''") ! h+ q. Q# g7 n/ e( Q
body=Replace(Request.Form("body"),"'","''") ! |# e: P) X8 N! \, ]* z
%> ( ]1 V7 ~: X8 P
<%if name="" or title="" or body="" then%>
请<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 ) w% u4 s8 `4 x' Q
%> 8 b4 |; T9 m; q1 f' n; H
7 i% ]! S4 N3 Z, n1 X* o# p
第一句：，意思是插入conn.asp文件，即与数据库进行连接！ # w% d# w# `; V9 j4 |; k& ?
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用，
接下来几句：
name=Replace(Request.Form("name"),"'","''") $ s& k4 B, v4 @! H# u
title=Replace(Request.Form("title"),"'","''") 5 k, u. F4 m2 `5 f8 j  E: H
body=Replace(Request.Form("body"),"'","''") 8 F. f3 R" }9 x
0 d( A6 f; F5 ?7 H& p& [0 f
“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据，
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中，
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")”
就是把表单中名为name的文本框发来的数据储存在abc123变量中

接着：if name="" or title="" or body="" then 4 @7 {7 u, `! }# u4 g, k) e; m
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句： ( \! w) D7 j4 f
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
该语句属于html语法，大家都看得懂的！
5 Q6 g4 \# w- V4 n* G
"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句：
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> & r# ?7 l# M; f. H
发表成功！<a href="index.asp">查看帖子</a>”

"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了： & _4 R/ C% y$ Q) ]) O! e
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表） . H: g0 x+ C3 H; |
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')")
values是“值”的意思
就是插入向量name,title,body，向量用格式'"&name&"'表示 0 K6 t3 ~8 O( |. C3 Y* O

最后：end if就是结束if……then
set savebbs=nothing可以说是关闭掉： ; T, N6 K$ ?- y; J$ _8 |
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") - r0 [9 V6 s% G+ [1 ]
$ V. ~6 q$ G7 Y0 Q, c9 q( v5 ?

5、index.asp ( A# }7 u% T: L! `
源代码：
 4 U# D) |7 M7 U  N' I
<b><a href="say.asp">发表帖子</a></b><br><br> ( Z2 x; m1 _' y( ?, W1 n# w
<div align="center"> 1 ~) O: l# h. `9 j* Z! T- U
<center> ) b+ ~7 W9 S  o7 `- n7 F/ w3 u& I
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26"> 1 l1 \7 P7 {1 X6 l# s- x) D
<tr>
<td width="17%"><b>作者</b></td>
<td width="83%"><b>主题</b></td> 1 z- C3 {2 D; \+ }+ o% W
</tr>
</table> 4 N3 I0 N- S+ Q5 l# b- M3 f
</center>
</div><hr size="1"> 3 H( z* f6 G9 B7 E1 A( T# U' a
<%i=1 , g& ~  o3 t1 V
set showbbs=conn.execute("select*from bbs order by id desc")
do while not showbbs.eof   Q- J' }# P- j7 {1 J
%>
<div align="center"> # I3 R2 t1 Z' {, ]5 g# [7 q
<center> 3 V( H0 |  D, g3 U/ D* E/ J1 G3 l
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20"> - }/ ?4 q. u! V4 g$ `/ {
<tr>
<td width="17%"><%=showbbs("name")%>　</td> . D! j! ^  G6 _( J5 _! C5 b
<td width="83%"> # i" Q( I$ l8 J- i. Y
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> $ F( M' u. j# P2 h: w7 X6 A! G
</tr> & m) ~, _7 ?# H, G. H5 U
</table>
</center> , i  \% [8 M6 O7 f
</div><hr size="1"> . n% ^8 A4 U2 _! m* `
<%i=i+1
if i>50 then exit do * k, {; |0 J2 \( c; F% q
showbbs.movenext # n& ~' K. o, H6 I
Loop
showbbs.Close ( q: R# |5 z3 C* Z
set showbbs=nothing 0 g7 E7 S5 f# c6 Y7 s* p
%>
, c% ~& q) k' M( o9 R# `% o
这个文件就不一句一句的讲了 ! G7 U- \4 s4 V
主要讲精华部分：
set showbbs=conn.execute("select*from bbs order by id desc") 3 G0 e1 p7 i. ]) G$ u. {
意思是：向数据库中的bbs数据表查询数据，并以id排顺序，
还有这么一句：<%=showbbs("name")%>
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs 9 A& z8 U9 G6 ]6 T% @4 H, l
代码中的i=1和i=i+1
if i>50 then exit do - r6 x# A) V+ O. G
showbbs.movenext + Y' F" @5 `6 \# D/ c" I: L; [  @" T
Loop
showbbs.Close
set showbbs=nothing 8 Y. ?, n* w( P: X  }
7 e0 G3 w& Z. I- m) `
这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！
if i>50 then exit do中的50可以修改
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄 : v. ~+ z6 u) B: E$ k7 ~. q- `
还有一句很有用的： ! |' K3 I7 l. O% `! a+ Q
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a>
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了，
等一下在show.asp文件中就有用了
* ~2 B" j" V, O. _  O1 q
5、show.asp
源代码： . c, ~4 t) s+ ]# ^; [6 |$ ^

 . {- D' k6 {+ H5 B' ~+ ?
<%id=request.querystring("id")%>
<%set show=conn.execute("select*from bbs where id="&id&"")%> 1 X3 u% \  v! z. {# B
<a href="index.asp">
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1"> 7 t! E. l& l4 Q1 b
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180">
<tr> " \! K5 i8 i$ Z% l# l
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td>
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td>
</tr>
<tr> 1 n- r2 Q/ L7 Q6 I* o5 X
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td> 5 H" d$ X' h! ^% F6 o- m
</tr> / n) K& V, y# n4 ]
</table><%set show=nothing%> 9 g% C7 w& ]- K3 [% I) M" i- r

劲语句---精华语句：
id=request.querystring("id") ! A" Y: Y/ D$ U
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句，
id=request.querystring("id")就是把地址栏中的id的值读取下来，
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字， + C3 R) Q0 W# `
所以show.asp使用id=request.querystring("id")语句把数字读取下来
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"") & y9 G; F. q, j5 o* P( S
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"
最后<%set show=nothing%> & d! a2 `$ }% X! B( T

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

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

紫藤花

新手上路

Rank: 1

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

2楼

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

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

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

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