5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西
真NB..佩服ing .....
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。9 b8 L6 P6 q- c, O+ }. p$ N$ \

同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。

一、建立文件！
最简单的论坛也要有几个必要的文件，就是： - U# [' m: }0 a! [4 s; U

1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb ; h7 \4 R! k: |, H7 w, C

2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp & d6 k- \- i: J( F5 e% P( v

3、发表帖子的文件----命名为：say.asp 6 P" E+ F$ }& R
* L  }) }, s. F- J( U
4、保存发表帖子内容的文件-----命名为：save.asp
8 u) v, U7 l' @7 ~- _) W# `
5、显示帖子标题的文件------命名为：index.asp : j5 G4 k$ ^. `4 t' M
; {9 U9 i1 ^& h: }+ S. |
6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp
. J  {/ ?' G, _1 M
建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp" & z! g+ c! P: x5 u" v. {$ _

二、各文件的主要内容 , h+ v0 ?% Z7 x0 r
* D/ Y% _4 V$ x3 Z" _. v* T7 p
1、bbs.mdb 4 P4 o2 B$ C* l. Q- `

打开这个数据库，建立一个表，命名为bbs - u- p* x- v% X; L+ B6 E0 i
, F0 a2 ?& ]  s) B
该表中有几个字段:
8 G/ i7 g5 }, [: w/ ?8 N
id(自动给帖子编号)，他的数据类型设为“自动编号”
! s2 K+ I; s9 k4 F8 M9 _& ]* h
name(用来储存发表的作者)，数据类型为“文本” 5 j+ B& r7 |" U; U
/ @& o' A3 e  w
title(用来储存帖子的主题)，数据类型为“文本” 7 z) S+ [  Z: R* G2 y$ {
% x0 ~5 C. ]& g1 @8 Y- f! ^
body(用来储存帖子的内容)，数据类型为“备注”

2、conn.asp
源代码为： 4 N% T. _2 v8 L0 s3 J4 N5 t; }
<% ) [3 ]' @9 N, g( s& ]9 v7 f, @3 \
Server.scriptTimeout="10" $ j' F0 K- H! I. D/ B& a% w5 Z
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection") . o6 i' q% [& a) R, M5 H* g! S
conn.open connstr
%>
4 O% e9 G9 R$ @
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ . t  P6 c# D- R, e# b$ ]: `1 F
/ r1 V. H8 c0 A0 ~* Y0 I
3、say.asp
2 `2 V1 E2 F# @& j
源代码为：
<form method="POST" action="save.asp">
<p>大名：<input type="text" name="name" size="20"></p>
<p>标题：<input type="text" name="title" size="91"></p> : n" Y6 w% v8 {  V7 a* K$ d6 M4 Y4 t
<p>内容：</p>
<p><textarea rows="11" name="body" cols="97"></textarea></p>
<p>　</p> 7 o5 o" l2 O' t
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form> + M! t. |: \2 I4 f! h
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！ 7 ]7 t3 A  A7 ^1 r

4、save.asp

源代码：

<%name=Replace(Request.Form("name"),"'","''") / \: R7 d5 o6 v) a
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''") " `4 z; d+ o5 o  c
%> 1 y, M9 P! D; D# Y2 c- r6 H, R
<%if name="" or title="" or body="" then%>
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！ ) o) l- v1 |, v: T. J8 V
<%else%>   v5 d( n* Z* P9 D
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a>
<%end if
set savebbs=nothing
%> 5 h4 J( C4 `9 [3 t
9 P# ~# v5 Z( g& \
第一句：，意思是插入conn.asp文件，即与数据库进行连接！ " {, `) t1 d2 ~4 \4 s4 D% ?
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用，
接下来几句： + a5 Y0 x7 l% d: t# N
name=Replace(Request.Form("name"),"'","''") 2 V8 n$ U/ ^6 X* \9 G0 p. m
title=Replace(Request.Form("title"),"'","''") ! D+ n" T  V* h0 U4 y" B2 C
body=Replace(Request.Form("body"),"'","''") 7 ^" j9 t( }+ \( ~7 h

“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据，
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中，
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")” " H4 T3 G- B& k4 K! l
就是把表单中名为name的文本框发来的数据储存在abc123变量中
1 |+ n5 t! _3 X4 E7 j+ T, C( `
接着：if name="" or title="" or body="" then
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句：
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
该语句属于html语法，大家都看得懂的！
* S* f, e4 P& V0 u& a
"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句：
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a>”   R. @- A; P6 |

"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了： 7 y! h" A& ?/ v( c
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表）
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')")   p  c3 C, R* Q. ?+ P5 i( C
values是“值”的意思
就是插入向量name,title,body，向量用格式'"&name&"'表示 3 C+ v9 B8 y1 c$ e& z

最后：end if就是结束if……then
set savebbs=nothing可以说是关闭掉： ! I: H7 t+ {& A' }
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")

9 K6 q* A; W+ w( L: m
5、index.asp ( P" q" I1 G4 X# O; A" ^
源代码： ) [' ^& ~) A5 d4 r( j- U2 [

<b><a href="say.asp">发表帖子</a></b><br><br>
<div align="center">
<center> $ ]# A5 z" r% @% m, b5 I! G6 `
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26">
<tr> ) w( g0 G" V; [" d
<td width="17%"><b>作者</b></td>
<td width="83%"><b>主题</b></td>
</tr>
</table> # b3 _+ N0 a; [% Q5 y
</center> ' p0 k; }8 W% _7 b+ W% a6 [
</div><hr size="1"> ' F8 [: h5 u! F; \& Z
<%i=1
set showbbs=conn.execute("select*from bbs order by id desc") 6 `% D3 u' l) B. y0 o
do while not showbbs.eof ' z* m4 V7 A- h) ?
%> ; U0 V# c2 f/ {, a4 ~3 F2 x$ ]
<div align="center"> + \5 `5 E! ?0 D/ S. g+ C
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20"> ( X" I4 ?% K1 i( N
<tr>   J/ o" N' I" i% H3 A* D( y' r+ K! d
<td width="17%"><%=showbbs("name")%>　</td> ( g6 `8 w+ }5 G- i, J
<td width="83%">
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td>
</tr>
</table> 0 N" T& Q  a9 h8 U& @4 z; _
</center>
</div><hr size="1"> % g; J& i& d5 t
<%i=i+1 & e8 {- T4 d% D& s/ }4 T
if i>50 then exit do
showbbs.movenext # r3 L6 V7 Z; Z/ `
Loop
showbbs.Close 6 k; r; u; E- |  y  H% _
set showbbs=nothing " U1 \; G* ?! v& k' j* F
%> 6 v( D9 r  Y: N# m
4 ]) n9 Z* i0 s! M
这个文件就不一句一句的讲了 ; e5 u& G% \$ }+ s
主要讲精华部分： 1 m, ~" a0 }1 ?  s+ C. _: k
set showbbs=conn.execute("select*from bbs order by id desc") 8 Q! y8 W, ~9 z0 J. m
意思是：向数据库中的bbs数据表查询数据，并以id排顺序， . m: m' w; V5 X& ^
还有这么一句：<%=showbbs("name")%> 4 f) f& U  |9 M9 U9 j* ^# E
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs # ~/ ]' K6 z( J- P6 b
代码中的i=1和i=i+1
if i>50 then exit do
showbbs.movenext . ^. v/ d" A* v/ I
Loop # n0 l  C9 }: J
showbbs.Close
set showbbs=nothing " v" R; i& x- M! D1 v( Z; e
& a0 i2 N8 ~  ^: s+ V# N4 ~
这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！
if i>50 then exit do中的50可以修改 6 [7 h, E% E- ?* G8 s/ n( L& F
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄
还有一句很有用的： ; I4 P4 O! K6 A0 ]( u  C0 t
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a>
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了， 9 B8 n: |+ J# N; E
等一下在show.asp文件中就有用了
4 `4 h. Q3 r  M8 C
5、show.asp
源代码： ( m1 \0 h7 C+ I5 Y' ~( s: _6 i  s6 g

 ) F' ^+ h& a+ B* v2 l3 R
<%id=request.querystring("id")%>
<%set show=conn.execute("select*from bbs where id="&id&"")%> 5 a5 k. ~; U4 g  h) @5 {
<a href="index.asp">
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1"> 2 S( @6 n5 l1 L3 f
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180">
<tr> 1 F9 ?2 d- Y/ z& Z) {, f
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td> 0 W8 V1 Z% C2 F. k
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td> $ [! t. b6 H# ^( u* _. p
</tr> : |# h, z) }3 Y
<tr> % v) ]: @$ `% K$ V- s* W5 Z0 @
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td> 6 j* K' D* f9 V8 f3 k
</tr>
</table><%set show=nothing%> 4 N$ [- i8 D( R- @# B0 Z% {' X3 i2 T
; j) n+ Q& z; A
劲语句---精华语句：
id=request.querystring("id")
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句，
id=request.querystring("id")就是把地址栏中的id的值读取下来，
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字，
所以show.asp使用id=request.querystring("id")语句把数字读取下来
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"") ) V0 o+ C) M; T3 V6 }
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"
最后<%set show=nothing%> " i# p0 H! D9 K" q
$ |+ R+ {! ~3 _' b- |
好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

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

紫藤花

新手上路

Rank: 1

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

2楼

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

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

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

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