5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西  |+ `8 m4 p2 [+ u
真NB..佩服ing .....' }8 c+ q# }% [
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。- J1 e* A6 G9 }# H5 b

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

一、建立文件！ " w2 g- S; B7 f! B
最简单的论坛也要有几个必要的文件，就是： . L- ?6 z: b* u; i+ Z5 V( }7 L1 H

1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb

2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp ) D2 y' k# ^8 n, O5 C) E: \3 |
( B1 E5 i! G0 w7 x  n" d/ G
3、发表帖子的文件----命名为：say.asp 6 A7 G0 y/ J8 }+ O8 G! m& f
; s/ w8 F# x9 ~9 z8 O' X/ ]
4、保存发表帖子内容的文件-----命名为：save.asp

5、显示帖子标题的文件------命名为：index.asp
* q" ~& a' G" `2 b# n, G: m
6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp
* l# ^* {% v+ m9 y1 D& S: `
建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp"

二、各文件的主要内容 ' [" ?- s" m: O5 w$ v7 @: v
7 y* j2 S# {0 b3 f7 ^
1、bbs.mdb ; c9 q4 g$ a8 j7 H' s) u
8 m$ s2 \, N3 {6 P9 @2 q
打开这个数据库，建立一个表，命名为bbs 7 ~! u/ c& {! U0 m- U7 n( ^

该表中有几个字段: + G) }* c# l6 B) N

id(自动给帖子编号)，他的数据类型设为“自动编号” 6 b+ I5 [+ t# D! N
$ C7 ]5 L1 p/ s# ^9 q
name(用来储存发表的作者)，数据类型为“文本” 6 w2 h- D. j3 @0 H( N, `

title(用来储存帖子的主题)，数据类型为“文本” 7 i2 X" F; H' t0 R% E0 `# W
2 ?2 }: K4 H5 g& ?2 e
body(用来储存帖子的内容)，数据类型为“备注” 7 ^5 e1 z3 v2 i  T0 [" F

2、conn.asp
源代码为：   ~! ]) @7 z- X" P4 ?. Q
<% : e# x8 n# M8 Q' N6 ^
Server.scriptTimeout="10" ! j; g1 Y4 L2 f- O
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 7 D3 V, H9 f3 e* }) F8 ~+ s, J" A
set conn=Server.CreateObject("ADODB.connection")
conn.open connstr + @0 w" U, q8 w: v
%>

这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ 1 G& p0 ~: W2 F5 Z9 ?
: w6 B, {' _. S& H; b$ }
3、say.asp

源代码为： 6 L1 W! a% [" l1 Q0 \! ^, i
<form method="POST" action="save.asp"> ! E! Q0 N' h. W1 Z! ^3 r
<p>大名：<input type="text" name="name" size="20"></p> 3 F. O% \8 I' r9 p! ^4 {! o/ w
<p>标题：<input type="text" name="title" size="91"></p> 9 f5 A) i' a/ a/ ~8 A- |
<p>内容：</p> 4 n! s( a- t- K3 W5 T" ]
<p><textarea rows="11" name="body" cols="97"></textarea></p> , @: e2 p' ~4 b& t, W+ P! ]
<p>　</p> 0 \) d8 y6 s- S$ ?* b9 h
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>   R. u) x% E; |
</form> 9 z! i2 t7 c3 E: ~; W+ k
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！ ! L) s0 i# B4 k! S9 O  Y
; T9 j9 I, R+ i$ v. n  F' q
4、save.asp

源代码： - ^2 h. U+ E( P7 @
 ( B: L* U8 Z# S, R1 d
<%name=Replace(Request.Form("name"),"'","''") 7 H' b4 N6 q2 a8 b1 S) l6 x
title=Replace(Request.Form("title"),"'","''") - m- |: `, _) B4 o7 `4 p
body=Replace(Request.Form("body"),"'","''")
%>
<%if name="" or title="" or body="" then%> " h9 e9 a( i" E9 U3 k& }
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！ $ \  {( U& v) T% g3 D. L$ n" }
<%else%>
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%> * }/ K+ q; y  k1 l$ n5 @
发表成功！<a href="index.asp">查看帖子</a> 4 _2 B1 k' u; H2 O3 K" C
<%end if , Z% b2 K5 D. [' r7 d
set savebbs=nothing ) S! V0 h3 ~5 {3 q9 S" l# {2 D% h
%>
( W4 K6 |; O. o" p
第一句：，意思是插入conn.asp文件，即与数据库进行连接！ + r( y1 q1 _# }' \) z4 e# A
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用， 0 o7 q: E6 d) M
接下来几句：
name=Replace(Request.Form("name"),"'","''") # H% J' T) o" N/ k# J$ s
title=Replace(Request.Form("title"),"'","''") 7 _9 \5 C6 P: a) s! }
body=Replace(Request.Form("body"),"'","''") 7 e" _& x3 H$ e! P9 o% Z( f
$ v$ v3 r0 a$ O/ i
“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据， . U5 k% e2 p. e4 _8 E& t: d
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中， 1 s! \7 B7 r, |8 V
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")” % t/ y' k0 w" c# s8 n
就是把表单中名为name的文本框发来的数据储存在abc123变量中 2 {1 R- ^% m4 a( ^

接着：if name="" or title="" or body="" then ) |0 P/ U! e) y$ Q' r4 H0 j
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句：
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
该语句属于html语法，大家都看得懂的！
0 ]+ k6 g3 ^5 Q9 |
"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句： ) F1 W2 H6 d! F/ H. e1 B
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a>”

"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了： 8 J* T/ J5 f# n" d" O0 f
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表）
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')")
values是“值”的意思   d/ o; C9 d3 M, V# v& k) m
就是插入向量name,title,body，向量用格式'"&name&"'表示 6 Q9 X- X' [2 W3 I. [

最后：end if就是结束if……then
set savebbs=nothing可以说是关闭掉：
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") & ^# t8 J6 U& A$ b7 `8 X
  H7 A/ M* R9 H( r7 `7 }

5、index.asp
源代码： " H# l% H/ ~" F& E7 j

<b><a href="say.asp">发表帖子</a></b><br><br>
<div align="center">
<center> 9 C  z/ Y5 `: N) `( ~
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26"> 6 T  g% l. D( Y
<tr> . j' j! u* d8 n# [
<td width="17%"><b>作者</b></td> ( h3 A/ b" u2 E' r+ g1 r
<td width="83%"><b>主题</b></td>
</tr>   N- o6 V4 U$ T( _1 [1 q
</table> # l! q7 E7 O' h
</center>
</div><hr size="1">
<%i=1 : e  }* T- L( _8 {
set showbbs=conn.execute("select*from bbs order by id desc")   F& L* D* r  M: C! x% n
do while not showbbs.eof
%> / g4 l' i' ?5 ^- ~
<div align="center">
<center> : X4 f  s- w/ a( c& f% U3 W
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20">
<tr>
<td width="17%"><%=showbbs("name")%>　</td> 4 y" {, P! z! y1 k5 c0 `
<td width="83%">
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> ! k- N( Q2 G2 V- A% Z' E
</tr> + C. N4 V. Z" m8 h, g/ m! Z
</table>
</center>
</div><hr size="1"> ) M' Y$ E! B; Q5 a9 Q" N7 l
<%i=i+1
if i>50 then exit do $ i# m! V3 n/ s* I  w  k% [) `
showbbs.movenext 2 Q/ ^0 K( }/ j# @
Loop / }- Y6 e8 c% d& W3 P
showbbs.Close
set showbbs=nothing
%> + v, g& ^( k  _$ @! l+ {, D
6 L3 n: i1 r! d0 i* t3 K3 m
这个文件就不一句一句的讲了
主要讲精华部分： 9 R  e1 k; l- C& n
set showbbs=conn.execute("select*from bbs order by id desc") # ?& ~; Y  F/ T, x* q6 `; C
意思是：向数据库中的bbs数据表查询数据，并以id排顺序， * {  \; R, t: h2 M* }: l
还有这么一句：<%=showbbs("name")%> ; m# q% [9 E5 ?, E
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs / s3 g: Z0 [1 D: x0 h5 `! Q5 I
代码中的i=1和i=i+1
if i>50 then exit do 3 |; R+ |8 v- c6 @% ]
showbbs.movenext ; U+ |0 y+ D. B# E3 M
Loop
showbbs.Close
set showbbs=nothing

这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！ % p: i3 @" [" Q0 ]7 V5 ]* v
if i>50 then exit do中的50可以修改 # g' x, x; t( `2 ^
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄 3 f7 {5 j$ i( Y5 n
还有一句很有用的： * S6 o8 Q( B5 G; \. K$ D
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a> 8 O8 ?( t8 a, ~
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了，
等一下在show.asp文件中就有用了 ; E. a$ I. B7 i
! H% k, H% o2 ?' _7 k
5、show.asp , W) Z2 Q  I5 w  o% u, Z7 w4 F: V# j
源代码：
3 H5 P" e6 ~- F+ {5 L; h

<%id=request.querystring("id")%>
<%set show=conn.execute("select*from bbs where id="&id&"")%> 3 a* J* W8 g, `. c% M1 }7 H# J8 K9 r
<a href="index.asp">
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1"> 8 a8 s8 M  ~: _
<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> & U4 \# L& V3 U5 i- N
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td>
</tr> , ^& L* o- E% n; |* K9 A
<tr> % ~( C  W+ s. L8 T  q
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td>
</tr> & J. a1 `/ j" \. K# a
</table><%set show=nothing%> ! u* u" J. p5 t8 T' b& O! X
& r% i3 `- [5 U0 u7 O: A5 W
劲语句---精华语句：
id=request.querystring("id")
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句，
id=request.querystring("id")就是把地址栏中的id的值读取下来， : r: v; Q2 o2 U; X2 S
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字，
所以show.asp使用id=request.querystring("id")语句把数字读取下来 7 v5 }+ E0 S# e: S5 X
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"")
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"   ]7 t9 S- N, A- U
最后<%set show=nothing%>
, e+ V$ T# N* d- }! V/ W3 K6 h
好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

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

紫藤花

新手上路

Rank: 1

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

2楼

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

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

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

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