5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西4 r' ^& S) u- f( y1 J
真NB..佩服ing .....3 ]- X! Y& M& m6 `
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。
) ~2 @4 W1 ]/ b& z
同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。 1 D1 }2 ^! ^5 s7 @, B* G

一、建立文件！
最简单的论坛也要有几个必要的文件，就是：
; ?, L1 H/ l" o0 L) O  [
1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb

2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp
1 b9 A" o0 a1 n! a
3、发表帖子的文件----命名为：say.asp
  |! M0 E# j& }* F4 [. a1 d4 {0 m( d
4、保存发表帖子内容的文件-----命名为：save.asp # u. g9 y% r; N/ E0 r# X% r
- n8 j- S( h* o
5、显示帖子标题的文件------命名为：index.asp : |3 n  F5 u9 |9 ^: f+ i% {( F
- k7 B; J$ }+ U
6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp * e4 l$ H; z, X8 G) x0 j, R' S! \

建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp" 8 b, \$ `; N% T% P4 T
2 c# X7 c. K" \
二、各文件的主要内容 % V; H& h, T# d0 S  l3 i

1、bbs.mdb

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

该表中有几个字段: # l1 p+ x( l$ ], D

id(自动给帖子编号)，他的数据类型设为“自动编号”

name(用来储存发表的作者)，数据类型为“文本” , u8 A) w! @4 ]3 Y& Y$ c) {1 @

title(用来储存帖子的主题)，数据类型为“文本”
& \6 a" H$ a3 w' @* v
body(用来储存帖子的内容)，数据类型为“备注”
  H6 z8 n) M$ Z  \# h
2、conn.asp " E! N: E. f4 K
源代码为：
<% & b/ m  Y, K  ?2 E5 h* q! u+ C
Server.scriptTimeout="10"
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection")
conn.open connstr
%> . r2 |7 v. R  w) Q& A$ ^
$ ^! u2 t+ |2 E2 K! K( d$ b
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ & w0 x  \: [; I9 _3 C, W/ K

3、say.asp
. q/ M2 }- D. B
源代码为： 9 w7 x$ K& _1 F& ?% b/ F' U2 w, n
<form method="POST" action="save.asp"> / U0 m5 ~6 S1 S' ~9 S
<p>大名：<input type="text" name="name" size="20"></p>
<p>标题：<input type="text" name="title" size="91"></p> ) y: g" K9 S/ f# \9 _' y( v- v
<p>内容：</p> 8 t/ n9 z5 ?& Z- F3 u0 C: [
<p><textarea rows="11" name="body" cols="97"></textarea></p> , W  |. ~5 Z9 `: j5 Q! Z) Y
<p>　</p> 6 b2 d8 l  l- z! ^+ M5 W& p
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form>
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面 $ _3 m/ e% H1 G. F7 l# n( |
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！ ) m1 P9 D. L9 G+ d7 P  f: Z  v. c
, y+ D  j1 u4 ^6 S6 _8 G
4、save.asp

源代码： 5 U5 N$ J# `; ^3 [: a- [2 G4 G

<%name=Replace(Request.Form("name"),"'","''") + |2 Q$ h2 ?1 B: V4 s: K  U
title=Replace(Request.Form("title"),"'","''") 8 N# G) E; V# O5 L) t& i
body=Replace(Request.Form("body"),"'","''")   Q3 ?: a7 I! X% }+ \+ @# r; X) q6 I
%> ( |% J7 n: q: A7 A: T, o* \$ D! ?
<%if name="" or title="" or body="" then%>
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！ 5 W# p: J- E9 N7 v& u
<%else%> 0 ?7 ^: ]- ^8 H  H* s1 u7 v
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%> ! L4 e3 z& c, p7 {5 N
发表成功！<a href="index.asp">查看帖子</a>
<%end if ' |1 |, ?+ X) _* K  E7 z& j1 f+ ~* \
set savebbs=nothing
%> # u: L! g' I; i. |

第一句：，意思是插入conn.asp文件，即与数据库进行连接！
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用， 4 h" H, I2 r6 ^' p' C; f
接下来几句： 8 h) f) p* Z7 o2 S/ S$ B
name=Replace(Request.Form("name"),"'","''") : z# w( E/ I& r& X9 w3 a
title=Replace(Request.Form("title"),"'","''") 3 Q. @* ?8 h% ]/ `- v4 z0 r
body=Replace(Request.Form("body"),"'","''") 7 _9 ?- Y0 ~6 [2 {9 S* E5 |

“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据， 1 R( }6 D4 ~+ k2 q, T7 J
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中，
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")” 2 h5 \% o4 Y$ P! ^( g. _$ G* [
就是把表单中名为name的文本框发来的数据储存在abc123变量中

接着：if name="" or title="" or body="" then
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句： & U  a2 C1 U* ?9 ^: A1 V& ^" e
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
该语句属于html语法，大家都看得懂的！ + g! T+ q6 t3 ?8 S6 a& E

"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句：
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%>   Q( `0 r: T1 w) t7 R8 f6 f" _4 o9 j& B
发表成功！<a href="index.asp">查看帖子</a>”

"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了：
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表）
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')")
values是“值”的意思 ) H9 q. c- @( _6 Y* G
就是插入向量name,title,body，向量用格式'"&name&"'表示

最后：end if就是结束if……then   p) j6 d0 m, ]
set savebbs=nothing可以说是关闭掉：
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")
5 Q4 b7 q* w- b: ?( O+ o
4 L0 \; w& T; O6 F  n8 X) q3 a
5、index.asp   }6 D9 s. U. f* f
源代码：

<b><a href="say.asp">发表帖子</a></b><br><br> * Y0 J' f6 H6 ?  V4 X
<div align="center">
<center> 1 X& U' |8 ~8 R) V& u0 e
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26"> 5 B" F+ d1 D" s% }
<tr>
<td width="17%"><b>作者</b></td> 6 e; @$ \1 a7 K7 R5 G& y/ t0 L
<td width="83%"><b>主题</b></td> # q- W  x. c+ v. D9 ?% x, q6 x+ D5 V
</tr>
</table> ; k4 P+ |  j( Y) h! ]3 ?2 Y8 O/ ]
</center> 1 g, n6 M" P' F/ _$ ^5 v8 d, a
</div><hr size="1">
<%i=1 ; ]; b! v8 ?0 M% `! x! L  I
set showbbs=conn.execute("select*from bbs order by id desc") % R0 w0 D* t/ P3 }
do while not showbbs.eof
%>
<div align="center">
<center> : \3 B& |. U3 u$ b' O7 O
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20">
<tr> 7 E  u7 V6 g/ X/ [
<td width="17%"><%=showbbs("name")%>　</td>
<td width="83%">
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td>
</tr>
</table>
</center>
</div><hr size="1">
<%i=i+1 0 H4 p: @* N4 r6 F* z6 q8 m
if i>50 then exit do / F6 C, @2 u, T5 Y5 r/ F0 g  @2 l
showbbs.movenext
Loop 3 \, D* D, g+ r/ {1 R: m) J
showbbs.Close
set showbbs=nothing + r6 J* {( w- T9 o1 ^5 C
%> " B# i2 J7 q% B# I; b  ^( V5 F/ }
9 I! V$ T" @' v3 L% @/ J( ]
这个文件就不一句一句的讲了 : c, h) q8 r1 H- o+ F7 _
主要讲精华部分： , S' a2 d- F, A; D% B8 q) Q
set showbbs=conn.execute("select*from bbs order by id desc")
意思是：向数据库中的bbs数据表查询数据，并以id排顺序， # V( Y: K2 X5 k, G
还有这么一句：<%=showbbs("name")%> & m7 f. Q7 w( P! ^  a+ g
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs
代码中的i=1和i=i+1 + z8 g& \% |* x6 m4 K: B
if i>50 then exit do
showbbs.movenext & J' @  P6 G: u' r5 ?7 m3 L* Q
Loop
showbbs.Close 9 o. x) H% F* N1 J
set showbbs=nothing
! W1 \* l$ l4 d) Q. [- U8 e
这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！ , }, Q7 W. d6 ?: _$ `( H! m
if i>50 then exit do中的50可以修改
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄
还有一句很有用的： 3 V; G( H6 Z0 Q* W' s
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a>
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了，
等一下在show.asp文件中就有用了 " E8 I6 `/ O: R& F6 C
' C2 H; i  ~: Q- g; k+ [6 o4 y4 b
5、show.asp
源代码：

 5 Q3 v' V, J% t
<%id=request.querystring("id")%>   G" t  o- B, W2 |7 e% N+ x( U
<%set show=conn.execute("select*from bbs where id="&id&"")%> 6 ?6 N0 o/ i! G. x, A6 y# o5 X% s
<a href="index.asp">
<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"> 3 P5 f' g, _* a4 w7 |
<tr> 8 s4 t2 x5 I3 u" q2 |+ |
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td> 1 ~0 q$ M1 \5 w; c
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td>
</tr>
<tr>
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td> 3 n0 G& ^$ E9 f2 u' o
</tr>
</table><%set show=nothing%> % s+ k+ c% b3 P' w
7 f- `& v) F9 K% W% N9 G
劲语句---精华语句： 5 v( G. A9 B5 Q! x* X" ^) v
id=request.querystring("id") 8 u& K: K9 E( w% j& _
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句， : D) T* S1 H; }0 q/ T
id=request.querystring("id")就是把地址栏中的id的值读取下来，
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字，
所以show.asp使用id=request.querystring("id")语句把数字读取下来 , g' k( W) J4 h
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"") , F. e, w+ e) B  J* Z% F
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"
最后<%set show=nothing%> 3 h2 K# O# h# Y7 f2 h+ g3 z

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

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

紫藤花

新手上路

Rank: 1

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

2楼

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

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

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

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