捌玖网络工作室 - Powered by Discuz! Board

标题: 5分钟编写一个ASP论坛 [打印本页]

作者: admin 时间: 2007-12-4 13:24 标题: 5分钟编写一个ASP论坛

学ASP朋友的。。给大家分享个好东西
真NB..佩服ing .....+ ~6 m) I* `3 v3 Y9 b9 d
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。  @  [8 b4 Z0 B" `

同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。
& f9 }# @* ?/ s) f
一、建立文件！
最简单的论坛也要有几个必要的文件，就是：
/ {" T* @. X( G  `* I3 V* f
1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb
# a2 N; p: W3 E8 b
2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp

3、发表帖子的文件----命名为：say.asp . ~* `( o( u2 G5 c! r" P

4、保存发表帖子内容的文件-----命名为：save.asp 4 D- `" G' S( r

5、显示帖子标题的文件------命名为：index.asp

6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp

建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp" 9 Q7 h; |5 [6 o3 i" D" i3 y2 X

二、各文件的主要内容 9 \" E# @+ N+ [

1、bbs.mdb ; N# {2 ~+ w1 ?3 o4 E
$ e3 U. w/ B5 R" H! |8 v
打开这个数据库，建立一个表，命名为bbs & [6 O; a7 _. ]2 v0 m/ F
/ R! a$ z- J3 \' }! J
该表中有几个字段:

id(自动给帖子编号)，他的数据类型设为“自动编号” , e8 Y* R1 J2 v  P2 G/ I

name(用来储存发表的作者)，数据类型为“文本” & d8 I, F/ `2 y0 Y# X8 b' h; {

title(用来储存帖子的主题)，数据类型为“文本”

body(用来储存帖子的内容)，数据类型为“备注” : k4 T! O& \/ A% }* M  X

2、conn.asp . B* W; ?9 p5 e- S# x6 t% {
源代码为：
<%   t+ n% V$ E& O
Server.scriptTimeout="10"
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 8 d% n/ u4 t9 R8 `, m8 i& }2 w
set conn=Server.CreateObject("ADODB.connection")
conn.open connstr
%>

这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！
" d* j) a0 H. P
3、say.asp 7 {. J  S, i/ r0 p) {- a
1 }$ V& E) B5 P7 I8 n
源代码为： + a; K1 ^8 m* ?7 d7 A6 W, K9 ^
<form method="POST" action="save.asp"> " o/ P; L; S6 V3 b7 k7 F; A
<p>大名：<input type="text" name="name" size="20"></p> / D! |+ W+ m6 b  b
<p>标题：<input type="text" name="title" size="91"></p> 7 ^) [% k8 a0 N" v4 [
<p>内容：</p>
<p><textarea rows="11" name="body" cols="97"></textarea></p> ' \) O$ a6 W1 W. N# i& W/ m" H
<p>　</p>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form>
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面 2 m4 e2 m" {* G+ M  x/ U
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！ $ U" h+ T% j" U8 f

4、save.asp # h8 Z- q( s; p& t
6 q2 p6 h2 S4 l: K. Z6 l
源代码： 8 M/ \. B# ^) M& j1 @6 n# F

<%name=Replace(Request.Form("name"),"'","''") . g0 D6 h" }; I0 E8 w
title=Replace(Request.Form("title"),"'","''") / {" k' }5 N: O4 j  y
body=Replace(Request.Form("body"),"'","''")
%> 1 q* a! {2 ^6 Y& U( v. ^& k
<%if name="" or title="" or body="" then%> : V5 o+ q7 I5 A9 @+ L# [9 W3 j
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！
<%else%>
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%> , v+ u8 r* {) O& ~
发表成功！<a href="index.asp">查看帖子</a> " g6 }4 }. G( @8 p) p
<%end if , C3 Q: b# r. o3 O
set savebbs=nothing
%> + i% [9 }$ C7 V8 A0 }
9 O- P) I; V- W2 N. l: `/ \
第一句：，意思是插入conn.asp文件，即与数据库进行连接！ 8 F  p( X) q3 I7 d
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用， 9 C, c1 A% H, _) K$ M
接下来几句： ( S6 s; Y: o* S# Z0 v
name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''") 5 V! R1 A0 d; i$ g# b% c

“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据，
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中，
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")”
就是把表单中名为name的文本框发来的数据储存在abc123变量中
" E  y( j( H+ A
接着：if name="" or title="" or body="" then 2 f2 |% P, c7 S# x7 N! a, A* F# Q- S
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句： * k  V; J4 k+ {4 H$ D9 Y
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
该语句属于html语法，大家都看得懂的！ / q: p" a" d3 m" E3 @  o" A

"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句： ( f3 [% e; t4 d3 u7 }/ E0 p
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<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是“值”的意思
就是插入向量name,title,body，向量用格式'"&name&"'表示 ( O6 t/ f* R+ N( N/ M
( `3 t  w) m: ?3 h0 U- [/ j2 k
最后：end if就是结束if……then ' I( r, v) ^( S: T3 g$ v& I, M6 R
set savebbs=nothing可以说是关闭掉：
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")

6 A! H, L! G% ~2 I0 b/ h6 e- E6 w
5、index.asp
源代码： 9 L/ B2 M% Q- \6 s$ S9 `( U
 / e: p/ T3 [, m
<b><a href="say.asp">发表帖子</a></b><br><br> ! ~- g; i. r0 G" B8 V: U
<div align="center"> / `. [" t5 r/ r5 v
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26"> ; v$ @) m8 T2 z' K
<tr> $ p& j' i# c  H; `
<td width="17%"><b>作者</b></td>
<td width="83%"><b>主题</b></td> ; l: i4 m; U# V) u( ~$ O
</tr> 9 O& ]% e, o) J
</table>
</center> & B) l! J1 H* U% a3 {0 {
</div><hr size="1">
<%i=1 # |: \' Z$ p5 f: p
set showbbs=conn.execute("select*from bbs order by id desc")
do while not showbbs.eof
%>
<div align="center"> 8 |" x  s( k9 z7 u, H( w, A- L
<center> 2 N) b5 ^* c3 G# |5 Y
<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%"> 4 Q% m& @6 Y9 C3 ?( J- ]
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> # F" n1 j& |! n1 w
</tr>
</table>
</center> & I. |8 s. I& ]
</div><hr size="1"> 8 J% h+ w6 r8 P7 m( ]
<%i=i+1
if i>50 then exit do 1 _: b8 _! y1 S8 y: }
showbbs.movenext
Loop 4 p/ V9 M! u, D: i
showbbs.Close
set showbbs=nothing - Z, Q" ]1 `1 x% o* Z
%> * K8 w0 K8 B; s) x) @% S  Y

这个文件就不一句一句的讲了 $ d6 l* g7 I' T) l# S( `3 s6 {
主要讲精华部分： & }4 ?; x6 ]8 P% L2 B) T5 K( t( h
set showbbs=conn.execute("select*from bbs order by id desc")
意思是：向数据库中的bbs数据表查询数据，并以id排顺序，
还有这么一句：<%=showbbs("name")%> 0 D% q" X/ y8 m0 q  J* @
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs ! e' }* X4 f' j
代码中的i=1和i=i+1
if i>50 then exit do
showbbs.movenext * S* }0 j" X& }; |8 Y' O
Loop
showbbs.Close . p* P2 w4 K* q( {; [' |1 S8 h5 J
set showbbs=nothing & Q3 s- q6 A, D

这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！
if i>50 then exit do中的50可以修改 * j# e& ]3 d" T& {
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄
还有一句很有用的：
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a>
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了，
等一下在show.asp文件中就有用了
" u8 g$ e$ H9 d3 l
5、show.asp
源代码：


<%id=request.querystring("id")%>
<%set show=conn.execute("select*from bbs where id="&id&"")%> ) P. l  P3 j: H6 u, u1 Y
<a href="index.asp">
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1"> - }( \, F2 i" g
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180">
<tr>
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td>
<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> / p$ l5 [% _% @! ^. M( B' T5 _" p. `
</tr>
</table><%set show=nothing%> $ ]" B6 R  P) m3 z" @

劲语句---精华语句：
id=request.querystring("id")
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句，
id=request.querystring("id")就是把地址栏中的id的值读取下来， 0 q. c% j' w7 d2 s
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字，
所以show.asp使用id=request.querystring("id")语句把数字读取下来
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"")
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"
最后<%set show=nothing%>

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

作者: 紫藤花 时间: 2007-12-25 18:07

好厉害啊

欢迎光临捌玖网络工作室 (http://89w.org/)