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

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

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

学ASP朋友的。。给大家分享个好东西
真NB..佩服ing .....4 x& s1 Q9 I# t* P5 S
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。3 _% [' Y4 `; p5 T, J# u9 Z# M
0 O, L$ E9 L0 z3 S0 [6 [
同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。
8 R. g3 m: S. x) _/ o- P0 g
一、建立文件！ 8 M, \  a0 v! J4 q4 a
最简单的论坛也要有几个必要的文件，就是：

1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb : \& U$ s' S& `- n! B

2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp

3、发表帖子的文件----命名为：say.asp
% f" ~7 o0 ^; o
4、保存发表帖子内容的文件-----命名为：save.asp : _0 S7 i: l3 X% R

5、显示帖子标题的文件------命名为：index.asp ) b" o, r2 ]- ?! Z
* |# h/ C: r5 h) x) C
6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp ; R4 W0 Q+ k: `) K5 x
% ~& o/ r) U1 s' i3 ~9 w* @
建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp" 1 K- J$ V) _- l0 k
$ H1 k, x0 D1 a3 c9 O  s
二、各文件的主要内容

1、bbs.mdb
" P4 M3 e' G# a. u; W. z& @$ x
打开这个数据库，建立一个表，命名为bbs

该表中有几个字段:
5 ^) h! L( [% h/ q
id(自动给帖子编号)，他的数据类型设为“自动编号”
7 b) }8 ~5 _* K: B" u0 r
name(用来储存发表的作者)，数据类型为“文本” * i! v- z8 B& X3 P
& w1 q& ]6 g2 l  |$ w' ]
title(用来储存帖子的主题)，数据类型为“文本” ; Z& k& t0 q+ U* X- u0 M4 `
7 b. f* Y2 S/ Y; N7 r
body(用来储存帖子的内容)，数据类型为“备注”
! B4 f4 E0 n' D
2、conn.asp
源代码为： 8 }8 h& w* _8 ~" v' K
<%
Server.scriptTimeout="10" - L9 Q2 J' a1 B' p8 A1 {3 ^
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection") 1 N4 r! w# Q$ M1 i0 }
conn.open connstr
%> 7 C% v. v( U2 G/ W5 G/ k3 F( s1 [

这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ ! E* ^; }: V1 \/ y" q2 n3 e- O

3、say.asp
+ z9 q1 |3 w0 i! j* l. }( Z, k
源代码为： % A! C; r" l, w& r, h
<form method="POST" action="save.asp">
<p>大名：<input type="text" name="name" size="20"></p> : c2 a% M% P, A& z
<p>标题：<input type="text" name="title" size="91"></p>
<p>内容：</p> . }* L6 f  u$ f1 X4 P
<p><textarea rows="11" name="body" cols="97"></textarea></p>
<p>　</p>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p> 1 s9 p7 ^( l! k
</form>   L  a& a8 c- H# j9 p
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面 $ A/ H8 p' s/ s' c( N: k
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！

4、save.asp ; @6 |! R; V: e. K- z3 A; k3 Q

源代码：

<%name=Replace(Request.Form("name"),"'","''") + ]5 i" H' s6 Y* x  p
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''") 4 k' h; M) ^  H" O  V0 @
%> 4 b* i4 l" T* \# T+ x
<%if name="" or title="" or body="" then%> " q8 w) V  v( i, {
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！ 2 l4 P$ l* n6 x$ f- t; W  g
<%else%>
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a> % U* B  n+ p7 n+ X
<%end if
set savebbs=nothing 4 d- v5 g; {8 i6 V
%>

第一句：，意思是插入conn.asp文件，即与数据库进行连接！
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用，
接下来几句：
name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''") 0 L7 D: @2 j' Y2 y
body=Replace(Request.Form("body"),"'","''")

“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据， 3 V+ I0 N5 I: x3 m' T4 Y3 s
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中，
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")”
就是把表单中名为name的文本框发来的数据储存在abc123变量中 8 b, H% F3 R, `4 e
: }8 J1 S! p( h  W4 q8 g
接着：if name="" or title="" or body="" then
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句： 8 t$ a& ~6 t# u0 {, t
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！” ' h- ~/ G8 I- [. t# E5 d* u0 J
该语句属于html语法，大家都看得懂的！

"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句：
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a>” 8 o, O+ E" p5 S/ g" m$ i
; n' P0 g8 ^0 |- X4 D  ~( W$ A
"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了： % r. R2 J/ ~5 b# E% X6 V
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表） 5 o' {  ^/ `. k
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')") * i$ N6 E5 U) k2 T! N
values是“值”的意思
就是插入向量name,title,body，向量用格式'"&name&"'表示 ! b# g; J- R' `$ p" ^* D1 g
2 S" p8 N) ]) m# @& V
最后：end if就是结束if……then : X3 c! W- U( ]7 F7 m5 i3 d
set savebbs=nothing可以说是关闭掉： % Z: |) I- c+ t" B& U3 v' P- S
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") , k5 _. z9 s5 V3 k, `) m
1 H# Z$ @6 H" {, X* a1 F& V
  l+ f* \; r. U3 V/ S1 I; H
5、index.asp
源代码： . ^; ]/ M, T1 U+ O/ v8 o& W
 , K# a9 o2 Q# ?5 m3 l' T" f
<b><a href="say.asp">发表帖子</a></b><br><br>
<div align="center"> 7 O  a$ W1 O! F3 o
<center> - G- m; ?  }4 s& z) T
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26">   g6 S% Q: H, S4 |  i) L: R
<tr>
<td width="17%"><b>作者</b></td>
<td width="83%"><b>主题</b></td>
</tr>
</table>
</center>
</div><hr size="1">
<%i=1
set showbbs=conn.execute("select*from bbs order by id desc")
do while not showbbs.eof # |( |' f; P" C* O* D- G
%>
<div align="center">
<center> 9 z; P; W: d* G1 N
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20"> + }: Q8 H% f! N( V6 t# |
<tr>
<td width="17%"><%=showbbs("name")%>　</td> 6 M8 x6 j% H- g* E+ F
<td width="83%">
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td>
</tr>
</table> 6 b% H/ Y# b) H: ?5 ^4 t* _" f
</center>
</div><hr size="1"> 9 S  F) o/ J8 k
<%i=i+1
if i>50 then exit do 2 D6 {4 B& z% ^
showbbs.movenext
Loop ; Y" X# g% v6 S% V2 n0 L
showbbs.Close . f, D- y3 {' F4 u
set showbbs=nothing . P$ V7 ^; ^4 d; N' X4 \. ^6 y; t
%>
$ i6 p* O1 o0 {# ]) x
这个文件就不一句一句的讲了   a0 f7 V7 o+ l1 i$ o' H
主要讲精华部分： 6 u2 Z! [: D* [* s$ L5 m3 x. e
set showbbs=conn.execute("select*from bbs order by id desc")   s/ ~, E5 V+ V, O
意思是：向数据库中的bbs数据表查询数据，并以id排顺序， ' Z2 E" Q  o( S
还有这么一句：<%=showbbs("name")%> ( `) Z& X/ Z& H7 z. u
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs 0 c1 y" t5 g! f5 D) h% N
代码中的i=1和i=i+1 4 s. @( h5 v: M2 g$ h0 n" r! k
if i>50 then exit do
showbbs.movenext
Loop + z) @" }$ r( g7 {2 p4 V' I
showbbs.Close
set showbbs=nothing ' _- h- M! o- |9 _
9 R. ^2 `: A7 o$ H' U/ U! n) `
这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！
if i>50 then exit do中的50可以修改 % `: X# _# E( Q% k* i' r7 n
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄
还有一句很有用的： 4 p4 X$ ]( Q/ I% d, b- N0 N3 O
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a> : Z+ `# K/ u% }
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了， , Q& L/ n6 g/ Y0 R. P
等一下在show.asp文件中就有用了 $ W7 F7 `0 Y& Q7 C' }2 S

5、show.asp
源代码： ( u. }( [7 m* u8 C' O' m' \
: t- w' G6 \* R7 }  k! N+ c. v

<%id=request.querystring("id")%>
<%set show=conn.execute("select*from bbs where id="&id&"")%> " t6 o# Y* B. g0 i! x
<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"> * Z% j" X$ t/ S+ f& H- f- T: U6 y5 @
<tr>
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td>
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td> 5 d, d, ~. X  ]
</tr> 4 o$ c+ |4 Y* I9 Z& _) j; _
<tr> ; ~# w6 w# }/ v
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td>
</tr> . I/ T. o7 j3 ?. ]" `- U" F
</table><%set show=nothing%>

劲语句---精华语句： 6 ~, Y5 ]+ Y: V& j, k2 {
id=request.querystring("id")
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句， 9 [6 m; J# f$ X1 u$ s0 d
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&"")
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"
最后<%set show=nothing%>
! u  F# [4 g" R5 i" Z. X9 I1 j4 [
好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

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

好厉害啊

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