5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西
真NB..佩服ing .....% h8 a2 r) L0 c5 f  t' p) }& p
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。

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

一、建立文件！ % g" e5 ?" M' W8 U1 G. E! f
最简单的论坛也要有几个必要的文件，就是： - C$ Y! {$ t% a" z0 T0 k4 d! ?1 W
3 P. w7 z  f: r% J9 o
1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb 2 a0 k3 N* _0 c: T  y: m, ~
0 q- V* Q% l( L( X" }
2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp
, H* }# m7 s" C: A/ b: D0 t
3、发表帖子的文件----命名为：say.asp " {5 N- O  Q' e5 ~8 d
# n% Z6 F- n% t8 Y; l1 I5 J) I& n; R
4、保存发表帖子内容的文件-----命名为：save.asp . [0 h5 a9 ]1 D: e  u! b

5、显示帖子标题的文件------命名为：index.asp
, c( h1 a3 ]; T4 [
6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp

建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp"

二、各文件的主要内容
, [) ?6 d/ Z+ }6 V* N( P
1、bbs.mdb
" ^+ \- r/ V  |* P) _3 _3 e( c
打开这个数据库，建立一个表，命名为bbs

该表中有几个字段: * u( u) f+ z& r. K* ]

id(自动给帖子编号)，他的数据类型设为“自动编号” ! e; a* [6 t& t, z& a

name(用来储存发表的作者)，数据类型为“文本”
6 _& I  H& o5 F6 I0 L
title(用来储存帖子的主题)，数据类型为“文本”
6 d- q) s7 I) w3 C$ ]
body(用来储存帖子的内容)，数据类型为“备注”
* o1 }2 z' H9 I- c& I8 g! h7 V: l
2、conn.asp # l* V' t: |- T, e) U
源代码为：
<%
Server.scriptTimeout="10" # v1 w7 J6 |+ r( `8 J. N* M
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection") $ A1 d5 r& g, H( Q: @2 T
conn.open connstr 1 p7 `0 v+ r( q  G; A  o
%> & h$ y  |" s; ]' t! g" @' E

这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！

3、say.asp
! |! {. v/ X8 m9 [
源代码为：
<form method="POST" action="save.asp"> ) A$ R' D" c; ?0 {! Q! S5 B0 k' F
<p>大名：<input type="text" name="name" size="20"></p> ! u; ?# y  A% Q
<p>标题：<input type="text" name="title" size="91"></p> 9 W( l7 q6 {4 D4 T% b$ {
<p>内容：</p> 7 T: N- R, G- u& ]# y/ U% ?/ J
<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> , q. d9 a5 x$ O3 I+ u
</form>
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面 + c' V( \+ L$ J8 q: G) o
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！

4、save.asp 2 H% K$ S3 M" v- m: h3 L$ P
6 Z3 |5 B' N" W. [0 ^
源代码： - Z' f. J( A+ N" F3 K6 x

<%name=Replace(Request.Form("name"),"'","''") , i9 d& }) Q- I: D( Q
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''")
%>   C: N0 S( Z6 x2 }- b' \# m
<%if name="" or title="" or body="" then%> + L- ]6 j0 J( b+ a/ J7 ^$ p8 S
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！ 5 y5 I5 f- _- @" [  O% W
<%else%>
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a>
<%end if
set savebbs=nothing
%> - t& Y1 W8 q( L( y7 s0 i' q1 a
  e( _4 w0 k$ _9 ?' V6 R
第一句：，意思是插入conn.asp文件，即与数据库进行连接！ ) V5 j* y) Z# k5 _6 O
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用， ( I8 h" s2 G# J" E' `
接下来几句： 4 z. K% j& o# ]$ O; s; B9 O
name=Replace(Request.Form("name"),"'","''") % p% f3 R( @" C0 Q$ @4 J. G- j
title=Replace(Request.Form("title"),"'","''") 9 P  Q1 m8 m2 @
body=Replace(Request.Form("body"),"'","''")
5 [2 u( n# z2 P6 _
“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据，
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中，   D$ m# g+ I- c1 z7 i; v
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")”
就是把表单中名为name的文本框发来的数据储存在abc123变量中
: T5 t+ @' D/ p. F6 |
接着：if name="" or title="" or body="" then - u; I5 W: C8 T' o9 G" h
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句：
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
该语句属于html语法，大家都看得懂的！ / k3 s; _2 w: Q  V& y

"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句： 0 Q: q/ m( x) C% {: H
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> ) C+ S: }! S1 }
发表成功！<a href="index.asp">查看帖子</a>” : c7 y0 i7 Q5 I& k% f3 b4 {
  k3 t% T4 g8 N. x5 a* p- Q( r
"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了：
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表）
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')")
values是“值”的意思 / ?3 i( T  e: Y3 b$ Z
就是插入向量name,title,body，向量用格式'"&name&"'表示
; ~3 F4 N8 @6 s, m) M
最后：end if就是结束if……then 6 B0 E' d- d' F( l! W7 `# q) G
set savebbs=nothing可以说是关闭掉： / I( i# L$ `! K5 |
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")
2 W: I. m" b+ j: V2 e4 q( ?

5、index.asp
源代码： 5 u0 w; I! _& C# O  a

<b><a href="say.asp">发表帖子</a></b><br><br>
<div align="center"> + I) f1 A  E3 H( t
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26">
<tr>
<td width="17%"><b>作者</b></td> ' v9 o. P: S$ W
<td width="83%"><b>主题</b></td>
</tr> " H" D$ ?/ u9 D8 O
</table>
</center> 5 ^+ e2 f4 A2 n* y
</div><hr size="1"> . }+ T( F  P7 p6 y+ k9 V2 D7 Y
<%i=1
set showbbs=conn.execute("select*from bbs order by id desc") ( S( M. @. k+ @" _) D3 m
do while not showbbs.eof
%> , Z4 Y1 b; Q3 W$ |* D
<div align="center">
<center>
<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%"> * Z' P- M; ^- k' S2 u+ S
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td>
</tr>
</table> 8 }- @; t0 \2 }5 E# Z
</center> 2 J6 \% b; S9 F3 T3 n
</div><hr size="1">
<%i=i+1
if i>50 then exit do 4 O7 h6 g( k) R, r4 Z! N$ E6 k
showbbs.movenext
Loop
showbbs.Close 0 J# f0 A& ?  Q+ i
set showbbs=nothing 7 x  P/ Z' Q& W4 H# x6 [3 t
%> % V- n- v* Q* u: U3 p
  ]8 A, ]1 w; [% a  Y7 Z9 ~
这个文件就不一句一句的讲了 ( G( q! ]1 v0 B& _( V0 H# D
主要讲精华部分： 9 r; P3 S) B8 X( o7 Z2 ~7 e
set showbbs=conn.execute("select*from bbs order by id desc") 8 Z0 ^' b& o% i, ?5 f. D
意思是：向数据库中的bbs数据表查询数据，并以id排顺序， ! X$ W4 \! l9 V0 B$ i  z" v1 u
还有这么一句：<%=showbbs("name")%> ' H7 b% d8 @- M4 t, W7 f
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs ) _) G* B" V1 V4 k$ e6 a) q+ E3 G% Z& ^
代码中的i=1和i=i+1
if i>50 then exit do
showbbs.movenext - q, Z( Q2 t0 {# s1 J
Loop 8 q1 M0 \3 a' u8 v# r; ^
showbbs.Close
set showbbs=nothing 5 p, Q0 ?5 s9 T$ F5 f1 i  c7 S- J

这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！
if i>50 then exit do中的50可以修改 ! Q1 {/ k$ x) D9 ]" [+ E
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄 ; i( w6 j4 i2 I% B# G6 @% V
还有一句很有用的：
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a> ' q6 A; z/ `# Q* b
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了， 3 \! r# J) f+ K; u$ u+ J6 Q: k: @  q
等一下在show.asp文件中就有用了 ; C! P( h; H$ C2 S& A8 A2 t8 p

5、show.asp + U: j, L: f4 l6 u0 o5 v! d2 a
源代码：

 - Q" q/ l! C$ T: b5 i
<%id=request.querystring("id")%>
<%set show=conn.execute("select*from bbs where id="&id&"")%>   Q/ L, ?/ Y; o( n
<a href="index.asp">
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1"> , ?* s) {% A- H" h1 _) f
<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> / p: x6 ^+ U( b' {
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td>
</tr> - Q7 L* n1 p  ?+ x* c
<tr> : y' O5 U1 c7 y
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td>
</tr>
</table><%set show=nothing%>

劲语句---精华语句：
id=request.querystring("id") ( k' U0 F2 r8 F" B
在讲解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&"")
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&" $ P- T& [1 h# K% k
最后<%set show=nothing%>

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

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

返回列表

5分钟编写一个ASP论坛

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

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