5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西5 y8 {% ?  y% o5 I- N* q( S/ A
真NB..佩服ing .....# F6 n( `& ~2 i  m) V
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。

同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。 + F( ~0 r6 c( E" Y* Q% w
& I- S/ _, `8 F. r" J
一、建立文件！
最简单的论坛也要有几个必要的文件，就是： $ \. j, m9 R( b8 X$ \/ v; t
5 i# |7 X, w0 W
1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb . i+ p& t" Y. @" s* g( Y

2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp " m7 O" {) f) v$ a

3、发表帖子的文件----命名为：say.asp 7 s1 x: c- B4 V) s7 I- [
3 g  `& f. o0 [7 _8 {
4、保存发表帖子内容的文件-----命名为：save.asp

5、显示帖子标题的文件------命名为：index.asp ' O* _% A( H5 P8 b0 ?( Z+ @
( K5 R: K6 w: w' e
6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp * \3 A4 \1 K2 y6 D3 y. }
  x- E% w2 i* F( O
建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp" " F- T% e. l0 Q7 c- G
8 L) }7 y( \; l7 D
二、各文件的主要内容 " Z' \' U) ~/ H) J5 k( z
1 N  a9 W+ Y. J7 j: d5 X
1、bbs.mdb

打开这个数据库，建立一个表，命名为bbs
/ ]- c6 T3 H$ \5 _' z
该表中有几个字段: - x4 i# {% U9 W+ |! [) n
* r0 {$ c5 T( _) E1 D- V; o
id(自动给帖子编号)，他的数据类型设为“自动编号” , Y8 {( D* r: h
$ T! ?$ ^7 \8 N& H8 _
name(用来储存发表的作者)，数据类型为“文本”

title(用来储存帖子的主题)，数据类型为“文本” 1 T8 H6 i. `* ~8 K( R
8 _, {2 x" l8 J$ z
body(用来储存帖子的内容)，数据类型为“备注”

2、conn.asp 7 V6 e- ~- |5 v8 \: t& t; Y/ v6 O& c
源代码为：
<% 4 W) k! ?; Y6 G7 w
Server.scriptTimeout="10" " [* {: k& `( ^* N: f0 ~+ |2 q2 E
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection") , ~# u0 w, U3 l' \2 s& i; Z
conn.open connstr
%> 2 I, L8 r* E' n2 J6 h

这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ & K! W2 P8 i! T/ }

3、say.asp 5 I: Q7 M. ~4 }
/ D# S7 {) h: t: e  n$ L
源代码为：
<form method="POST" action="save.asp"> # D4 Q0 b% o" |; r4 _
<p>大名：<input type="text" name="name" size="20"></p>
<p>标题：<input type="text" name="title" size="91"></p> 1 d5 ]3 m; X1 k
<p>内容：</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>
</form> 4 f% N, ~4 \* B) I
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！ ; F8 f& ]' ~6 y6 {& J
+ B$ m; I% b( @; M
4、save.asp " `1 h& q* y' m' W2 |) m

源代码： * J6 l- E& q. A, M1 ~+ r2 u
 5 U* T5 ]9 [3 v) }$ q, K3 q
<%name=Replace(Request.Form("name"),"'","''") 0 i* ^8 `  T) J$ t, a2 s& V6 x
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''") % y/ u! f4 e) F+ U) g) H) u
%>
<%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/ g: R5 e5 D% Z( n; L
发表成功！<a href="index.asp">查看帖子</a>
<%end if
set savebbs=nothing * {, G& E$ y# w
%>
/ R/ |7 {1 W. V" f7 }3 y0 B) {
第一句：，意思是插入conn.asp文件，即与数据库进行连接！ $ |0 G, @& U( `
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用，
接下来几句：   B( Y- |- x' |. W* k0 X
name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''") 0 Z/ a" e6 [) H! W: t; v& Q; p" l0 m
body=Replace(Request.Form("body"),"'","''")

“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据， ( u2 J0 Z' `& y% `
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中， 0 |8 x( b. w6 E( u' L# F5 B$ k8 ?
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")”
就是把表单中名为name的文本框发来的数据储存在abc123变量中 2 a* `+ P% m1 P( V+ z" c5 q; Z
! ~5 y1 i' y4 }; G6 _* R
接着：if name="" or title="" or body="" then
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句：
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
该语句属于html语法，大家都看得懂的！

"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句：
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a>” 7 H( u; l% N5 }+ y; j2 M( F
) E" k! C+ z+ W; M% M# p$ j
"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了：
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表）   [+ J7 i9 v5 [  Q9 q
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')")
values是“值”的意思 , v7 W0 K# q) J# \  |  s. u
就是插入向量name,title,body，向量用格式'"&name&"'表示 4 ]: d0 y( ]* ?! h

最后：end if就是结束if……then , l3 T: _& U+ I/ M1 {3 b
set savebbs=nothing可以说是关闭掉：
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") , Z  z  Q$ O8 U# Y; A, k. P
( L2 S% O$ C' c
( i. Q% h  Y7 C1 W8 B9 E
5、index.asp # e; j. Y. B3 @& ~5 X# `
源代码： * l# D* z, F1 ~$ Z

<b><a href="say.asp">发表帖子</a></b><br><br>
<div align="center">
<center> , S+ Q( a5 W  O9 n
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26">
<tr>
<td width="17%"><b>作者</b></td>
<td width="83%"><b>主题</b></td>
</tr>
</table> " }8 K. s# l8 V3 r9 B, a2 D
</center> * J8 m- A! v! v
</div><hr size="1"> - y, Y- H; Q# c( m. o' t
<%i=1
set showbbs=conn.execute("select*from bbs order by id desc") 7 S% j9 y/ G8 a$ L
do while not showbbs.eof 7 h, ]+ c/ C  `
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20">   N0 E0 V- K9 L* X/ q4 e
<tr> ! `# _* ?9 ~4 y1 ?: k# F' M
<td width="17%"><%=showbbs("name")%>　</td> 8 n9 ?* Q* a7 L/ X
<td width="83%">
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> ! x$ H2 k+ Y6 z# |! B" s0 b& d
</tr> % s- G8 C( ?4 t( _; `1 ^% q
</table> ) E% P9 \$ w& A( c
</center>
</div><hr size="1"> 2 M: f4 Y- C' K2 ], n4 ^  f
<%i=i+1
if i>50 then exit do 4 l* @  j/ w0 `
showbbs.movenext & {8 @& c0 I& H, Y4 m
Loop
showbbs.Close 2 l! `$ S: D% v  U- f) p: H" P
set showbbs=nothing
%> " R4 A# u0 G% g5 e

这个文件就不一句一句的讲了 # A' V7 L4 X4 ]# D
主要讲精华部分：
set showbbs=conn.execute("select*from bbs order by id desc")
意思是：向数据库中的bbs数据表查询数据，并以id排顺序，
还有这么一句：<%=showbbs("name")%>
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs % \4 c1 R- w8 N" _9 _% C
代码中的i=1和i=i+1 % [! F7 {# m& C, c# z2 n3 {4 y
if i>50 then exit do
showbbs.movenext
Loop 4 r  M% P! W* j+ x# X* c* Q
showbbs.Close
set showbbs=nothing ) `, M( |5 L: _. u
' W; u5 h0 h  ?' I$ O4 o8 [1 a  \
这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！ 8 l7 I$ v. ~4 b
if i>50 then exit do中的50可以修改 # O8 C% g0 r4 m4 d
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄 + Q- W3 q) Y- b9 t& A' N
还有一句很有用的：
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a>
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了， 1 T4 h) K* H1 B. z
等一下在show.asp文件中就有用了 / L. m  I+ A) B
3 `! q% b% B- F  p' @+ m
5、show.asp 3 ?; C  g) r0 ?$ c, J
源代码：


<%id=request.querystring("id")%>
<%set show=conn.execute("select*from bbs where id="&id&"")%> - w# V* Q# O, `( T5 ~3 f! X* a
<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">   w6 x& j% v# G/ z0 i
<tr> ; L1 D, q) B4 y' f' \" \2 W
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td> ) T5 X! Z; B6 o2 s; H7 a9 }- t
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td>
</tr>
<tr> ; w7 i, E: M3 ?+ c2 A* A
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td>
</tr>
</table><%set show=nothing%> 1 _- ^, {' ]2 X

劲语句---精华语句：
id=request.querystring("id") 8 u8 S5 p) G4 z- K5 U; I
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句， " R4 I% r4 {6 r" e) A9 N8 t' r0 y
id=request.querystring("id")就是把地址栏中的id的值读取下来，
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字， / L+ K& b; E% l2 {$ f6 }+ \) L, x
所以show.asp使用id=request.querystring("id")语句把数字读取下来   Y/ y, X/ [3 X: y
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"") * m+ }4 R1 n7 V3 o: K( C
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&" # u% t( z$ \. I
最后<%set show=nothing%> ! I) F9 c9 i. g: {; E6 Y; Y
0 }1 X) m6 M* ~6 w5 ^& F
好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

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

返回列表

5分钟编写一个ASP论坛

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

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